Mike Slinn

Disassembling mainframe COBOL with ASMDASM

Published 2024-04-11.
Time to read: 1 minutes.

This page is part of the mainframe collection.

ASMDASM is IBM’s very capable disassembler, part of the HLASM Toolkit.

Only one module can be disassembled at a time. If a CSECT (which must by definition reside within a module) is specified, only that CSECT is disassembled; otherwise, only the first CSECT is disassembled.

JCL

Here is JCL for disassembling MIKES01.CICSADP.LOADLIB. This load library was provided by the book entitled Designing & Programming with CICS Applications, discussed in Receiving files on an IBM mainframe. Note that ASMDASM is invoked many times, once for each load module:

cicsadp_loadlib_asmdasm_all6.jcl
//MIKES01X JOB (54321),'Mike Slinn',NOTIFY=&SYSUID,REGION=0M,
//             CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H
//DISASM   EXEC PGM=ASMDASM,
//            PARM='COPYRIGHTOK'
//STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
//SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
NACTSET
//DISASM   EXEC PGM=ASMDASM,
//            PARM='COPYRIGHTOK'
//STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
//SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
NACT01 NACT01
//DISASM   EXEC PGM=ASMDASM,
//            PARM='COPYRIGHTOK'
//STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
//SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
NACT02 NACT02
//DISASM   EXEC PGM=ASMDASM,
//            PARM='COPYRIGHTOK'
//STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
//SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
NACT03 NACT03
//DISASM   EXEC PGM=ASMDASM,
//            PARM='COPYRIGHTOK'
//STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
//SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
NACT04 NACT04
//DISASM   EXEC PGM=ASMDASM,
//            PARM='COPYRIGHTOK'
//STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
//SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
NACT05 NACT05
//*

The following output was generated by a similar job, but the job did not specify the CSECTs to disassemble, so the first CSECT in each module was disassembled instead:

Disassembled cicsadp_loadlib_asmdasm (first CSECTs only)
1                         J E S 2  J O B  L O G  --  S Y S T E M  M V S 1  --  N O D E  N 1
0
 15.30.01 JOB02170 ---- THURSDAY,  11 APR 2024 ----
 15.30.01 JOB02170  IRR010I  USERID MIKES01  IS ASSIGNED TO THIS JOB.
 15.30.01 JOB02170  ICH70001I MIKES01  LAST ACCESS AT 15:30:00 ON THURSDAY, APRIL 11, 2024
 15.30.01 JOB02170  $HASP373 MIKES01X STARTED - INIT 1    - CLASS A        - SYS MVS1
 15.30.01 JOB02170  IEF403I MIKES01X - STARTED - TIME=15.30.01
 15.30.01 JOB02170  -                                      ----TIMINGS (MINUTES)-----                          -----PAGING COUNTS----
 15.30.01 JOB02170  -STEPNAME PROCSTEP    RC   EXCP   CONN       TCB       SRB  CLOCK          SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
 15.30.01 JOB02170  -DISASM               00     94     14  0. 000581  0.000035    0.0           233  PRDBAT       0     0     0     0
 15.30.01 JOB02170  -DISASM               00     59      9  0.000356  0.000021    0.0           143  PRDBAT       0     0     0     0
 15.30.01 JOB02170  -DISASM               00     60      9  0.000353  0.000019    0.0           141  PRDBAT       0     0     0     0
 15.30.02 JOB02170  -DISASM               00     60     10  0.000348  0.000021    0.0           140  PRDBAT       0     0     0     0
 15.30.02 JOB02170  -DISASM               00     58      9  0.000334  0.000019    0.0           134  PRDBAT       0     0     0     0
 15.30.02 JOB02170  -DISASM               00     59     10  0.000342  0.000021    0.0           138  PRDBAT       0     0     0     0
 15.30.02 JOB02170  IEF404I MIKES01X - ENDED - TIME=15.30.02
 15.30.02 JOB02170  -MIKES01X ENDED.  NAME-Mike Slinn           TOTAL TCB CPU TIME= 0.002316 TOTAL ELAPSED TIME=   0.0 SUBSYS=JES2
 15.30.02 JOB02170  $HASP395 MIKES01X ENDED - RC=0000
0------ JES2 JOB STATISTICS ------
-  11 APR 2024 JOB EXECUTION DATE
-           51 CARDS READ
-        1,924 SYSOUT PRINT RECORDS
-            0 SYSOUT PUNCH RECORDS
-          186 SYSOUT SPOOL KBYTES
-         0.00 MINUTES EXECUTION TIME
 !! END OF JES SPOOL FILE !!
        1 //MIKES01X JOB (54321),'Mike Slinn',NOTIFY=&SYSUID,REGION=0M,           JOB02170
          //             CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H
          IEFC653I SUBSTITUTION JCL - (54321),'Mike Slinn',NOTIFY=MIKES01,REGION=0M,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H
        2 //DISASM   EXEC PGM=ASMDASM,
          //            PARM='COPYRIGHTOK'
        3 //STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
        4 //SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
        5 //SYSPRINT DD SYSOUT=*
        6 //SYSPUNCH DD DUMMY
        7 //SYSIN DD *
        8 //DISASM   EXEC PGM=ASMDASM,
          //            PARM='COPYRIGHTOK'
        9 //STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
       10 //SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
       11 //SYSPRINT DD SYSOUT=*
       12 //SYSPUNCH DD DUMMY
       13 //SYSIN DD *
       14 //DISASM   EXEC PGM=ASMDASM,
          //            PARM='COPYRIGHTOK'
       15 //STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
       16 //SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
       17 //SYSPRINT DD SYSOUT=*
       18 //SYSPUNCH DD DUMMY
       19 //SYSIN DD *
       20 //DISASM   EXEC PGM=ASMDASM,
          //            PARM='COPYRIGHTOK'
       21 //STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
       22 //SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
       23 //SYSPRINT DD SYSOUT=*
       24 //SYSPUNCH DD DUMMY
       25 //SYSIN DD *
       26 //DISASM   EXEC PGM=ASMDASM,
          //            PARM='COPYRIGHTOK'
       27 //STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
       28 //SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
       29 //SYSPRINT DD SYSOUT=*
       30 //SYSPUNCH DD DUMMY
       31 //SYSIN DD *
       32 //DISASM   EXEC PGM=ASMDASM,
          //            PARM='COPYRIGHTOK'
       33 //STEPLIB  DD DISP=SHR,DSN=ASM.SASMMOD2
       34 //SYSLIB   DD DISP=SHR,DSN=MIKES01.CICSADP.LOADLIB
       35 //SYSPRINT DD SYSOUT=*
       36 //SYSPUNCH DD DUMMY
       37 //SYSIN DD *
          //*
 !! END OF JES SPOOL FILE !!
 ICH70001I MIKES01  LAST ACCESS AT 15:30:00 ON THURSDAY, APRIL 11, 2024
 IEFA111I MIKES01X IS USING THE FOLLOWING JOB RELATED SETTINGS:
          SWA=BELOW,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB
 IEF236I ALLOC. FOR MIKES01X DISASM
 IEF237I 30C0 ALLOCATED TO STEPLIB
 IEF237I 306C ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I DMY  ALLOCATED TO SYSPUNCH
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I MIKES01X DISASM - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ASM.SASMMOD2                                 KEPT
 IEF285I   VOL SER NOS= RES240.
 IEF285I   MIKES01.CICSADP.LOADLIB                      KEPT
 IEF285I   VOL SER NOS= USER10.
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000107.?         SYSOUT
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000101.?         SYSIN
 IEF373I STEP/DISASM  /START 2024102.1530
 IEF032I STEP/DISASM  /STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.03 SEC    SRB:     0 HR  00 MIN  00.00 SEC
         VIRT:   216K  SYS:   280K  EXT:     1380K  SYS:    12264K
         ATB- REAL:                  1068K  SLOTS:                     0K
              VIRT- ALLOC:      15M SHRD:       0M
 IEF236I ALLOC. FOR MIKES01X DISASM
 IEF237I 30C0 ALLOCATED TO STEPLIB
 IEF237I 306C ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I DMY  ALLOCATED TO SYSPUNCH
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I MIKES01X DISASM - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ASM.SASMMOD2                                 KEPT
 IEF285I   VOL SER NOS= RES240.
 IEF285I   MIKES01.CICSADP.LOADLIB                      KEPT
 IEF285I   VOL SER NOS= USER10.
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000108.?         SYSOUT
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000102.?         SYSIN
 IEF373I STEP/DISASM  /START 2024102.1530
 IEF032I STEP/DISASM  /STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.02 SEC    SRB:     0 HR  00 MIN  00.00 SEC
         VIRT:   216K  SYS:   280K  EXT:     1380K  SYS:    12264K
         ATB- REAL:                  1068K  SLOTS:                     0K
              VIRT- ALLOC:      15M SHRD:       0M
 IEF236I ALLOC. FOR MIKES01X DISASM
 IEF237I 30C0 ALLOCATED TO STEPLIB
 IEF237I 306C ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I DMY  ALLOCATED TO SYSPUNCH
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I MIKES01X DISASM - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ASM.SASMMOD2                                 KEPT
 IEF285I   VOL SER NOS= RES240.
 IEF285I   MIKES01.CICSADP.LOADLIB                      KEPT
 IEF285I   VOL SER NOS= USER10.
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000109.?         SYSOUT
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000103.?         SYSIN
 IEF373I STEP/DISASM  /START 2024102.1530
 IEF032I STEP/DISASM  /STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.02 SEC    SRB:     0 HR  00 MIN  00.00 SEC
         VIRT:   216K  SYS:   280K  EXT:     1380K  SYS:    12268K
         ATB- REAL:                  1068K  SLOTS:                     0K
              VIRT- ALLOC:      15M SHRD:       0M
 IEF236I ALLOC. FOR MIKES01X DISASM
 IEF237I 30C0 ALLOCATED TO STEPLIB
 IEF237I 306C ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I DMY  ALLOCATED TO SYSPUNCH
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I MIKES01X DISASM - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ASM.SASMMOD2                                 KEPT
 IEF285I   VOL SER NOS= RES240.
 IEF285I   MIKES01.CICSADP.LOADLIB                      KEPT
 IEF285I   VOL SER NOS= USER10.
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000110.?         SYSOUT
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000104.?         SYSIN
 IEF373I STEP/DISASM  /START 2024102.1530
 IEF032I STEP/DISASM  /STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.02 SEC    SRB:     0 HR  00 MIN  00.00 SEC
         VIRT:   216K  SYS:   280K  EXT:     1380K  SYS:    12264K
         ATB- REAL:                  1068K  SLOTS:                     0K
              VIRT- ALLOC:      15M SHRD:       0M
 IEF236I ALLOC. FOR MIKES01X DISASM
 IEF237I 30C0 ALLOCATED TO STEPLIB
 IEF237I 306C ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I DMY  ALLOCATED TO SYSPUNCH
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I MIKES01X DISASM - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ASM.SASMMOD2                                 KEPT
 IEF285I   VOL SER NOS= RES240.
 IEF285I   MIKES01.CICSADP.LOADLIB                      KEPT
 IEF285I   VOL SER NOS= USER10.
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000111.?         SYSOUT
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000105.?         SYSIN
 IEF373I STEP/DISASM  /START 2024102.1530
 IEF032I STEP/DISASM  /STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.02 SEC    SRB:     0 HR  00 MIN  00.00 SEC
         VIRT:   216K  SYS:   280K  EXT:     1380K  SYS:    12264K
         ATB- REAL:                  1068K  SLOTS:                     0K
              VIRT- ALLOC:      15M SHRD:       0M
 IEF236I ALLOC. FOR MIKES01X DISASM
 IEF237I 30C0 ALLOCATED TO STEPLIB
 IEF237I 306C ALLOCATED TO SYSLIB
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I DMY  ALLOCATED TO SYSPUNCH
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF142I MIKES01X DISASM - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   ASM.SASMMOD2                                 KEPT
 IEF285I   VOL SER NOS= RES240.
 IEF285I   MIKES01.CICSADP.LOADLIB                      KEPT
 IEF285I   VOL SER NOS= USER10.
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000112.?         SYSOUT
 IEF285I   MIKES01.MIKES01X.JOB02170.D0000106.?         SYSIN
 IEF373I STEP/DISASM  /START 2024102.1530
 IEF032I STEP/DISASM  /STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.02 SEC    SRB:     0 HR  00 MIN  00.00 SEC
         VIRT:   216K  SYS:   280K  EXT:     1380K  SYS:    12264K
         ATB- REAL:                  1068K  SLOTS:                     0K
              VIRT- ALLOC:      15M SHRD:       0M
 IEF375I  JOB/MIKES01X/START 2024102.1530
 IEF033I  JOB/MIKES01X/STOP  2024102.1530
         CPU:     0 HR  00 MIN  00.13 SEC    SRB:     0 HR  00 MIN  00.00 SEC
 !! END OF JES SPOOL FILE !!
1ASMD008 The user of the COPYRIGHTOK option ensures that this use will not violate any copyright restrictions
         or other rights pertaining to the code being disassembled
 DIRECTORY INFO FOR MODULE  NACTSET
           TTR OF MODULE=000008
           CONCATENATION NBR=00
           ALIAS INDIC=2C
           TTR, 1ST TXT RECD=00000D
           TTR OF NOTE/SCATTER LIST=000000
           NBR NOTE ENTRIES=00
           ATTRIBUTES 1=03F2                               EXEC
           TOTAL LENGTH=0012D8
           LENGTH OF 1ST TXT RECD=12D8
           E. P. ADDR=000000
           ATTRIBUTES 2=88
           AUTH CODE=00
-               *** EXTERNAL SYMBOL TABLE ***
0     SYMBOL        TYPE   IND  ADDR    SEG  LRID   LENG  ESDID
   ** $PRIV000010    SD                 01
      B_TEXT         ED        000000             0012D2
      $PRIV000010    LD        000000
-               ***** RLD INFO *****
0     RELPTR  POSPTR      TYPE     LEN    DIR   ADDR
1$PRIV000                                      *** User Control Statements ***
0NACTSET
1***** Label Table *****
0  ADDR TYPE  LEN   SYMBOL
1                                                  ***** T E X T *****
0000000   D5C1C3E3 E2C5E340 00324040 004F0000   00000000 C1C3C3E3 D4D5E440 05B50190   NACTSET ..  ........ACCTMNU ....
 000020   02FF05A3 C04A0155 001850FF FE100000   00000343 000C0000 00000000 00000000   ...t......&.....................
 000040   00000000 00000000 00000000 00000000   00000000 00000040 40404000 00000D02   .......................    .....
 000060   F80000C1 C3C3D6E4 D5E3E240 D4C5D5E4   00000001 00F0000E 0000003C 02F000A3   8..ACCOUNTS MENU.....0.......0.t
 000080   E3D640E2 C5C1D9C3 C840C2E8 40D5C1D4   C56B40C5 D5E3C5D9 40E2E4D9 D5C1D4C5   TO SEARCH BY NAME, ENTER SURNAME
 0000A0   40C1D5C4 40C9C640 D9C5D8E4 C9D9C5C4   6B40C6C9 D9E2E340 D5C1D4C5 00000007    AND IF REQUIRED, FIRST NAME....
 0000C0   02F80146 E2E4D9D5 C1D4C500 00000102   F801527A 00000012 01400154 00000001   .8..SURNAME.....8..:..... ......
 0000E0   00F00167 00000019 02F0016C 4DF140E3   D640F1F8 40C1D3D7 C8C1C2C5 E3C9C340   .0.......0.%(1 TO 18 ALPHABETIC
 000100   C3C8D9E2 5D000000 0D02F801 96C6C9D9   E2E340D5 C1D4C540 407A0000 000C0140   CHRS).....8.oFIRST NAME  :.....
 000120   01A40000 000100F0 01B10000 002202F0   01BC4DF1 40E3D640 F1F240C1 D3D7C8C1   .u.....0.......0..(1 TO 12 ALPHA
 000140   C2C5E3C9 C340C3C8 D9E240D6 D7E3C9D6   D5C1D35D 0000003C 02F00233 E3D640D7   BETIC CHRS OPTIONAL).....0..TO P
 000160   D9D6C3C5 E2E240C1 D540C1C3 C3D6E4D5   E36B40C5 D5E3C5D9 40D9C5D8 E4C5E2E3   ROCESS AN ACCOUNT, ENTER REQUEST
 000180   40E3E8D7 C540C1D5 C440C1C3 C3D6E4D5   E340D5E4 D4C2C5D9 0000000D 02F802D6    TYPE AND ACCOUNT NUMBER.....8.O
 0001A0   D9C5D8E4 C5E2E340 E3E8D7C5 7A000000   01014002 E4000000 0100F002 E6000000   REQUEST TYPE:..... .U.....0.W...
 0001C0   2F02F002 EF4DC460 C4C9E2D7 D3C1E86B   40C160C1 C4C46B40 D460D4D6 C4C9C6E8   ..0..(D-DISPLAY, A-ADD, M-MODIFY
 0001E0   6B40E760 C4C5D3C5 E3C56B40 D760D7D9   C9D5E35D 00000007 02F80326 C1C3C3D6   , X-DELETE, P-PRINT).....8..ACCO
 000200   E4D5E300 00000102 F803327A 00000005   0D500334 00000001 00F0033A 00000010   UNT.....8..:.....&.......0......
 000220   02F0033F 4DF1F0F0 F0F040E3 D640F7F9   F9F9F95D 0000000D 02F80376 D7D9C9D5   .0..(10000 TO 79999).....8..PRIN
 000240   E3C5D940 C9C44040 7A000000 04014003   84000000 0100F003 89000000 3002F003   TER ID  :..... .d.....0.i.....0.
 000260   8F4DF140 E3D640F4 40C3C8C1 D9C1C3E3   C5D9E240 4DD9C5D8 E4C9D9C5 C440C6D6   .(1 TO 4 CHARACTERS (REQUIRED FO
 000280   D940D7D9 C9D5E340 D9C5D8E4 C5E2E35D   5D000000 4F01F804 10000000 4F01F004   R PRINT REQUEST)).....8.......0.
 0002A0   60000000 4F01F004 B0000000 4F01F005   00000000 4F01F005 50000000 4F01F005   -.....0.......0.......0.&.....0.
 0002C0   A0000000 4F01F005 F0000000 4101F006   40000000 3C01F806 90000000 0100F006   ......0.0.....0. .....8.......0.
 0002E0   CD000000 0E02F007 30C5D5E3 C5D940C4   C1E3C140 C1D5C400 00002902 F8073FD7   ......0..ENTER DATA AND.....8..P
 000300   D9C5E2E2 40C5D5E3 C5D940C6 D6D940E2   C5C1D9C3 C840D6D9 40C1C3C3 D6E4D5E3   RESS ENTER FOR SEARCH OR ACCOUNT
 000320   40D9C5D8 E4C5E2E3 00000002 02F00769   D6D90000 001302F8 076CD7D9 C5E2E240    REQUEST.....0..OR.....8.%PRESS
 000340   C3D3C5C1 D940E3D6 40C5E7C9 E3FFFF02   72C1C4E2 C4000100 0E030400 00404040   CLEAR TO EXIT....ADSD........
 000360   40404040 40404040 40D34000 FF00FE00   1800504A 00E2D5C1 D4C5D440 40404040            L .......&..SNAMEM
 000380   40404040 40404040 40404040 40404040   40404040 40000600 00000C00 12D340C6                        ........L F
 0003A0   D5C1D4C5 D4404040 40404040 40404040   40404040 40404040 40404040 40404000   NAMEM                          .
 0003C0   06000000 21000CD3 40D9C5D8 D4404040   40404040 40404040 40404040 40404040   .......L REQM
 0003E0   40404040 40404040 40000400 00003000   01D340C1 C3C3E3D4 40404040 40404040            ........L ACCTM
 000400   40404040 40404040 40404040 40404040   40404000 05000000 340005D9 F0D7D9E3                      ........R0PRT
 000420   D9D44040 40404040 40404040 40404040   40404040 40404040 40404040 40000500   RM                           ...
 000440   00003C00 04D340E2 E4D4E3E3 D3D44040   40404040 40404040 40404040 40404040   .....L SUMTTLM
 000460   40404040 40404000 07000000 43004FD3   40E2E4D4 D3D5D440 40404040 40404040          ........L SUMLNM
 000480   40404040 40404040 40404040 40404040   40000600 01009500 4FD340E2 E4D4D3D5                    .....n..L SUMLN
 0004A0   D4404040 40404040 40404040 40404040   40404040 40404040 40404000 06000200   M                          .....
 0004C0   E7004FD3 40E2E4D4 D3D5D440 40404040   40404040 40404040 40404040 40404040   X..L SUMLNM
 0004E0   40404040 40000600 03013900 4FD340E2   E4D4D3D5 D4404040 40404040 40404040        ........L SUMLNM
 000500   40404040 40404040 40404040 40404000   06000401 8B004FD3 40E2E4D4 D3D5D440                  ........L SUMLNM
 000520   40404040 40404040 40404040 40404040   40404040 40404040 40000600 0501DD00                            .......
 000540   4FD340E2 E4D4D3D5 D4404040 40404040   40404040 40404040 40404040 40404040   .L SUMLNM
 000560   40404000 06000602 2F004FD3 40D4E2C7   C9D5E5D4 40404040 40404040 40404040      ........L MSGINVM
 000580   40404040 40404040 40404040 40000700   00028100 41D340D4 E2C7D440 40404040                .....a..L MSGM
 0005A0   40404040 40404040 40404040 40404040   40404040 40404000 04000002 C5003CD3                          .....E..L
 0005C0   40004F00 00000000 00C1C3C3 E3C4E3D3   400AA603 7A020E06 13C04A00 B0001850    ........ACCTDTL .w.:..........&
 0005E0   FFFE1000 00000005 40000C00 00000000   00000000 00000000 00000000 00000000   ........ .......................
 000600   00000000 00000000 00000000 40404040   00000008 02F80000 C1C3C3D6 E4D5E3E2   ............    .....8..ACCOUNTS
 000620   0000000A 03F00012 C4C5E3C1 C9D3E240   D6C60000 000E02F0 001DC1C3 C3D6E4D5   .....0..DETAILS OF.....0..ACCOUN
 000640   E340D5E4 D4C2C5D9 00000005 01F8002C   00000001 00F00032 00000007 02F800A0   T NUMBER.....8.......0.......8..
 000660   E2E4D9D5 C1D4C500 00000102 F800AD7A   00000012 014000AF 00000009 02F000C2   SURNAME.....8..:..... .......0.B
 000680   4DF1F840 C3C8D9E2 5D000000 0502F800   CCE3C9E3 D3C50000 000102F8 00D77A00   (18 CHRS).....8..TITLE.....8.P:.
 0006A0   00000401 4000D900 00001102 F000DE4D   F440C3C8 D9E240D6 D7E3C9D6 D5C1D35D   .... .R.....0..(4 CHRS OPTIONAL)
 0006C0   0000000A 02F800F0 C6C9D9E2 E340D5C1   D4C50000 000102F8 00FD7A00 00000C01   .....8.0FIRST NAME.....8..:.....
 0006E0   4000FF00 00000100 F0010C00 00000902   F001124D F1F240C3 C8D9E25D 0000000C    .......0.......0..(12 CHRS)....
 000700   02F8011C D4C9C4C4 D3C540C9 D5C9E37A   00000001 01400129 00000001 00F0012B   .8..MIDDLE INIT:..... .......0..
 000720   00000011 02F0012E 4DF140C3 C8D94040   D6D7E3C9 D6D5C1D3 5D000000 0902F801   .....0..(1 CHR  OPTIONAL).....8.
1000740   40E3C5D3 C5D7C8D6 D5C50000 000102F8   014D7A00 00000A0D 50014F00 00000100    TELEPHONE.....8.(:.....&.......
 000760   F0015A00 00000902 F001624D F1F040C4   C9C7E25D 0000000E 02F80190 C1C4C4D9   0.!.....0..(10 DIGS).....8..ADDR
 000780   C5E2E240 D3C9D5C5 F17A0000 00180140   019F0000 000902F0 01B84DF2 F440C3C8   ESS LINE1:..... .......0..(24 CH
 0007A0   D9E25D00 00000602 F801E8D3 C9D5C5F2   7A000000 18014001 EF000000 0902F002   RS).....8.YLINE2:..... .......0.
 0007C0   084DF2F4 40C3C8D9 E25D0000 000602F8   0238D3C9 D5C5F37A 00000018 0140023F   .(24 CHRS).....8..LINE3:..... ..
 0007E0   00000012 02F00258 4DF2F440 C3C8D9E2   40D6D7E3 C9D6D5C1 D35D0000 000E02F8   .....0..(24 CHRS OPTIONAL).....8
 000800   02D0C3C1 D9C4E240 C9E2E2E4 C5C4407A   00000001 0D5002DF 00000001 00F002E1   ..CARDS ISSUED :.....&.......0..
 000820   00000008 02F002E9 4DF140E3 D640F95D   0000000C 02F802FC C3C1D9C4 40C3D6C4   .....0.Z(1 TO 9).....8..CARD COD
 000840   C540407A 00000001 01400309 00000001   00F0030B 00000007 02F0030E 4DF140C3   E  :..... .......0.......0..(1 C
 000860   C8D95D00 00000E02 F80320C4 C1E3C540   C9E2E2E4 C5C44040 7A000000 020D5003   HR).....8..DATE ISSUED  :.....&.
 000880   2F000000 020D5003 32000000 020D5003   35000000 0B02F003 38404DD4 D440C4C4   ......&.......&.......0.. (MM DD
 0008A0   40E8E85D 0000000C 02F8034C D9C5C1E2   D6D540C3 D6C4C57A 00000001 01400359    YY).....8.<REASON CODE:..... ..
 0008C0   00000001 00F0035B 00000009 02F0035E   4DD56BD3 6BE26BD9 5D000000 0E02F803   .....0.$.....0.;(N,L,S,R).....8.
 0008E0   70C1D7D7 D9D6E5C5 C440C2E8 40407A00   00000301 40037F00 00000100 F0038300   .APPROVED BY  :..... .".....0.c.
 000900   00000802 F003894D F340C3C8 D9E25D00   00003402 F00410E4 D7E3D640 F440D6E3   ....0.i(3 CHRS).....0..UPTO 4 OT
 000920   C8C5D9E2 40E6C8D6 40D4C1E8 40C3C8C1   D9C7C540 4DC5C1C3 C840F3F2 40C3C8D9   HERS WHO MAY CHARGE (EACH 32 CHR
 000940   E240D6D7 E3C9D6D5 C1D35D00 00000302   F80464D6 F17A0000 00200140 04680000   S OPTIONAL).....8..O1:..... ....
 000960   000302F8 0489D6F2 7A000000 20014004   8D000000 0100F004 AE000000 0302F804   ...8.iO2:..... .......0.......8.
 000980   B4D6F37A 00000020 014004B8 00000003   02F804D9 D6F47A00 00002001 4004DD00   .O3:..... .......8.RO4:..... ...
 0009A0   00000100 F004FE00 00000E02 F80500E2   D7C5C3C9 C1D340C3 D6C4C5F1 7A000000   ....0.......8..SPECIAL CODE1:...
 0009C0   01014005 0F000000 0602F805 11C3D6C4   C5F27A00 00000101 40051800 00000602   .. .......8..CODE2:..... .......
 0009E0   F8051AC3 D6C4C5F3 7A000000 01014005   21000000 1502F005 234DC5C1 C3C840F1   8..CODE3:..... .......0..(EACH 1
 000A00   40C3C8D9 40D6D7E3 C9D6D5C1 D35D0000   002103F0 0550D5D6 40C8C9E2 E3D6D9E8    CHR OPTIONAL).....0.&NO HISTORY
 000A20   40C1E5C1 C9D3C1C2 D3C540C1 E340E3C8   C9E240E3 C9D4C500 00000100 F0057200    AVAILABLE AT THIS TIME.....0...
 000A40   00000C03 F00578C3 C8C1D9C7 C540D3C9   D4C9E300 00000801 F0058500 00000100   ....0..CHARGE LIMIT.....0.e.....
 000A60   F0058E00 00000603 F00594E2 E3C1E3E4   E2000000 0201F005 9B000000 0100F005   0.......0.mSTATUS.....0.......0.
 000A80   9E000000 1A01F805 F0000000 0101F006   0B000000 0100F006 0D000000 4E02F006   ......8.0.....0.......0.....+.0.
 000AA0   90D5D6E3 C57A6040 C4C5E3C1 C9D3E240   C9D540C2 D9C1C3D2 C5E3E240 E2C8D6E6   .NOTE:- DETAILS IN BRACKETS SHOW
 000AC0   40D4C1E7 C9D4E4D4 40D5D64B 40C3C8C1   D9C1C3E3 C5D9E240 C1D3D3D6 E6C5C440    MAXIMUM NO. CHARACTERS ALLOWED
 000AE0   C1D5C440 C9C640D6 D7E3C9D6 D5C1D300   00003C01 F8073000 00000100 F0076DFF   AND IF OPTIONAL.....8.......0._.
 000B00   FF0566C1 C4E2C400 02002002 13000040   40404040 40404040 404040D3 4000FF00   ...ADSD........            L ...
 000B20   FE001800 504A00E3 C9E3D3C5 C4404040   40404040 40404040 40404040 40404040   ....&..TITLED
 000B40   40404040 40404000 06000000 0C000AD3   40C1C3C3 E3C44040 40404040 40404040          ........L ACCTD
 000B60   40404040 40404040 40404040 40404040   40000500 00001900 05D340E2 D5C1D4C5                    ........L SNAME
 000B80   C4404040 40404040 40404040 40404040   40404040 40404040 40404000 06000000   D                          .....
 000BA0   210012D3 40E3E3D3 C4404040 40404040   40404040 40404040 40404040 40404040   ...L TTLD
 000BC0   40404040 40000400 00003600 04D340C6   D5C1D4C5 C4404040 40404040 40404040        ........L FNAMED
 000BE0   40404040 40404040 40404040 40404000   06000000 3D000CD3 40D4C9C4 40404040                  ........L MID
 000C00   40404040 40404040 40404040 40404040   40404040 40404040 40000300 00004C00                            .....<.
 000C20   01D340E3 C5D3C440 40404040 40404040   40404040 40404040 40404040 40404040   .L TELD
 000C40   40404000 04000000 50000AD9 F0C1C4C4   D9F1C440 40404040 40404040 40404040      .....&..R0ADDR1D
 000C60   40404040 40404040 40404040 40000600   00005D00 18D340C1 C4C4D9F2 C4404040                .....)..L ADDR2D
 000C80   40404040 40404040 40404040 40404040   40404040 40404000 06000000 780018D3                          ........L
 000CA0   40C1C4C4 D9F3C440 40404040 40404040   40404040 40404040 40404040 40404040    ADDR3D
 000CC0   40000600 00009300 18D340C3 C1D9C4E2   C4404040 40404040 40404040 40404040    .....l..L CARDSD
 000CE0   40404040 40404040 40404000 06000000   AE0001D9 F0C3C3D6 C4C5C440 40404040              ........R0CCODED
 000D00   40404040 40404040 40404040 40404040   40404040 40000600 0000B200 01D340C9                        ........L I
 000D20   D4D6C440 40404040 40404040 40404040   40404040 40404040 40404040 40404000   MOD                            .
 000D40   04000000 B60002D9 F0C9C4C1 E8C44040   40404040 40404040 40404040 40404040   .......R0IDAYD
 000D60   40404040 40404040 40000500 0000BB00   02D9F0C9 E8D9C440 40404040 40404040            ........R0IYRD
 000D80   40404040 40404040 40404040 40404040   40404000 04000000 C00002D9 F0D9E2D5                      ........R0RSN
 000DA0   C4404040 40404040 40404040 40404040   40404040 40404040 40404040 40000400   D                            ...
 000DC0   0000C500 01D340C1 D7D7D9C4 40404040   40404040 40404040 40404040 40404040   ..E..L APPRD
 000DE0   40404040 40404000 05000000 C90003D3   40C1E4E3 C8F1C440 40404040 40404040          .....I..L AUTH1D
 000E00   40404040 40404040 40404040 40404040   40000600 0000CF00 20D340C1 E4E3C8F2                    ........L AUTH2
 000E20   C4404040 40404040 40404040 40404040   40404040 40404040 40404000 06000000   D                          .....
 000E40   F20020D3 40C1E4E3 C8F3C440 40404040   40404040 40404040 40404040 40404040   2..L AUTH3D
 000E60   40404040 40000600 00011500 20D340C1   E4E3C8F4 C4404040 40404040 40404040        ........L AUTH4D
 000E80   40404040 40404040 40404040 40404000   06000001 380020D3 40E2C3D6 C4C5F1C4                  ........L SCODE1D
 000EA0   40404040 40404040 40404040 40404040   40404040 40404040 40000700 00015B00                            .....$.
1000EC0   01D340E2 C3D6C4C5 F2C44040 40404040   40404040 40404040 40404040 40404040   .L SCODE2D
 000EE0   40404000 07000001 5F0001D3 40E2C3D6   C4C5F3C4 40404040 40404040 40404040      .....^..L SCODE3D
 000F00   40404040 40404040 40404040 40000700   00016300 01D340C8 C9E2E3E3 D3C44040                ........L HISTTLD
 000F20   40404040 40404040 40404040 40404040   40404040 40404000 07000001 670021D3                          ........L
 000F40   40D3C9D4 E3E3D3C4 40404040 40404040   40404040 40404040 40404040 40404040    LIMTTLD
 000F60   40000700 00018B00 0CD340D3 C9D4C9E3   C4404040 40404040 40404040 40404040    ........L LIMITD
 000F80   40404040 40404040 40404000 06000001   9A0008D3 40E2E3C1 E3E3D3C4 40404040              ........L STATTLD
 000FA0   40404040 40404040 40404040 40404040   40404040 40000700 0001A500 06D340E2                        .....v..L S
 000FC0   E3C1E3C4 40404040 40404040 40404040   40404040 40404040 40404040 40404000   TATD                           .
 000FE0   05000001 AE0002D3 40E5C6E8 E3D3C440   40404040 40404040 40404040 40404040   .......L VFYTLD
 001000   40404040 40404040 40000600 0001B300   1AD340E5 C6E8C440 40404040 40404040            ........L VFYD
 001020   40404040 40404040 40404040 40404040   40404000 04000001 D00001D3 40D4E2C7                      ........L MSG
 001040   C4404040 40404040 40404040 40404040   40404040 40404040 40404040 40000400   D                            ...
 001060   0001D400 3CD34000 4F000000 000000C1   C3C3E3C5 D9D94002 67006E01 150216C0   ..M..L ........ACCTERR ...>.....
 001080   4A000000 1850FFFE 10000000 00016F00   0C000000 00000000 00000000 00000000   .....&........?.................
 0010A0   00000000 00000000 00000000 00000000   00004040 40400000 001A02F0 00F0C1C3   ..................    .....0.0AC
 0010C0   C3D6E4D5 E340C6C9 D3C57A40 C5D9D9D6   D940D9C5 D7D6D9E3 00000008 02F00190   COUNT FILE: ERROR REPORT.....0..
 0010E0   C5D9D9D6 D940C1E3 0000000A 01F80199   00000008 01F801A4 0000004F 01F80230   ERROR AT.....8.r.....8.u.....8..
 001100   0000004F 01F80280 0000004F 01F802D0   0000003C 02F00370 D7D3C5C1 E2C540C1   .....8.......8.......0..PLEASE A
 001120   E2D240E8 D6E4D940 E2E4D7C5 D9E5C9E2   D6D940E3 D640C3D6 D5E5C5E8 40E3C8C9   SK YOUR SUPERVISOR TO CONVEY THI
 001140   E240C9D5 C6D6D9D4 C1E3C9D6 D540E3D6   40E3C8C5 00000011 02F003C0 D6D7C5D9   S INFORMATION TO THE.....0..OPER
 001160   C1E3C9D6 D5E240E2 E3C1C6C6 4B000000   4002F004 60E3C8C5 D540D7D9 C5E2E240   ATIONS STAFF.... .0.-THEN PRESS
 001180   7FC3D3C5 C1D97F4B 4040E3C8 C9E240E3   C5D9D4C9 D5C1D340 C9E240D5 D640D3D6   "CLEAR".  THIS TERMINAL IS NO LO
 0011A0   D5C7C5D9 40E4D5C4 C5D940C3 D6D5E3D9   D6D340D6 C6000000 1702F004 B0E3C8C5   NGER UNDER CONTROL OF.....0..THE
 0011C0   407FD5C1 C3E37F40 C1D7D7D3 C9C3C1E3   C9D6D54B FFFF00F8 C1C4E2C4 00030005    "NACT" APPLICATION....8ADSD....
 0011E0   011A0000 40404040 40404040 40404040   D34000FF 00FE0018 00504A00 C4C1E3C5   ....            L .......&..DATE
 001200   C5404040 40404040 40404040 40404040   40404040 40404040 40404040 00050000   E                           ....
 001220   000C000A D340E3C9 D4C5C540 40404040   40404040 40404040 40404040 40404040   ....L TIMEE
 001240   40404040 40400005 00000019 0008D340   D4E2C7C5 40404040 40404040 40404040         ........L MSGE
 001260   40404040 40404040 40404040 40404040   00040001 0024004F D340D4E2 C7C54040                   ........L MSGE
 001280   40404040 40404040 40404040 40404040   40404040 40404040 40400004 00020076                             ......
 0012A0   004FD340 D4E2C7C5 40404040 40404040   40404040 40404040 40404040 40404040   ..L MSGE
 0012C0   40404040 00040003 00C8004F D340FFFF   FFFF0000 00000000 00000000 00000000       .....H..L ..................
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0                                        $PRIV000 TITLE 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '  00000010
                                         *                 Produced by ASMDASM on 2024.102 at 15:30:01           00000020
                                         $PRIV000010 CSECT                                                       00000030
 00000000 D5C1 C3E3 E2C5 E340                     DC      CL8'NACTSET '                                          00000040
 00000008 0032                                    DC      H'0050'                                                00000050
 0000000A 4040 004F                               STH     R4,79                          PSA reference           00000060
 0000000E 0000                                    DC      H'0'                                                   00000070
 00000010 0000 0000                               DC      F'0'                                                   00000080
 00000014 C1C3 C3E3 D4D5 E440                     DC      CL8'ACCTMNU '                                          00000090
 0000001C 05B5                                    BALR    R11,R5                         Nonstd linkage          00000100
 0000001E 0190                                    DC      H'0400'                                                00000110
 00000020 02FF                                    DC      H'0767'                                                00000120
 00000022 05A3                                    BALR    R10,R3                         Nonstd linkage          00000130
 00000024 C04A 0155 0018                          NIHF    R4,X'01550018'                                         00000140
 0000002A 50FF FE10                               ST      R15,3600(R15,R15)                                      00000150
 0000002E 0000                                    DC      H'0'                                                   00000160
 00000030 0000 0343                               DC      F'00835'                                               00000170
 00000034 000C 0000                               DC      XL4'000C0000'                                          00000180
 00000038 0000 0000                               DC      F'0'                                                   00000190
 0000003C 0000 0000                               DC      F'0'                                                   00000200
 00000040 0000 0000                               DC      F'0'                                                   00000210
 00000044 0000 0000                               DC      F'0'                                                   00000220
 00000048 0000 0000                               DC      F'0'                                                   00000230
 0000004C 0000 0000                               DC      F'0'                                                   00000240
 00000050 0000 0000                               DC      F'0'                                                   00000250
 00000054 0000 00                                 DC      XL3'000000'                                            00000260
 00000057 4040 4040                               DC      CL4'    '                                              00000270
 0000005B 00                                      DC      XL1'00'                                                00000280
 0000005C 0000                                    DC      H'0'                                                   00000290
 0000005E 0D02                                    BASR    R0,R2                          Nonstd linkage          00000300
 00000060 F800 00C1 C3C3                          ZAP     193(1),963(1,R12)              PSA reference           00000310
 00000066 D6E4 D5E3 E240 D4C5                     DC      CL10'OUNTS MENU'                                       00000320
          D5E4
 00000070 0000 0001                               DC      F'00001'                                               00000330
 00000074 00                                      DC      XL1'00'                                                00000340
 00000075 F0                                      DC      CL1'0'                                                 00000350
 00000076 000E                                    DC      H'0014'                                                00000360
 00000078 0000 003C                               DC      F'00060'                                               00000370
 0000007C 02                                      DC      XL1'02'                                                00000380
 0000007D F0                                      DC      CL1'0'                                                 00000390
 0000007E 00                                      DC      XL1'00'                                                00000400
 0000007F A3E3 D640 E2C5 C1D9                     DC      CL32'tTO SEARCH BY NAME, ENTER SURNAM'                 00000410
          C3C8 40C2 E840 D5C1
          D4C5 6B40 C5D5 E3C5
          D940 E2E4 D9D5 C1D4
 0000009F C540 C1D5 C440 C9C6                     DC      CL29'E AND IF REQUIRED, FIRST NAME'                    00000420
          40D9 C5D8 E4C9 D9C5
          C46B 40C6 C9D9 E2E3
          40D5 C1D4 C5
 000000BC 0000 0007                               DC      F'00007'                                               00000430
 000000C0 02                                      DC      XL1'02'                                                00000440
 000000C1 F8                                      DC      CL1'8'                                                 00000450
 000000C2 0146                                    DC      H'0326'                                                00000460
 000000C4 E2E4 D9D5 C1D4 C5                       DC      CL7'SURNAME'                                           00000470
 000000CB 00                                      DC      XL1'00'                                                00000480
 000000CC 0000                                    DC      H'0'                                                   00000490
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0000000CE 0102                                    UPT                                                            00000500
 000000D0 F801 527A 0000                          ZAP     634(1,R5),0(2)                 PSA reference           00000510
 000000D6 0012                                    DC      H'0018'                                                00000520
 000000D8 01                                      DC      XL1'01'                                                00000530
 000000D9 40                                      DC      CL1' '                                                 00000540
 000000DA 0154                                    DC      H'0340'                                                00000550
 000000DC 0000 0001                               DC      F'00001'                                               00000560
 000000E0 00                                      DC      XL1'00'                                                00000570
 000000E1 F0                                      DC      CL1'0'                                                 00000580
 000000E2 0167                                    DC      H'0359'                                                00000590
 000000E4 0000 0019                               DC      F'00025'                                               00000600
 000000E8 02                                      DC      XL1'02'                                                00000610
 000000E9 F0                                      DC      CL1'0'                                                 00000620
 000000EA 01                                      DC      XL1'01'                                                00000630
 000000EB 6C4D F140 E3D6 40F1                     DC      CL26'%(1 TO 18 ALPHABETIC CHRS)'                       00000640
          F840 C1D3 D7C8 C1C2
          C5E3 C9C3 40C3 C8D9
          E25D
 00000105 00                                      DC      XL1'00'                                                00000650
 00000106 0000                                    DC      H'0'                                                   00000660
 00000108 0D02                                    BASR    R0,R2                          Nonstd linkage          00000670
 0000010A F801 96C6 C9D9                          ZAP     1734(1,R9),2521(2,R12)                                 00000680
 00000110 E2E3 40D5 C1D4 C540                     DC      CL10'ST NAME  :'                                       00000690
          407A
 0000011A 0000                                    DC      H'0'                                                   00000700
 0000011C 000C 01                                 DC      XL3'000C01'                                            00000710
 0000011F 40                                      DC      CL1' '                                                 00000720
 00000120 01                                      DC      XL1'01'                                                00000730
 00000121 A4                                      DC      CL1'u'                                                 00000740
 00000122 0000                                    DC      H'0'                                                   00000750
 00000124 0001 00                                 DC      XL3'000100'                                            00000760
 00000127 F0                                      DC      CL1'0'                                                 00000770
 00000128 01B1 0000                               DC      XL4'01B10000'                                          00000780
 0000012C 0022 02                                 DC      XL3'002202'                                            00000790
 0000012F F0                                      DC      CL1'0'                                                 00000800
 00000130 01BC                                    DC      H'0444'                                                00000810
 00000132 4DF1 40E3 D640 F1F2                     DC      CL32'(1 TO 12 ALPHABETIC CHRS OPTIONA'                 00000820
          40C1 D3D7 C8C1 C2C5
          E3C9 C340 C3C8 D9E2
          40D6 D7E3 C9D6 D5C1
 00000152 D35D 0000 003C                          MVZ     0(94),60                       PSA reference           00000830
 00000158 02                                      DC      XL1'02'                                                00000840
 00000159 F0                                      DC      CL1'0'                                                 00000850
 0000015A 0233                                    DC      H'0563'                                                00000860
 0000015C E3D6 40D7 D9D6 C3C5                     DC      CL32'TO PROCESS AN ACCOUNT, ENTER REQ'                 00000870
          E2E2 40C1 D540 C1C3
          C3D6 E4D5 E36B 40C5
          D5E3 C5D9 40D9 C5D8
 0000017C E4C5 E2E3 40E3 E8D7                     DC      CL28'UEST TYPE AND ACCOUNT NUMBER'                     00000880
          C540 C1D5 C440 C1C3
          C3D6 E4D5 E340 D5E4
          D4C2 C5D9
 00000198 0000 000D                               DC      F'00013'                                               00000890
 0000019C 02                                      DC      XL1'02'                                                00000900
 0000019D F8                                      DC      CL1'8'                                                 00000910
 0000019E 02                                      DC      XL1'02'                                                00000920
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
00000019F D6D9 C5D8 E4C5 E2E3                     DC      CL14'OREQUEST TYPE:'                                   00000930
          40E3 E8D7 C57A
 000001AD 00                                      DC      XL1'00'                                                00000940
 000001AE 0000                                    DC      H'0'                                                   00000950
 000001B0 0101                                    PR                                                             00000960
 000001B2 4002 E400                               STH     R0,1024(R2,R14)                                        00000970
 000001B6 0000                                    DC      H'0'                                                   00000980
 000001B8 0100                                    DC      H'0256'                                                00000990
 000001BA F002 E600 0000                          SRP     1536(1,R14),0,2                PSA reference           00001000
 000001C0 2F02                                    SWR     FR0,FR2                                                00001010
 000001C2 F002 EF4D C460                          SRP     3917(1,R14),1120(R12),2                                00001020
 000001C8 C4C9 E2D7 D3C1 E86B                     DC      CL32'DISPLAY, A-ADD, M-MODIFY, X-DELE'                 00001030
          40C1 60C1 C4C4 6B40
          D460 D4D6 C4C9 C6E8
          6B40 E760 C4C5 D3C5
 000001E8 E3C5 6B40 D760 D7D9                     DC      CL12'TE, P-PRINT)'                                     00001040
          C9D5 E35D
 000001F4 0000 0007                               DC      F'00007'                                               00001050
 000001F8 02                                      DC      XL1'02'                                                00001060
 000001F9 F8                                      DC      CL1'8'                                                 00001070
 000001FA 0326                                    DC      H'0806'                                                00001080
 000001FC C1C3 C3D6 E4D5 E3                       DC      CL7'ACCOUNT'                                           00001090
 00000203 00                                      DC      XL1'00'                                                00001100
 00000204 0000                                    DC      H'0'                                                   00001110
 00000206 0102                                    UPT                                                            00001120
 00000208 F803 327A 0000                          ZAP     634(1,R3),0(4)                 PSA reference           00001130
 0000020E 0005                                    DC      H'0005'                                                00001140
 00000210 0D50                                    BASR    R5,0                           Address set             00001150
 00000212 0334                                    DC      H'0820'                                                00001160
 00000214 0000 0001                               DC      F'00001'                                               00001170
 00000218 00                                      DC      XL1'00'                                                00001180
 00000219 F0                                      DC      CL1'0'                                                 00001190
 0000021A 033A                                    DC      H'0826'                                                00001200
 0000021C 0000 0010                               DC      F'00016'                                               00001210
 00000220 02                                      DC      XL1'02'                                                00001220
 00000221 F0                                      DC      CL1'0'                                                 00001230
 00000222 033F                                    DC      H'0831'                                                00001240
 00000224 4DF1 F0F0 F0F0 40E3                     DC      CL16'(10000 TO 79999)'                                 00001250
          D640 F7F9 F9F9 F95D
 00000234 0000 000D                               DC      F'00013'                                               00001260
 00000238 02                                      DC      XL1'02'                                                00001270
 00000239 F8                                      DC      CL1'8'                                                 00001280
 0000023A 0376                                    DC      H'0886'                                                00001290
 0000023C D7D9 C9D5 E3C5 D940                     DC      CL13'PRINTER ID  :'                                    00001300
          C9C4 4040 7A
 00000249 00                                      DC      XL1'00'                                                00001310
 0000024A 0000                                    DC      H'0'                                                   00001320
 0000024C 0401                                    SPM     R0                                                     00001330
 0000024E 4003 8400                               STH     R0,1024(R3,R8)                                         00001340
 00000252 0000                                    DC      H'0'                                                   00001350
 00000254 0100                                    DC      H'0256'                                                00001360
 00000256 F003 8900 0000                          SRP     2304(1,R8),0,3                 PSA reference           00001370
 0000025C 3002                                    LPER    FR0,FR2                                                00001380
 0000025E F003 8F4D F140                          SRP     3917(1,R8),320(R15),3                                  00001390
 00000264 E3D6 40F4 40C3 C8C1                     DC      CL32'TO 4 CHARACTERS (REQUIRED FOR PR'                 00001400
          D9C1 C3E3 C5D9 E240
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0         4DD9 C5D8 E4C9 D9C5
          C440 C6D6 D940 D7D9
 00000284 C9D5 E340 D9C5 D8E4                     DC      CL13'INT REQUEST))'                                    00001410
          C5E2 E35D 5D
 00000291 00                                      DC      XL1'00'                                                00001420
 00000292 0000                                    DC      H'0'                                                   00001430
 00000294 4F01 F804                               CVB     R0,2052(R1,R15)                                        00001440
 00000298 1000                                    LPR     R0,R0                                                  00001450
 0000029A 0000                                    DC      H'0'                                                   00001460
 0000029C 4F01 F004                               CVB     R0,4(R1,R15)                                           00001470
 000002A0 6000 0000                               STD     FR0,0                          PSA reference           00001480
 000002A4 4F01 F004                               CVB     R0,4(R1,R15)                                           00001490
 000002A8 B000 0000                               DC      XL4'B0000000'                                          00001500
 000002AC 4F01 F005                               CVB     R0,5(R1,R15)                                           00001510
 000002B0 0000 0000                               DC      F'0'                                                   00001520
 000002B4 4F01 F005                               CVB     R0,5(R1,R15)                                           00001530
 000002B8 5000 0000                               ST      R0,0                           PSA reference           00001540
 000002BC 4F01 F005                               CVB     R0,5(R1,R15)                                           00001550
 000002C0 A000 0000                               DC      XL4'A0000000'                                          00001560
 000002C4 4F01 F005                               CVB     R0,5(R1,R15)                                           00001570
 000002C8 F000 0000 4101                          SRP     0(1),257(R4),0                 PSA reference           00001580
 000002CE F006 4000 0000                          SRP     0(1,R4),0,6                    PSA reference           00001590
 000002D4 3C01                                    MDER    FR0,FR1                                                00001600
 000002D6 F806 9000 0000                          ZAP     0(1,R9),0(7)                   PSA reference           00001610
 000002DC 0100                                    DC      H'0256'                                                00001620
 000002DE F006 CD00 0000                          SRP     3328(1,R12),0,6                PSA reference           00001630
 000002E4 0E02                                    MVCL    R0,R2                                                  00001640
 000002E6 F007 30C5 D5E3                          SRP     197(1,R3),1507(R13),7                                  00001650
 000002EC C5D9 40C4 C1E3 C140                     DC      CL11'ER DATA AND'                                      00001660
          C1D5 C4
 000002F7 00                                      DC      XL1'00'                                                00001670
 000002F8 0000                                    DC      H'0'                                                   00001680
 000002FA 2902                                    CDR     FR0,FR2                                                00001690
 000002FC F807 3FD7 D9C5                          ZAP     4055(1,R3),2501(8,R13)                                 00001700
 00000302 E2E2 40C5 D5E3 C5D9                     DC      CL32'SS ENTER FOR SEARCH OR ACCOUNT R'                 00001710
          40C6 D6D9 40E2 C5C1
          D9C3 C840 D6D9 40C1
          C3C3 D6E4 D5E3 40D9
 00000322 C5D8 E4C5 E2E3                          DC      CL6'EQUEST'                                            00001720
 00000328 0000 0002                               DC      F'00002'                                               00001730
 0000032C 02                                      DC      XL1'02'                                                00001740
 0000032D F0                                      DC      CL1'0'                                                 00001750
 0000032E 0769                                    BCR     6,R9                                                   00001760
 00000330 D6D9 0000 0013                          OC      0(218),19                      PSA reference           00001770
 00000336 02                                      DC      XL1'02'                                                00001780
 00000337 F8                                      DC      CL1'8'                                                 00001790
 00000338 076C                                    BCR     6,R12                                                  00001800
 0000033A D7D9 C5E2 E240 C3D3                     DC      CL19'PRESS CLEAR TO EXIT'                              00001810
          C5C1 D940 E3D6 40C5
          E7C9 E3
 0000034D FF                                      DC      XL1'FF'                                                00001820
 0000034E FF02                                    DC      XL2'FF02'                                              00001830
 00000350 72                                      DC      XL1'72'                                                00001840
 00000351 C1C4 E2C4                               DC      CL4'ADSD'                                              00001850
 00000355 00                                      DC      XL1'00'                                                00001860
 00000356 0100                                    DC      H'0256'                                                00001870
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000358 0E03                                    MVCL    R0,R3                                                  00001880
 0000035A 0400                                    SPM     R0                                                     00001890
 0000035C 00                                      DC      XL1'00'                                                00001900
 0000035D 4040 4040 4040 4040                     DC      CL14'            L '                                   00001910
          4040 4040 D340
 0000036B 00                                      DC      XL1'00'                                                00001920
 0000036C FF00 FE00                               DC      XL4'FF00FE00'                                          00001930
 00000370 1800                                    LR      R0,R0                                                  00001940
 00000372 504A 00E2                               ST      R4,226(R10)                                            00001950
 00000376 D5C1 D4C5 D440 4040                     DC      CL31'NAMEM                          '                  00001960
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 00000395 00                                      DC      XL1'00'                                                00001970
 00000396 0600                                    BCTR    R0,0                                                   00001980
 00000398 0000                                    DC      H'0'                                                   00001990
 0000039A 0C00                                    BASSM   R0,0                           Address set             00002000
 0000039C 12D3                                    LTR     R13,R3                                                 00002010
 0000039E 40C6 D5C1 D4C5 D440                     DC      CL32' FNAMEM                         '                 00002020
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 000003BE 4000 0600                               STH     R0,1536                        PSA reference           00002030
 000003C2 0000                                    DC      H'0'                                                   00002040
 000003C4 2100                                    LNDR    FR0,FR0                                                00002050
 000003C6 0CD3                                    BASSM   R13,R3                         Nonstd linkage          00002060
 000003C8 40D9 C5D8 D440 4040                     DC      CL32' REQM                           '                 00002070
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 000003E8 4000 0400                               STH     R0,1024                        PSA reference           00002080
 000003EC 0000                                    DC      H'0'                                                   00002090
 000003EE 3000                                    LPER    FR0,FR0                                                00002100
 000003F0 01                                      DC      XL1'01'                                                00002110
 000003F1 D340 C1C3 C3E3 D440                     DC      CL32'L ACCTM                         '                 00002120
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000411 4040                                    DC      CL2'  '                                                00002130
 00000413 00                                      DC      XL1'00'                                                00002140
 00000414 0500                                    BALR    R0,0                           Address set             00002150
 00000416 0000                                    DC      H'0'                                                   00002160
 00000418 3400                                    HER     FR0,FR0                                                00002170
 0000041A 05D9                                    BALR    R13,R9                         Nonstd linkage          00002180
 0000041C F0D7 D9E3 D9D4 4040                     DC      CL32'0PRTRM                          '                 00002190
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 0000043C 4000 0500                               STH     R0,1280                        PSA reference           00002200
 00000440 0000                                    DC      H'0'                                                   00002210
 00000442 3C00                                    MDER    FR0,FR0                                                00002220
 00000444 04D3                                    SPM     R13                                                    00002230
 00000446 40E2 E4D4 E3E3 D3D4                     DC      CL32' SUMTTLM                        '                 00002240
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000466 4000 0700                               STH     R0,1792                        PSA reference           00002250
 0000046A 0000                                    DC      H'0'                                                   00002260
 0000046C 4300 4FD3                               IC      R0,4051(,R4)                                           00002270
 00000470 40E2 E4D4 D3D5 D440                     DC      CL32' SUMLNM                         '                 00002280
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000490 4000 0600                               STH     R0,1536                        PSA reference           00002290
 00000494 0100                                    DC      H'0256'                                                00002300
 00000496 9500 4FD3                               CLI     4051(R4),0                                             00002310
 0000049A 40E2 E4D4 D3D5 D440                     DC      CL32' SUMLNM                         '                 00002320
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 000004BA 4000 0600                               STH     R0,1536                        PSA reference           00002330
 000004BE 0200                                    DC      H'0512'                                                00002340
 000004C0 E700 4FD3 40E2                          VFS     VR0,VR0,VR4,4,3,13                                     00002350
 000004C6 E4D4 D3D5 D440 4040                     DC      CL31'UMLNM                          '                  00002360
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 000004E5 00                                      DC      XL1'00'                                                00002370
 000004E6 0600                                    BCTR    R0,0                                                   00002380
 000004E8 0301                                    DC      H'0769'                                                00002390
 000004EA 3900                                    CER     FR0,FR0                                                00002400
 000004EC 4FD3 40E2                               CVB     R13,226(R3,R4)                                         00002410
 000004F0 E4D4 D3D5 D440 4040                     DC      CL31'UMLNM                          '                  00002420
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 0000050F 00                                      DC      XL1'00'                                                00002430
 00000510 0600                                    BCTR    R0,0                                                   00002440
 00000512 0401                                    SPM     R0                                                     00002450
 00000514 8B00 4FD3                               SLA     R0,4051(R4)                                            00002460
 00000518 40E2 E4D4 D3D5 D440                     DC      CL32' SUMLNM                         '                 00002470
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000538 4000 0600                               STH     R0,1536                        PSA reference           00002480
 0000053C 0501                                    BALR    R0,R1                          Nonstd linkage          00002490
 0000053E DD00 4FD3 40E2                          TRT     4051(1,R4),226(R4)                                     00002500
 00000544 E4D4 D3D5 D440 4040                     DC      CL31'UMLNM                          '                  00002510
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 00000563 00                                      DC      XL1'00'                                                00002520
 00000564 0600                                    BCTR    R0,0                                                   00002530
 00000566 0602                                    BCTR    R0,R2                                                  00002540
 00000568 2F00                                    SWR     FR0,FR0                                                00002550
 0000056A 4FD3 40D4                               CVB     R13,212(R3,R4)                                         00002560
 0000056E E2C7 C9D5 E5D4 4040                     DC      CL31'SGINVM                         '                  00002570
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 0000058D 00                                      DC      XL1'00'                                                00002580
 0000058E 0700                                    NOPR    0                                                      00002590
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000590 0002                                    DC      H'0002'                                                00002600
 00000592 81                                      DC      CL1'a'                                                 00002610
 00000593 00                                      DC      XL1'00'                                                00002620
 00000594 41D3 40D4                               LA      R13,212(R3,R4)                                         00002630
 00000598 E2C7 D440 4040 4040                     DC      CL31'SGM                            '                  00002640
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 000005B7 00                                      DC      XL1'00'                                                00002650
 000005B8 0400                                    SPM     R0                                                     00002660
 000005BA 0002                                    DC      H'0002'                                                00002670
 000005BC C500 3CD3 4000                          BPRP    0,*+120,*-5865472                                      00002680
 000005C2 4F00 0000                               CVB     R0,0                           PSA reference           00002690
 000005C6 0000                                    DC      H'0'                                                   00002700
 000005C8 00                                      DC      XL1'00'                                                00002710
 000005C9 C1C3 C3E3 C4E3 D340                     DC      CL8'ACCTDTL '                                          00002720
 000005D1 0A                                      DC      XL1'0A'                                                00002730
 000005D2 A6                                      DC      CL1'w'                                                 00002740
 000005D3 03                                      DC      XL1'03'                                                00002750
 000005D4 7A02 0E06                               AE      FR0,3590(R2)                                           00002760
 000005D8 13C0                                    LCR     R12,R0                                                 00002770
 000005DA 4A00 B000                               AH      R0,0(,R11)                                             00002780
 000005DE 1850                                    LR      R5,R0                                                  00002790
 000005E0 FFFE                                    DC      XL2'FFFE'                                              00002800
 000005E2 1000                                    LPR     R0,R0                                                  00002810
 000005E4 0000 0005                               DC      F'00005'                                               00002820
 000005E8 4000 0C00                               STH     R0,3072                        PSA reference           00002830
 000005EC 0000 0000                               DC      F'0'                                                   00002840
 000005F0 0000 0000                               DC      F'0'                                                   00002850
 000005F4 0000 0000                               DC      F'0'                                                   00002860
 000005F8 0000 0000                               DC      F'0'                                                   00002870
 000005FC 0000 0000                               DC      F'0'                                                   00002880
 00000600 0000 0000                               DC      F'0'                                                   00002890
 00000604 0000 0000                               DC      F'0'                                                   00002900
 00000608 0000 0000                               DC      F'0'                                                   00002910
 0000060C 4040 4040                               DC      CL4'    '                                              00002920
 00000610 0000 0008                               DC      F'00008'                                               00002930
 00000614 02                                      DC      XL1'02'                                                00002940
 00000615 F8                                      DC      CL1'8'                                                 00002950
 00000616 0000                                    DC      H'0'                                                   00002960
 00000618 C1C3 C3D6 E4D5 E3E2                     DC      CL8'ACCOUNTS'                                          00002970
 00000620 0000 000A                               DC      F'00010'                                               00002980
 00000624 03                                      DC      XL1'03'                                                00002990
 00000625 F0                                      DC      CL1'0'                                                 00003000
 00000626 0012                                    DC      H'0018'                                                00003010
 00000628 C4C5 E3C1 C9D3 E240                     DC      CL10'DETAILS OF'                                       00003020
          D6C6
 00000632 0000                                    DC      H'0'                                                   00003030
 00000634 000E 02                                 DC      XL3'000E02'                                            00003040
 00000637 F0                                      DC      CL1'0'                                                 00003050
 00000638 001D                                    DC      H'0029'                                                00003060
 0000063A C1C3 C3D6 E4D5 E340                     DC      CL14'ACCOUNT NUMBER'                                   00003070
          D5E4 D4C2 C5D9
 00000648 0000 0005                               DC      F'00005'                                               00003080
 0000064C 01                                      DC      XL1'01'                                                00003090
 0000064D F8                                      DC      CL1'8'                                                 00003100
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
00000064E 002C                                    DC      H'0044'                                                00003110
 00000650 0000 0001                               DC      F'00001'                                               00003120
 00000654 00                                      DC      XL1'00'                                                00003130
 00000655 F0                                      DC      CL1'0'                                                 00003140
 00000656 0032                                    DC      H'0050'                                                00003150
 00000658 0000 0007                               DC      F'00007'                                               00003160
 0000065C 02                                      DC      XL1'02'                                                00003170
 0000065D F8                                      DC      CL1'8'                                                 00003180
 0000065E 00A0                                    DC      H'0160'                                                00003190
 00000660 E2E4 D9D5 C1D4 C5                       DC      CL7'SURNAME'                                           00003200
 00000667 00                                      DC      XL1'00'                                                00003210
 00000668 0000                                    DC      H'0'                                                   00003220
 0000066A 0102                                    UPT                                                            00003230
 0000066C F800 AD7A 0000                          ZAP     3450(1,R10),0(1)               PSA reference           00003240
 00000672 0012                                    DC      H'0018'                                                00003250
 00000674 01                                      DC      XL1'01'                                                00003260
 00000675 40                                      DC      CL1' '                                                 00003270
 00000676 00AF                                    DC      H'0175'                                                00003280
 00000678 0000 0009                               DC      F'00009'                                               00003290
 0000067C 02                                      DC      XL1'02'                                                00003300
 0000067D F0                                      DC      CL1'0'                                                 00003310
 0000067E 00                                      DC      XL1'00'                                                00003320
 0000067F C24D F1F8 40C3 C8D9                     DC      CL10'B(18 CHRS)'                                       00003330
          E25D
 00000689 00                                      DC      XL1'00'                                                00003340
 0000068A 0000                                    DC      H'0'                                                   00003350
 0000068C 0502                                    BALR    R0,R2                          Nonstd linkage          00003360
 0000068E F800 CCE3 C9E3                          ZAP     3299(1,R12),2531(1,R12)                                00003370
 00000694 D3C5 0000 0001                          MVZ     0(198),1                       PSA reference           00003380
 0000069A 02                                      DC      XL1'02'                                                00003390
 0000069B F8                                      DC      CL1'8'                                                 00003400
 0000069C 00                                      DC      XL1'00'                                                00003410
 0000069D D77A                                    DC      CL2'P:'                                                00003420
 0000069F 00                                      DC      XL1'00'                                                00003430
 000006A0 0000                                    DC      H'0'                                                   00003440
 000006A2 0401                                    SPM     R0                                                     00003450
 000006A4 4000 D900                               STH     R0,2304(,R13)                                          00003460
 000006A8 0000                                    DC      H'0'                                                   00003470
 000006AA 1102                                    LNR     R0,R2                                                  00003480
 000006AC F000 DE4D F440                          SRP     3661(1,R13),1088(R15),0                                00003490
 000006B2 C3C8 D9E2 40D6 D7E3                     DC      CL14'CHRS OPTIONAL)'                                   00003500
          C9D6 D5C1 D35D
 000006C0 0000 000A                               DC      F'00010'                                               00003510
 000006C4 02                                      DC      XL1'02'                                                00003520
 000006C5 F8                                      DC      CL1'8'                                                 00003530
 000006C6 00                                      DC      XL1'00'                                                00003540
 000006C7 F0C6 C9D9 E2E3 40D5                     DC      CL11'0FIRST NAME'                                      00003550
          C1D4 C5
 000006D2 0000                                    DC      H'0'                                                   00003560
 000006D4 0001 02                                 DC      XL3'000102'                                            00003570
 000006D7 F8                                      DC      CL1'8'                                                 00003580
 000006D8 00FD                                    DC      H'0253'                                                00003590
 000006DA 7A00 0000                               AE      FR0,0                          PSA reference           00003600
 000006DE 0C01                                    BASSM   R0,R1                          Nonstd linkage          00003610
 000006E0 4000 FF00                               STH     R0,3840(,R15)                                          00003620
 000006E4 0000 0100                               DC      F'00256'                                               00003630
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0000006E8 F001 0C00 0000                          SRP     3072(1),0,1                    PSA reference           00003640
 000006EE 0902                                    ISK     R0,R2                                                  00003650
 000006F0 F001 124D F1F2                          SRP     589(1,R1),498(R15),1                                   00003660
 000006F6 40C3 C8D9 E25D                          DC      CL6' CHRS)'                                            00003670
 000006FC 0000 000C                               DC      F'00012'                                               00003680
 00000700 02                                      DC      XL1'02'                                                00003690
 00000701 F8                                      DC      CL1'8'                                                 00003700
 00000702 011C                                    DC      H'0284'                                                00003710
 00000704 D4C9 C4C4 D3C5 40C9                     DC      CL12'MIDDLE INIT:'                                     00003720
          D5C9 E37A
 00000710 0000 0001                               DC      F'00001'                                               00003730
 00000714 01                                      DC      XL1'01'                                                00003740
 00000715 40                                      DC      CL1' '                                                 00003750
 00000716 0129                                    DC      H'0297'                                                00003760
 00000718 0000 0001                               DC      F'00001'                                               00003770
 0000071C 00                                      DC      XL1'00'                                                00003780
 0000071D F0                                      DC      CL1'0'                                                 00003790
 0000071E 012B                                    DC      H'0299'                                                00003800
 00000720 0000 0011                               DC      F'00017'                                               00003810
 00000724 02                                      DC      XL1'02'                                                00003820
 00000725 F0                                      DC      CL1'0'                                                 00003830
 00000726 012E                                    DC      H'0302'                                                00003840
 00000728 4DF1 40C3 C8D9 4040                     DC      CL17'(1 CHR  OPTIONAL)'                                00003850
          D6D7 E3C9 D6D5 C1D3
          5D
 00000739 00                                      DC      XL1'00'                                                00003860
 0000073A 0000                                    DC      H'0'                                                   00003870
 0000073C 0902                                    ISK     R0,R2                                                  00003880
 0000073E F801 40E3 C5D3                          ZAP     227(1,R4),1491(2,R12)                                  00003890
 00000744 C5D7 C8D6 D5C5                          DC      CL6'EPHONE'                                            00003900
 0000074A 0000                                    DC      H'0'                                                   00003910
 0000074C 0001 02                                 DC      XL3'000102'                                            00003920
 0000074F F8                                      DC      CL1'8'                                                 00003930
 00000750 01                                      DC      XL1'01'                                                00003940
 00000751 4D7A                                    DC      CL2'(:'                                                00003950
 00000753 00                                      DC      XL1'00'                                                00003960
 00000754 0000                                    DC      H'0'                                                   00003970
 00000756 0A0D                                    SVC     13                             ABEND                   00003980
 00000758 5001 4F00                               ST      R0,3840(R1,R4)                                         00003990
 0000075C 0000 0100                               DC      F'00256'                                               00004000
 00000760 F001 5A00 0000                          SRP     2560(1,R5),0,1                 PSA reference           00004010
 00000766 0902                                    ISK     R0,R2                                                  00004020
 00000768 F001 624D F1F0                          SRP     589(1,R6),496(R15),1                                   00004030
 0000076E 40C4 C9C7 E25D                          DC      CL6' DIGS)'                                            00004040
 00000774 0000 000E                               DC      F'00014'                                               00004050
 00000778 02                                      DC      XL1'02'                                                00004060
 00000779 F8                                      DC      CL1'8'                                                 00004070
 0000077A 0190                                    DC      H'0400'                                                00004080
 0000077C C1C4 C4D9 C5E2 E240                     DC      CL14'ADDRESS LINE1:'                                   00004090
          D3C9 D5C5 F17A
 0000078A 0000                                    DC      H'0'                                                   00004100
 0000078C 0018 01                                 DC      XL3'001801'                                            00004110
 0000078F 40                                      DC      CL1' '                                                 00004120
 00000790 019F 0000                               DC      XL4'019F0000'                                          00004130
 00000794 0009 02                                 DC      XL3'000902'                                            00004140
 00000797 F0                                      DC      CL1'0'                                                 00004150
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000798 01B8                                    DC      H'0440'                                                00004160
 0000079A 4DF2 F440 C3C8 D9E2                     DC      CL9'(24 CHRS)'                                         00004170
          5D
 000007A3 00                                      DC      XL1'00'                                                00004180
 000007A4 0000                                    DC      H'0'                                                   00004190
 000007A6 0602                                    BCTR    R0,R2                                                  00004200
 000007A8 F801 E8D3 C9D5                          ZAP     2259(1,R14),2517(2,R12)                                00004210
 000007AE C5F2 7A00 0000                          BPRP    15,*+1268,*+0                                          00004220
 000007B4 1801                                    LR      R0,R1                                                  00004230
 000007B6 4001 EF00                               STH     R0,3840(R1,R14)                                        00004240
 000007BA 0000                                    DC      H'0'                                                   00004250
 000007BC 0902                                    ISK     R0,R2                                                  00004260
 000007BE F002 084D F2F4                          SRP     2125(1),756(R15),2             PSA reference           00004270
 000007C4 40C3 C8D9 E25D                          DC      CL6' CHRS)'                                            00004280
 000007CA 0000                                    DC      H'0'                                                   00004290
 000007CC 0006 02                                 DC      XL3'000602'                                            00004300
 000007CF F8                                      DC      CL1'8'                                                 00004310
 000007D0 0238                                    DC      H'0568'                                                00004320
 000007D2 D3C9 D5C5 F37A                          DC      CL6'LINE3:'                                            00004330
 000007D8 0000 0018                               DC      F'00024'                                               00004340
 000007DC 01                                      DC      XL1'01'                                                00004350
 000007DD 40                                      DC      CL1' '                                                 00004360
 000007DE 023F                                    DC      H'0575'                                                00004370
 000007E0 0000 0012                               DC      F'00018'                                               00004380
 000007E4 02                                      DC      XL1'02'                                                00004390
 000007E5 F0                                      DC      CL1'0'                                                 00004400
 000007E6 0258                                    DC      H'0600'                                                00004410
 000007E8 4DF2 F440 C3C8 D9E2                     DC      CL18'(24 CHRS OPTIONAL)'                               00004420
          40D6 D7E3 C9D6 D5C1
          D35D
 000007FA 0000                                    DC      H'0'                                                   00004430
 000007FC 000E 02                                 DC      XL3'000E02'                                            00004440
 000007FF F8                                      DC      CL1'8'                                                 00004450
 00000800 02D0                                    DC      H'0720'                                                00004460
 00000802 C3C1 D9C4 E240 C9E2                     DC      CL14'CARDS ISSUED :'                                   00004470
          E2E4 C5C4 407A
 00000810 0000 0001                               DC      F'00001'                                               00004480
 00000814 0D50                                    BASR    R5,0                           Address set             00004490
 00000816 02DF                                    DC      H'0735'                                                00004500
 00000818 0000 0001                               DC      F'00001'                                               00004510
 0000081C 00                                      DC      XL1'00'                                                00004520
 0000081D F0                                      DC      CL1'0'                                                 00004530
 0000081E 02E1                                    DC      H'0737'                                                00004540
 00000820 0000 0008                               DC      F'00008'                                               00004550
 00000824 02                                      DC      XL1'02'                                                00004560
 00000825 F0                                      DC      CL1'0'                                                 00004570
 00000826 02                                      DC      XL1'02'                                                00004580
 00000827 E94D F140 E3D6 40F9                     DC      CL9'Z(1 TO 9)'                                         00004590
          5D
 00000830 0000 000C                               DC      F'00012'                                               00004600
 00000834 02                                      DC      XL1'02'                                                00004610
 00000835 F8                                      DC      CL1'8'                                                 00004620
 00000836 02FC                                    DC      H'0764'                                                00004630
 00000838 C3C1 D9C4 40C3 D6C4                     DC      CL12'CARD CODE  :'                                     00004640
          C540 407A
 00000844 0000 0001                               DC      F'00001'                                               00004650
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000848 01                                      DC      XL1'01'                                                00004660
 00000849 40                                      DC      CL1' '                                                 00004670
 0000084A 0309                                    DC      H'0777'                                                00004680
 0000084C 0000 0001                               DC      F'00001'                                               00004690
 00000850 00                                      DC      XL1'00'                                                00004700
 00000851 F0                                      DC      CL1'0'                                                 00004710
 00000852 030B                                    DC      H'0779'                                                00004720
 00000854 0000 0007                               DC      F'00007'                                               00004730
 00000858 02                                      DC      XL1'02'                                                00004740
 00000859 F0                                      DC      CL1'0'                                                 00004750
 0000085A 030E                                    DC      H'0782'                                                00004760
 0000085C 4DF1 40C3 C8D9 5D                       DC      CL7'(1 CHR)'                                           00004770
 00000863 00                                      DC      XL1'00'                                                00004780
 00000864 0000                                    DC      H'0'                                                   00004790
 00000866 0E02                                    MVCL    R0,R2                                                  00004800
 00000868 F803 20C4 C1E3                          ZAP     196(1,R2),483(4,R12)                                   00004810
 0000086E C540 C9E2 E2E4 C5C4                     DC      CL11'E ISSUED  :'                                      00004820
          4040 7A
 00000879 00                                      DC      XL1'00'                                                00004830
 0000087A 0000                                    DC      H'0'                                                   00004840
 0000087C 020D                                    DC      H'0525'                                                00004850
 0000087E 5003 2F00                               ST      R0,3840(R3,R2)                                         00004860
 00000882 0000                                    DC      H'0'                                                   00004870
 00000884 020D                                    DC      H'0525'                                                00004880
 00000886 5003 3200                               ST      R0,512(R3,R3)                                          00004890
 0000088A 0000                                    DC      H'0'                                                   00004900
 0000088C 020D                                    DC      H'0525'                                                00004910
 0000088E 5003 3500                               ST      R0,1280(R3,R3)                                         00004920
 00000892 0000                                    DC      H'0'                                                   00004930
 00000894 0B02                                    BSM     0,R2                                                   00004940
 00000896 F003 3840 4DD4                          SRP     2112(1,R3),3540(R4),3                                  00004950
 0000089C D440 C4C4 40E8 E85D                     DC      CL8'M DD YY)'                                          00004960
 000008A4 0000 000C                               DC      F'00012'                                               00004970
 000008A8 02                                      DC      XL1'02'                                                00004980
 000008A9 F8                                      DC      CL1'8'                                                 00004990
 000008AA 03                                      DC      XL1'03'                                                00005000
 000008AB 4CD9 C5C1 E2D6 D540                     DC      CL13'<REASON CODE:'                                    00005010
          C3D6 C4C5 7A
 000008B8 0000 0001                               DC      F'00001'                                               00005020
 000008BC 01                                      DC      XL1'01'                                                00005030
 000008BD 40                                      DC      CL1' '                                                 00005040
 000008BE 0359                                    DC      H'0857'                                                00005050
 000008C0 0000 0001                               DC      F'00001'                                               00005060
 000008C4 00                                      DC      XL1'00'                                                00005070
 000008C5 F0                                      DC      CL1'0'                                                 00005080
 000008C6 03                                      DC      XL1'03'                                                00005090
 000008C7 5B                                      DC      CL1'$'                                                 00005100
 000008C8 0000 0009                               DC      F'00009'                                               00005110
 000008CC 02                                      DC      XL1'02'                                                00005120
 000008CD F0                                      DC      CL1'0'                                                 00005130
 000008CE 03                                      DC      XL1'03'                                                00005140
 000008CF 5E4D D56B D36B E26B                     DC      CL10';(N,L,S,R)'                                       00005150
          D95D
 000008D9 00                                      DC      XL1'00'                                                00005160
 000008DA 0000                                    DC      H'0'                                                   00005170
 000008DC 0E02                                    MVCL    R0,R2                                                  00005180
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0000008DE F803 70C1 D7D7                          ZAP     193(1,R7),2007(4,R13)                                  00005190
 000008E4 D9D6 E5C5 C440 C2E8                     DC      CL11'ROVED BY  :'                                      00005200
          4040 7A
 000008EF 00                                      DC      XL1'00'                                                00005210
 000008F0 0000 0301                               DC      F'00769'                                               00005220
 000008F4 4003 7F00                               STH     R0,3840(R3,R7)                                         00005230
 000008F8 0000 0100                               DC      F'00256'                                               00005240
 000008FC F003 8300 0000                          SRP     768(1,R8),0,3                  PSA reference           00005250
 00000902 0802                                    SSK     R0,R2                                                  00005260
 00000904 F003 894D F340                          SRP     2381(1,R8),832(R15),3                                  00005270
 0000090A C3C8 D9E2 5D                            DC      CL5'CHRS)'                                             00005280
 0000090F 00                                      DC      XL1'00'                                                00005290
 00000910 0000                                    DC      H'0'                                                   00005300
 00000912 3402                                    HER     FR0,FR2                                                00005310
 00000914 F004 10E4 D7E3                          SRP     228(1,R1),2019(R13),4                                  00005320
 0000091A D640 F440 D6E3 C8C5                     DC      CL32'O 4 OTHERS WHO MAY CHARGE (EACH '                 00005330
          D9E2 40E6 C8D6 40D4
          C1E8 40C3 C8C1 D9C7
          C540 4DC5 C1C3 C840
 0000093A F3F2 40C3 C8D9 E240                     DC      CL17'32 CHRS OPTIONAL)'                                00005340
          D6D7 E3C9 D6D5 C1D3
          5D
 0000094B 00                                      DC      XL1'00'                                                00005350
 0000094C 0000 0302                               DC      F'00770'                                               00005360
 00000950 F804 64D6 F17A                          ZAP     1238(1,R6),378(5,R15)                                  00005370
 00000956 0000                                    DC      H'0'                                                   00005380
 00000958 0020 01                                 DC      XL3'002001'                                            00005390
 0000095B 40                                      DC      CL1' '                                                 00005400
 0000095C 0468                                    SPM     R6                                                     00005410
 0000095E 0000                                    DC      H'0'                                                   00005420
 00000960 0003 02                                 DC      XL3'000302'                                            00005430
 00000963 F8                                      DC      CL1'8'                                                 00005440
 00000964 0489                                    SPM     R8                                                     00005450
 00000966 D6F2 7A00 0000                          OC      2560(243,R7),0                 PSA reference           00005460
 0000096C 2001                                    LPDR    FR0,FR1                                                00005470
 0000096E 4004 8D00                               STH     R0,3328(R4,R8)                                         00005480
 00000972 0000                                    DC      H'0'                                                   00005490
 00000974 0100                                    DC      H'0256'                                                00005500
 00000976 F004 AE00 0000                          SRP     3584(1,R10),0,4                PSA reference           00005510
 0000097C 0302                                    DC      H'0770'                                                00005520
 0000097E F804 B4D6 F37A                          ZAP     1238(1,R11),890(5,R15)                                 00005530
 00000984 0000 0020                               DC      F'00032'                                               00005540
 00000988 01                                      DC      XL1'01'                                                00005550
 00000989 40                                      DC      CL1' '                                                 00005560
 0000098A 04B8                                    SPM     R11                                                    00005570
 0000098C 0000 0003                               DC      F'00003'                                               00005580
 00000990 02                                      DC      XL1'02'                                                00005590
 00000991 F8                                      DC      CL1'8'                                                 00005600
 00000992 04D9                                    SPM     R13                                                    00005610
 00000994 D6F4 7A00 0000                          OC      2560(245,R7),0                 PSA reference           00005620
 0000099A 2001                                    LPDR    FR0,FR1                                                00005630
 0000099C 4004 DD00                               STH     R0,3328(R4,R13)                                        00005640
 000009A0 0000 0100                               DC      F'00256'                                               00005650
 000009A4 F004 FE00 0000                          SRP     3584(1,R15),0,4                PSA reference           00005660
 000009AA 0E02                                    MVCL    R0,R2                                                  00005670
 000009AC F805 00E2 D7C5                          ZAP     226(1),1989(6,R13)             PSA reference           00005680
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0000009B2 C3C9 C1D3 40C3 D6C4                     DC      CL11'CIAL CODE1:'                                      00005690
          C5F1 7A
 000009BD 00                                      DC      XL1'00'                                                00005700
 000009BE 0000                                    DC      H'0'                                                   00005710
 000009C0 0101                                    PR                                                             00005720
 000009C2 4005 0F00                               STH     R0,3840(R5)                                            00005730
 000009C6 0000                                    DC      H'0'                                                   00005740
 000009C8 0602                                    BCTR    R0,R2                                                  00005750
 000009CA F805 11C3 D6C4                          ZAP     451(1,R1),1732(6,R13)                                  00005760
 000009D0 C5F2 7A00 0000                          BPRP    15,*+1268,*+0                                          00005770
 000009D6 0101                                    PR                                                             00005780
 000009D8 4005 1800                               STH     R0,2048(R5,R1)                                         00005790
 000009DC 0000                                    DC      H'0'                                                   00005800
 000009DE 0602                                    BCTR    R0,R2                                                  00005810
 000009E0 F805 1AC3 D6C4                          ZAP     2755(1,R1),1732(6,R13)                                 00005820
 000009E6 C5F3 7A00 0000                          BPRP    15,*+1780,*+0                                          00005830
 000009EC 0101                                    PR                                                             00005840
 000009EE 4005 2100                               STH     R0,256(R5,R2)                                          00005850
 000009F2 0000                                    DC      H'0'                                                   00005860
 000009F4 1502                                    CLR     R0,R2                                                  00005870
 000009F6 F005 234D C5C1                          SRP     845(1,R2),1473(R12),5                                  00005880
 000009FC C3C8 40F1 40C3 C8D9                     DC      CL18'CH 1 CHR OPTIONAL)'                               00005890
          40D6 D7E3 C9D6 D5C1
          D35D
 00000A0E 0000                                    DC      H'0'                                                   00005900
 00000A10 0021 03                                 DC      XL3'002103'                                            00005910
 00000A13 F0                                      DC      CL1'0'                                                 00005920
 00000A14 0550                                    BALR    R5,0                           Address set             00005930
 00000A16 D5D6 40C8 C9E2 E3D6                     DC      CL32'NO HISTORY AVAILABLE AT THIS TIM'                 00005940
          D9E8 40C1 E5C1 C9D3
          C1C2 D3C5 40C1 E340
          E3C8 C9E2 40E3 C9D4
 00000A36 C500 0000 0100                          BPRP    0,*+0,*+512                                            00005950
 00000A3C F005 7200 0000                          SRP     512(1,R7),0,5                  PSA reference           00005960
 00000A42 0C03                                    BASSM   R0,R3                          Nonstd linkage          00005970
 00000A44 F005 78C3 C8C1                          SRP     2243(1,R7),2241(R12),5                                 00005980
 00000A4A D9C7 C540 D3C9 D4C9                     DC      CL9'RGE LIMIT'                                         00005990
          E3
 00000A53 00                                      DC      XL1'00'                                                00006000
 00000A54 0000                                    DC      H'0'                                                   00006010
 00000A56 0801                                    SSK     R0,R1                                                  00006020
 00000A58 F005 8500 0000                          SRP     1280(1,R8),0,5                 PSA reference           00006030
 00000A5E 0100                                    DC      H'0256'                                                00006040
 00000A60 F005 8E00 0000                          SRP     3584(1,R8),0,5                 PSA reference           00006050
 00000A66 0603                                    BCTR    R0,R3                                                  00006060
 00000A68 F005 94E2 E3C1                          SRP     1250(1,R9),961(R14),5                                  00006070
 00000A6E E3E4 E2                                 DC      CL3'TUS'                                               00006080
 00000A71 00                                      DC      XL1'00'                                                00006090
 00000A72 0000                                    DC      H'0'                                                   00006100
 00000A74 0201                                    DC      H'0513'                                                00006110
 00000A76 F005 9B00 0000                          SRP     2816(1,R9),0,5                 PSA reference           00006120
 00000A7C 0100                                    DC      H'0256'                                                00006130
 00000A7E F005 9E00 0000                          SRP     3584(1,R9),0,5                 PSA reference           00006140
 00000A84 1A01                                    AR      R0,R1                                                  00006150
 00000A86 F805 F000 0000                          ZAP     0(1,R15),0(6)                  PSA reference           00006160
 00000A8C 0101                                    PR                                                             00006170
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000A8E F006 0B00 0000                          SRP     2816(1),0,6                    PSA reference           00006180
 00000A94 0100                                    DC      H'0256'                                                00006190
 00000A96 F006 0D00 0000                          SRP     3328(1),0,6                    PSA reference           00006200
 00000A9C 4E02 F006                               CVD     R0,6(R2,R15)                                           00006210
 00000AA0 90D5 D6E3                               STM     R13,R5,1763(R13)               Save regs               00006220
 00000AA4 C57A 6040 C4C5 E3C1                     DC      CL32'E:- DETAILS IN BRACKETS SHOW MAX'                 00006230
          C9D3 E240 C9D5 40C2
          D9C1 C3D2 C5E3 E240
          E2C8 D6E6 40D4 C1E7
 00000AC4 C9D4 E4D4 40D5 D64B                     DC      CL32'IMUM NO. CHARACTERS ALLOWED AND '                 00006240
          40C3 C8C1 D9C1 C3E3
          C5D9 E240 C1D3 D3D6
          E6C5 C440 C1D5 C440
 00000AE4 C9C6 40D6 D7E3 C9D6                     DC      CL11'IF OPTIONAL'                                      00006250
          D5C1 D3
 00000AEF 00                                      DC      XL1'00'                                                00006260
 00000AF0 0000                                    DC      H'0'                                                   00006270
 00000AF2 3C01                                    MDER    FR0,FR1                                                00006280
 00000AF4 F807 3000 0000                          ZAP     0(1,R3),0(8)                   PSA reference           00006290
 00000AFA 0100                                    DC      H'0256'                                                00006300
 00000AFC F007 6DFF FF05                          SRP     3583(1,R6),3845(R15),7                                 00006310
 00000B02 66                                      DC      XL1'66'                                                00006320
 00000B03 C1C4 E2C4                               DC      CL4'ADSD'                                              00006330
 00000B07 00                                      DC      XL1'00'                                                00006340
 00000B08 0200                                    DC      H'0512'                                                00006350
 00000B0A 2002                                    LPDR    FR0,FR2                                                00006360
 00000B0C 1300                                    LCR     R0,R0                                                  00006370
 00000B0E 00                                      DC      XL1'00'                                                00006380
 00000B0F 4040 4040 4040 4040                     DC      CL14'            L '                                   00006390
          4040 4040 D340
 00000B1D 00                                      DC      XL1'00'                                                00006400
 00000B1E FF00                                    DC      XL2'FF00'                                              00006410
 00000B20 FE00                                    DC      XL2'FE00'                                              00006420
 00000B22 1800                                    LR      R0,R0                                                  00006430
 00000B24 504A 00E3                               ST      R4,227(R10)                                            00006440
 00000B28 C9E3 D3C5 C440 4040                     DC      CL31'ITLED                          '                  00006450
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 00000B47 00                                      DC      XL1'00'                                                00006460
 00000B48 0600                                    BCTR    R0,0                                                   00006470
 00000B4A 0000                                    DC      H'0'                                                   00006480
 00000B4C 0C00                                    BASSM   R0,0                           Address set             00006490
 00000B4E 0AD3                                    SVC     211                                                    00006500
 00000B50 40C1 C3C3 E3C4 4040                     DC      CL32' ACCTD                          '                 00006510
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000B70 4000 0500                               STH     R0,1280                        PSA reference           00006520
 00000B74 0000                                    DC      H'0'                                                   00006530
 00000B76 1900                                    CR      R0,R0                                                  00006540
 00000B78 05D3                                    BALR    R13,R3                         Nonstd linkage          00006550
 00000B7A 40E2 D5C1 D4C5 C440                     DC      CL32' SNAMED                         '                 00006560
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000B9A 4000 0600                               STH     R0,1536                        PSA reference           00006570
 00000B9E 0000                                    DC      H'0'                                                   00006580
 00000BA0 2100                                    LNDR    FR0,FR0                                                00006590
 00000BA2 12D3                                    LTR     R13,R3                                                 00006600
 00000BA4 40E3 E3D3 C440 4040                     DC      CL32' TTLD                           '                 00006610
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000BC4 4000 0400                               STH     R0,1024                        PSA reference           00006620
 00000BC8 0000                                    DC      H'0'                                                   00006630
 00000BCA 3600                                    AXR     FR0,FR0                                                00006640
 00000BCC 04D3                                    SPM     R13                                                    00006650
 00000BCE 40C6 D5C1 D4C5 C440                     DC      CL32' FNAMED                         '                 00006660
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000BEE 4000 0600                               STH     R0,1536                        PSA reference           00006670
 00000BF2 0000                                    DC      H'0'                                                   00006680
 00000BF4 3D00                                    DER     FR0,FR0                                                00006690
 00000BF6 0CD3                                    BASSM   R13,R3                         Nonstd linkage          00006700
 00000BF8 40D4 C9C4 4040 4040                     DC      CL32' MID                            '                 00006710
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000C18 4000 0300                               STH     R0,768                         PSA reference           00006720
 00000C1C 0000                                    DC      H'0'                                                   00006730
 00000C1E 4C00 01D3                               MH      R0,467                         PSA reference           00006740
 00000C22 40E3 C5D3 C440 4040                     DC      CL32' TELD                           '                 00006750
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000C42 4000 0400                               STH     R0,1024                        PSA reference           00006760
 00000C46 0000                                    DC      H'0'                                                   00006770
 00000C48 5000 0AD9                               ST      R0,2777                        PSA reference           00006780
 00000C4C F0C1 C4C4 D9F1 C440                     DC      CL32'0ADDR1D                         '                 00006790
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000C6C 4000 0600                               STH     R0,1536                        PSA reference           00006800
 00000C70 0000                                    DC      H'0'                                                   00006810
 00000C72 5D00 18D3                               D       R0,2259(,R1)                                           00006820
 00000C76 40C1 C4C4 D9F2 C440                     DC      CL32' ADDR2D                         '                 00006830
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000C96 4000 0600                               STH     R0,1536                        PSA reference           00006840
 00000C9A 0000                                    DC      H'0'                                                   00006850
 00000C9C 7800 18D3                               LE      FR0,2259(,R1)                                          00006860
 00000CA0 40C1 C4C4 D9F3 C440                     DC      CL32' ADDR3D                         '                 00006870
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000CC0 4000 0600                               STH     R0,1536                        PSA reference           00006880
 00000CC4 0000                                    DC      H'0'                                                   00006890
 00000CC6 9300 18D3                               TS      2259(R1)                                               00006900
 00000CCA 40C3 C1D9 C4E2 C440                     DC      CL32' CARDSD                         '                 00006910
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
0         4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000CEA 4000 0600                               STH     R0,1536                        PSA reference           00006920
 00000CEE 0000                                    DC      H'0'                                                   00006930
 00000CF0 AE00 01D9                               SIGP    R0,R0,473                      PSA reference           00006940
 00000CF4 F0C3 C3D6 C4C5 C440                     DC      CL32'0CCODED                         '                 00006950
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000D14 4000 0600                               STH     R0,1536                        PSA reference           00006960
 00000D18 0000                                    DC      H'0'                                                   00006970
 00000D1A B200 01D3                               CONCS   467                            PSA reference           00006980
 00000D1E 40C9 D4D6 C440 4040                     DC      CL32' IMOD                           '                 00006990
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000D3E 4000 0400                               STH     R0,1024                        PSA reference           00007000
 00000D42 0000                                    DC      H'0'                                                   00007010
 00000D44 B600 02D9                               STCTL   CR0,CR0,729                    PSA reference           00007020
 00000D48 F0C9 C4C1 E8C4 4040                     DC      CL32'0IDAYD                          '                 00007030
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000D68 4000 0500                               STH     R0,1280                        PSA reference           00007040
 00000D6C 0000                                    DC      H'0'                                                   00007050
 00000D6E BB00 02D9                               CDS     R0,R0,729                      PSA reference           00007060
 00000D72 F0C9 E8D9 C440 4040                     DC      CL32'0IYRD                           '                 00007070
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000D92 4000 0400                               STH     R0,1024                        PSA reference           00007080
 00000D96 0000                                    DC      H'0'                                                   00007090
 00000D98 C000 02D9 F0D9                          LARL    R0,*+95674802                                          00007100
 00000D9E E2D5 C440 4040 4040                     DC      CL31'SND                            '                  00007110
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 00000DBD 00                                      DC      XL1'00'                                                00007120
 00000DBE 0400                                    SPM     R0                                                     00007130
 00000DC0 0000                                    DC      H'0'                                                   00007140
 00000DC2 C500 01D3 40C1                          BPRP    0,*+2,*-5865086                                        00007150
 00000DC8 D7D7 D9C4 4040 4040                     DC      CL31'PPRD                           '                  00007160
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 00000DE7 00                                      DC      XL1'00'                                                00007170
 00000DE8 0500                                    BALR    R0,0                           Address set             00007180
 00000DEA 0000                                    DC      H'0'                                                   00007190
 00000DEC C9                                      DC      CL1'I'                                                 00007200
 00000DED 00                                      DC      XL1'00'                                                00007210
 00000DEE 03                                      DC      XL1'03'                                                00007220
 00000DEF D340 C1E4 E3C8 F1C4                     DC      CL32'L AUTH1D                        '                 00007230
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000E0F 4040                                    DC      CL2'  '                                                00007240
 00000E11 00                                      DC      XL1'00'                                                00007250
 00000E12 0600                                    BCTR    R0,0                                                   00007260
 00000E14 0000 CF00                               DC      F'52992'                                               00007270
 00000E18 20D3                                    LPDR    FR13,FR3                                               00007280
 00000E1A 40C1 E4E3 C8F2 C440                     DC      CL32' AUTH2D                         '                 00007290
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000E3A 4000 0600                               STH     R0,1536                        PSA reference           00007300
 00000E3E 0000                                    DC      H'0'                                                   00007310
 00000E40 F200 20D3 40C1                          PACK    211(1,R2),193(1,R4)                                    00007320
 00000E46 E4E3 C8F3 C440 4040                     DC      CL31'UTH3D                          '                  00007330
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 00000E65 00                                      DC      XL1'00'                                                00007340
 00000E66 0600                                    BCTR    R0,0                                                   00007350
 00000E68 0001                                    DC      H'0001'                                                00007360
 00000E6A 1500                                    CLR     R0,R0                                                  00007370
 00000E6C 20D3                                    LPDR    FR13,FR3                                               00007380
 00000E6E 40C1 E4E3 C8F4 C440                     DC      CL32' AUTH4D                         '                 00007390
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000E8E 4000 0600                               STH     R0,1536                        PSA reference           00007400
 00000E92 0001                                    DC      H'0001'                                                00007410
 00000E94 3800                                    LER     FR0,FR0                                                00007420
 00000E96 20D3                                    LPDR    FR13,FR3                                               00007430
 00000E98 40E2 C3D6 C4C5 F1C4                     DC      CL32' SCODE1D                        '                 00007440
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000EB8 4000 0700                               STH     R0,1792                        PSA reference           00007450
 00000EBC 0001                                    DC      H'0001'                                                00007460
 00000EBE 5B00 01D3                               S       R0,467                         PSA reference           00007470
 00000EC2 40E2 C3D6 C4C5 F2C4                     DC      CL32' SCODE2D                        '                 00007480
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000EE2 4000 0700                               STH     R0,1792                        PSA reference           00007490
 00000EE6 0001                                    DC      H'0001'                                                00007500
 00000EE8 5F00 01D3                               SL      R0,467                         PSA reference           00007510
 00000EEC 40E2 C3D6 C4C5 F3C4                     DC      CL32' SCODE3D                        '                 00007520
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000F0C 4000 0700                               STH     R0,1792                        PSA reference           00007530
 00000F10 0001 6300                               DC      F'90880'                                               00007540
 00000F14 01                                      DC      XL1'01'                                                00007550
 00000F15 D340 C8C9 E2E3 E3D3                     DC      CL32'L HISTTLD                       '                 00007560
          C440 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000F35 4040                                    DC      CL2'  '                                                00007570
 00000F37 00                                      DC      XL1'00'                                                00007580
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000000F38 0700                                    NOPR    0                                                      00007590
 00000F3A 0001                                    DC      H'0001'                                                00007600
 00000F3C 6700 21D3                               MXD     FR0,467(,R2)                                           00007610
 00000F40 40D3 C9D4 E3E3 D3C4                     DC      CL32' LIMTTLD                        '                 00007620
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000F60 4000 0700                               STH     R0,1792                        PSA reference           00007630
 00000F64 0001                                    DC      H'0001'                                                00007640
 00000F66 8B00 0CD3                               SLA     R0,3283                                                00007650
 00000F6A 40D3 C9D4 C9E3 C440                     DC      CL32' LIMITD                         '                 00007660
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000F8A 4000 0600                               STH     R0,1536                        PSA reference           00007670
 00000F8E 0001                                    DC      H'0001'                                                00007680
 00000F90 9A00 08D3                               LAM     AR0,AR0,2259                   PSA reference           00007690
 00000F94 40E2 E3C1 E3E3 D3C4                     DC      CL32' STATTLD                        '                 00007700
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000FB4 4000 0700                               STH     R0,1792                        PSA reference           00007710
 00000FB8 0001                                    DC      H'0001'                                                00007720
 00000FBA A500 06D3                               IIHH    R0,X'06D3'                                             00007730
 00000FBE 40E2 E3C1 E3C4 4040                     DC      CL32' STATD                          '                 00007740
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00000FDE 4000 0500                               STH     R0,1280                        PSA reference           00007750
 00000FE2 0001                                    DC      H'0001'                                                00007760
 00000FE4 AE00 02D3                               SIGP    R0,R0,723                      PSA reference           00007770
 00000FE8 40E5 C6E8 E3D3 C440                     DC      CL32' VFYTLD                         '                 00007780
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00001008 4000 0600                               STH     R0,1536                        PSA reference           00007790
 0000100C 0001                                    DC      H'0001'                                                00007800
 0000100E B300 1AD3                               LPEBR   FR13,FR3                                               00007810
 00001012 40E5 C6E8 C440 4040                     DC      CL32' VFYD                           '                 00007820
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00001032 4000 0400                               STH     R0,1024                        PSA reference           00007830
 00001036 0001                                    DC      H'0001'                                                00007840
 00001038 D000 01D3 40D4                          TRTR    467(1),212(R4)                 PSA reference           00007850
 0000103E E2C7 C440 4040 4040                     DC      CL31'SGD                            '                  00007860
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 40
 0000105D 00                                      DC      XL1'00'                                                00007870
 0000105E 0400                                    SPM     R0                                                     00007880
 00001060 0001                                    DC      H'0001'                                                00007890
 00001062 D400 3CD3 4000                          NC      3283(1,R3),0(R4)                                       00007900
 00001068 4F00 0000                               CVB     R0,0                           PSA reference           00007910
 0000106C 0000 00                                 DC      XL3'000000'                                            00007920
 0000106F C1C3 C3E3 C5D9 D940                     DC      CL8'ACCTERR '                                          00007930
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000001077 02                                      DC      XL1'02'                                                00007940
 00001078 6700 6E01                               MXD     FR0,3585(,R6)                                          00007950
 0000107C 1502                                    CLR     R0,R2                                                  00007960
 0000107E 16C0                                    OR      R12,R0                                                 00007970
 00001080 4A00 0000                               AH      R0,0                           PSA reference           00007980
 00001084 1850                                    LR      R5,R0                                                  00007990
 00001086 FFFE                                    DC      XL2'FFFE'                                              00008000
 00001088 1000                                    LPR     R0,R0                                                  00008010
 0000108A 0000                                    DC      H'0'                                                   00008020
 0000108C 0001                                    DC      H'0001'                                                00008030
 0000108E 6F00 0C00                               SW      FR0,3072                       PSA reference           00008040
 00001092 0000                                    DC      H'0'                                                   00008050
 00001094 0000 0000                               DC      F'0'                                                   00008060
 00001098 0000 0000                               DC      F'0'                                                   00008070
 0000109C 0000 0000                               DC      F'0'                                                   00008080
 000010A0 0000 0000                               DC      F'0'                                                   00008090
 000010A4 0000 0000                               DC      F'0'                                                   00008100
 000010A8 0000 0000                               DC      F'0'                                                   00008110
 000010AC 0000 0000                               DC      F'0'                                                   00008120
 000010B0 0000                                    DC      H'0'                                                   00008130
 000010B2 4040 4040                               DC      CL4'    '                                              00008140
 000010B6 0000                                    DC      H'0'                                                   00008150
 000010B8 001A 02                                 DC      XL3'001A02'                                            00008160
 000010BB F0                                      DC      CL1'0'                                                 00008170
 000010BC 00                                      DC      XL1'00'                                                00008180
 000010BD F0C1 C3C3 D6E4 D5E3                     DC      CL27'0ACCOUNT FILE: ERROR REPORT'                      00008190
          40C6 C9D3 C57A 40C5
          D9D9 D6D9 40D9 C5D7
          D6D9 E3
 000010D8 0000 0008                               DC      F'00008'                                               00008200
 000010DC 02                                      DC      XL1'02'                                                00008210
 000010DD F0                                      DC      CL1'0'                                                 00008220
 000010DE 0190                                    DC      H'0400'                                                00008230
 000010E0 C5D9 D9D6 D940 C1E3                     DC      CL8'ERROR AT'                                          00008240
 000010E8 0000 000A                               DC      F'00010'                                               00008250
 000010EC 01                                      DC      XL1'01'                                                00008260
 000010ED F8                                      DC      CL1'8'                                                 00008270
 000010EE 01                                      DC      XL1'01'                                                00008280
 000010EF 99                                      DC      CL1'r'                                                 00008290
 000010F0 0000 0008                               DC      F'00008'                                               00008300
 000010F4 01                                      DC      XL1'01'                                                00008310
 000010F5 F8                                      DC      CL1'8'                                                 00008320
 000010F6 01                                      DC      XL1'01'                                                00008330
 000010F7 A4                                      DC      CL1'u'                                                 00008340
 000010F8 0000 004F                               DC      F'00079'                                               00008350
 000010FC 01                                      DC      XL1'01'                                                00008360
 000010FD F8                                      DC      CL1'8'                                                 00008370
 000010FE 0230                                    DC      H'0560'                                                00008380
 00001100 0000 004F                               DC      F'00079'                                               00008390
 00001104 01                                      DC      XL1'01'                                                00008400
 00001105 F8                                      DC      CL1'8'                                                 00008410
 00001106 0280                                    DC      H'0640'                                                00008420
 00001108 0000 004F                               DC      F'00079'                                               00008430
 0000110C 01                                      DC      XL1'01'                                                00008440
 0000110D F8                                      DC      CL1'8'                                                 00008450
 0000110E 02D0                                    DC      H'0720'                                                00008460
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000001110 0000 003C                               DC      F'00060'                                               00008470
 00001114 02                                      DC      XL1'02'                                                00008480
 00001115 F0                                      DC      CL1'0'                                                 00008490
 00001116 0370                                    DC      H'0880'                                                00008500
 00001118 D7D3 C5C1 E2C5 40C1                     DC      CL32'PLEASE ASK YOUR SUPERVISOR TO CO'                 00008510
          E2D2 40E8 D6E4 D940
          E2E4 D7C5 D9E5 C9E2
          D6D9 40E3 D640 C3D6
 00001138 D5E5 C5E8 40E3 C8C9                     DC      CL28'NVEY THIS INFORMATION TO THE'                     00008520
          E240 C9D5 C6D6 D9D4
          C1E3 C9D6 D540 E3D6
          40E3 C8C5
 00001154 0000 0011                               DC      F'00017'                                               00008530
 00001158 02                                      DC      XL1'02'                                                00008540
 00001159 F0                                      DC      CL1'0'                                                 00008550
 0000115A 03C0                                    DC      H'0960'                                                00008560
 0000115C D6D7 C5D9 C1E3 C9D6                     DC      CL17'OPERATIONS STAFF.'                                00008570
          D5E2 40E2 E3C1 C6C6
          4B
 0000116D 00                                      DC      XL1'00'                                                00008580
 0000116E 0000                                    DC      H'0'                                                   00008590
 00001170 4002 F004                               STH     R0,4(R2,R15)                                           00008600
 00001174 60E3 C8C5 D540 D7D9                     DC      CL32'-THEN PRESS "CLEAR".  THIS TERMI'                 00008610
          C5E2 E240 7FC3 D3C5
          C1D9 7F4B 4040 E3C8
          C9E2 40E3 C5D9 D4C9
 00001194 D5C1 D340 C9E2 40D5                     DC      CL32'NAL IS NO LONGER UNDER CONTROL O'                 00008620
          D640 D3D6 D5C7 C5D9
          40E4 D5C4 C5D9 40C3
          D6D5 E3D9 D6D3 40D6
 000011B4 C600 0000 1702                          EXRL    0,*+11780                                              00008630
 000011BA F004 B0E3 C8C5                          SRP     227(1,R11),2245(R12),4                                 00008640
 000011C0 407F D5C1 C3E3 7F40                     DC      CL20' "NACT" APPLICATION.'                             00008650
          C1D7 D7D3 C9C3 C1E3
          C9D6 D54B
 000011D4 FFFF 00                                 DC      XL3'FFFF00'                                            00008660
 000011D7 F8C1 C4E2 C4                            DC      CL5'8ADSD'                                             00008670
 000011DC 0003 0005                               DC      XL4'00030005'                                          00008680
 000011E0 011A 0000                               DC      XL4'011A0000'                                          00008690
 000011E4 4040 4040 4040 4040                     DC      CL14'            L '                                   00008700
          4040 4040 D340
 000011F2 00FF                                    DC      H'0255'                                                00008710
 000011F4 00FE 0018                               DC      XL4'00FE0018'                                          00008720
 000011F8 00                                      DC      XL1'00'                                                00008730
 000011F9 50                                      DC      CL1'&&'                                                00008740
 000011FA 4A00 C4C1                               AH      R0,1217(,R12)                                          00008750
 000011FE E3C5 C540 4040 4040                     DC      CL30'TEE                           '                   00008760
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040
 0000121C 0005 0000                               DC      XL4'00050000'                                          00008770
 00001220 000C 000A                               DC      XL4'000C000A'                                          00008780
 00001224 D340 E3C9 D4C5 C540                     DC      CL32'L TIMEE                         '                 00008790
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
1$PRIV000 'Disassembly of CSECT $PRIV000 of Load Module NACTSET '
0  Loc    Object Code                     Source Statement
000001244 4040 0005                               STH     R4,5                           PSA reference           00008800
 00001248 0000 0019                               DC      F'00025'                                               00008810
 0000124C 0008                                    DC      H'0008'                                                00008820
 0000124E D340 D4E2 C7C5 4040                     DC      CL32'L MSGE                          '                 00008830
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 0000126E 4040 0004                               STH     R4,4                           PSA reference           00008840
 00001272 0001                                    DC      H'0001'                                                00008850
 00001274 0024 004F                               DC      XL4'0024004F'                                          00008860
 00001278 D340 D4E2 C7C5 4040                     DC      CL32'L MSGE                          '                 00008870
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 00001298 4040 0004                               STH     R4,4                           PSA reference           00008880
 0000129C 0002 0076                               DC      XL4'00020076'                                          00008890
 000012A0 004F                                    DC      H'0079'                                                00008900
 000012A2 D340 D4E2 C7C5 4040                     DC      CL32'L MSGE                          '                 00008910
          4040 4040 4040 4040
          4040 4040 4040 4040
          4040 4040 4040 4040
 000012C2 4040 0004                               STH     R4,4                           PSA reference           00008920
 000012C6 0003                                    DC      H'0003'                                                00008930
 000012C8 00                                      DC      XL1'00'                                                00008940
 000012C9 C8                                      DC      CL1'H'                                                 00008950
 000012CA 004F                                    DC      H'0079'                                                00008960
 000012CC D340 FFFF FFFF                          MVZ     4095(65,R15),4095(R15)                                 00008970
                                                  ASMDREG                                                        00008980
                                                  END                                                            00008990
 !! END OF JES SPOOL FILE !!
1ASMD008 The user of the COPYRIGHTOK option ensures that this use will not violate any copyright restrictions
         or other rights pertaining to the code being disassembled
 DIRECTORY INFO FOR MODULE  NACT01
           TTR OF MODULE=00000F
           CONCATENATION NBR=00
           ALIAS INDIC=2C
           TTR, 1ST TXT RECD=000015
           TTR OF NOTE/SCATTER LIST=000000
           NBR NOTE ENTRIES=00
           ATTRIBUTES 1=02C2                               EXEC
           TOTAL LENGTH=005170
           LENGTH OF 1ST TXT RECD=5170
           E. P. ADDR=000020
           ATTRIBUTES 2=88
           AUTH CODE=00
-               *** EXTERNAL SYMBOL TABLE ***
0     SYMBOL        TYPE   IND  ADDR    SEG  LRID   LENG  ESDID
   ** DFHECI         SD                 01
      B_TEXT         ED        000000             00001E
      DFHECI         LD        000000
      DFHEI1         LD        000008
      DLZEI01        LD        000008
      DLZEI02        LD        000008
      DLZEI03        LD        000008
      DLZEI04        LD        000008
      NACT01         SD                 01
      B_TEXT         ED        000020             004F7C
      NACT01         LD        000020
      IGZEBST        ER        000000
      DFHEI1         ER        000000
      IGZEBST        SD                 01
      B_TEXT         ED        004FA0             0001D0
      IGZEBST        LD        004FA0
      IGZEBS2        LD        0050C8
      IGZETUN        ER        000000
      IGZEOPT        ER        000000
-               ***** RLD INFO *****
0     RELPTR  POSPTR      TYPE     LEN    DIR   ADDR
1DFHECI                                        *** User Control Statements ***
0NACT01
1***** Label Table *****
0  ADDR TYPE  LEN   SYMBOL
 000008   E       DLZEI04
 000008   E       DLZEI03
 000008   E       DLZEI02
 000008   E       DLZEI01
 000008   E       DFHEI1
 000020   E       A000020
1                                                  ***** T E X T *****
0000000   C4C6C8E8 C3F5F3F0 58F0021C 58F0F0D0   58F0F014 58F0F00C 58FF000C 07FF0000   DFHYC530.0...00..00..00.........
1DFHECI   'Disassembly of CSECT DFHECI   of Load Module NACT01  '
0  Loc    Object Code                     Source Statement
0                                        DFHECI   TITLE 'Disassembly of CSECT DFHECI   of Load Module NACT01  '  00000010
                                         *                 Produced by ASMDASM on 2024.102 at 15:30:01           00000020
                                         DFHECI   CSECT                                                          00000030
                                                  ENTRY   DFHEI1                                                 00000040
                                                  ENTRY   DLZEI01                                                00000050
                                                  ENTRY   DLZEI02                                                00000060
                                                  ENTRY   DLZEI03                                                00000070
                                                  ENTRY   DLZEI04                                                00000080
 00000000 C4C6 C8E8 C3F5 F3F0                     DC      CL8'DFHYC530'                                          00000090
 00000008 58F0 021C                      DFHEI1   L       R15,540                        PSA reference           00000100
 0000000C 58F0 F0D0                               L       R15,208(,R15)                                          00000110
 00000010 58F0 F014                               L       R15,20(,R15)                                           00000120
 00000014 58F0 F00C                               L       R15,12(,R15)                                           00000130
 00000018 58FF 000C                               L       R15,12(R15)                                            00000140
 0000001C 07FF                                    BR      R15                                                    00000150
                                                  SPACE                                                          00000160
                                                  ASMDREG                                                        00000170
                                                  END                                                            00000180
 !! END OF JES SPOOL FILE !!
1ASMD008 The user of the COPYRIGHTOK option ensures that this use will not violate any copyright restrictions
         or other rights pertaining to the code being disassembled
 DIRECTORY INFO FOR MODULE  NACT02
           TTR OF MODULE=000019
           CONCATENATION NBR=00
           ALIAS INDIC=2C
           TTR, 1ST TXT RECD=000101
           TTR OF NOTE/SCATTER LIST=000000
           NBR NOTE ENTRIES=00
           ATTRIBUTES 1=02C2                               EXEC
           TOTAL LENGTH=001EB0
           LENGTH OF 1ST TXT RECD=1EB0
           E. P. ADDR=000020
           ATTRIBUTES 2=88
           AUTH CODE=00
-               *** EXTERNAL SYMBOL TABLE ***
0     SYMBOL        TYPE   IND  ADDR    SEG  LRID   LENG  ESDID
   ** DFHECI         SD                 01
      B_TEXT         ED        000000             00001E
      DFHECI         LD        000000
      DFHEI1         LD        000008
      DLZEI01        LD        000008
      DLZEI02        LD        000008
      DLZEI03        LD        000008
      DLZEI04        LD        000008
      NACT02         SD                 01
      B_TEXT         ED        000020             001CC0
      NACT02         LD        000020
      IGZEBST        ER        000000
      DFHEI1         ER        000000
      IGZEBST        SD                 01
      B_TEXT         ED        001CE0             0001D0
      IGZEBST        LD        001CE0
      IGZEBS2        LD        001E08
      IGZETUN        ER        000000
      IGZEOPT        ER        000000
-               ***** RLD INFO *****
0     RELPTR  POSPTR      TYPE     LEN    DIR   ADDR
1DFHECI                                        *** User Control Statements ***
0NACT02
1***** Label Table *****
0  ADDR TYPE  LEN   SYMBOL
 000008   E       DLZEI04
 000008   E       DLZEI03
 000008   E       DLZEI02
 000008   E       DLZEI01
 000008   E       DFHEI1
 000020   E       A000020
1                                                  ***** T E X T *****
0000000   C4C6C8E8 C3F5F3F0 58F0021C 58F0F0D0   58F0F014 58F0F00C 58FF000C 07FF0000   DFHYC530.0...00..00..00.........
1DFHECI   'Disassembly of CSECT DFHECI   of Load Module NACT02  '
0  Loc    Object Code                     Source Statement
0                                        DFHECI   TITLE 'Disassembly of CSECT DFHECI   of Load Module NACT02  '  00000010
                                         *                 Produced by ASMDASM on 2024.102 at 15:30:01           00000020
                                         DFHECI   CSECT                                                          00000030
                                                  ENTRY   DFHEI1                                                 00000040
                                                  ENTRY   DLZEI01                                                00000050
                                                  ENTRY   DLZEI02                                                00000060
                                                  ENTRY   DLZEI03                                                00000070
                                                  ENTRY   DLZEI04                                                00000080
 00000000 C4C6 C8E8 C3F5 F3F0                     DC      CL8'DFHYC530'                                          00000090
 00000008 58F0 021C                      DFHEI1   L       R15,540                        PSA reference           00000100
 0000000C 58F0 F0D0                               L       R15,208(,R15)                                          00000110
 00000010 58F0 F014                               L       R15,20(,R15)                                           00000120
 00000014 58F0 F00C                               L       R15,12(,R15)                                           00000130
 00000018 58FF 000C                               L       R15,12(R15)                                            00000140
 0000001C 07FF                                    BR      R15                                                    00000150
                                                  SPACE                                                          00000160
                                                  ASMDREG                                                        00000170
                                                  END                                                            00000180
 !! END OF JES SPOOL FILE !!
1ASMD008 The user of the COPYRIGHTOK option ensures that this use will not violate any copyright restrictions
         or other rights pertaining to the code being disassembled
 DIRECTORY INFO FOR MODULE  NACT03
           TTR OF MODULE=000105
           CONCATENATION NBR=00
           ALIAS INDIC=2C
           TTR, 1ST TXT RECD=00010B
           TTR OF NOTE/SCATTER LIST=000000
           NBR NOTE ENTRIES=00
           ATTRIBUTES 1=02C2                               EXEC
           TOTAL LENGTH=000CC0
           LENGTH OF 1ST TXT RECD=0CC0
           E. P. ADDR=000020
           ATTRIBUTES 2=88
           AUTH CODE=00
-               *** EXTERNAL SYMBOL TABLE ***
0     SYMBOL        TYPE   IND  ADDR    SEG  LRID   LENG  ESDID
   ** DFHECI         SD                 01
      B_TEXT         ED        000000             00001E
      DFHECI         LD        000000
      DFHEI1         LD        000008
      DLZEI01        LD        000008
      DLZEI02        LD        000008
      DLZEI03        LD        000008
      DLZEI04        LD        000008
      NACT03         SD                 01
      B_TEXT         ED        000020             000AD0
      NACT03         LD        000020
      IGZEBST        ER        000000
      DFHEI1         ER        000000
      IGZEBST        SD                 01
      B_TEXT         ED        000AF0             0001D0
      IGZEBST        LD        000AF0
      IGZEBS2        LD        000C18
      IGZETUN        ER        000000
      IGZEOPT        ER        000000
-               ***** RLD INFO *****
0     RELPTR  POSPTR      TYPE     LEN    DIR   ADDR
1DFHECI                                        *** User Control Statements ***
0NACT03
1***** Label Table *****
0  ADDR TYPE  LEN   SYMBOL
 000008   E       DLZEI04
 000008   E       DLZEI03
 000008   E       DLZEI02
 000008   E       DLZEI01
 000008   E       DFHEI1
 000020   E       A000020
1                                                  ***** T E X T *****
0000000   C4C6C8E8 C3F5F3F0 58F0021C 58F0F0D0   58F0F014 58F0F00C 58FF000C 07FF0000   DFHYC530.0...00..00..00.........
1DFHECI   'Disassembly of CSECT DFHECI   of Load Module NACT03  '
0  Loc    Object Code                     Source Statement
0                                        DFHECI   TITLE 'Disassembly of CSECT DFHECI   of Load Module NACT03  '  00000010
                                         *                 Produced by ASMDASM on 2024.102 at 15:30:02           00000020
                                         DFHECI   CSECT                                                          00000030
                                                  ENTRY   DFHEI1                                                 00000040
                                                  ENTRY   DLZEI01                                                00000050
                                                  ENTRY   DLZEI02                                                00000060
                                                  ENTRY   DLZEI03                                                00000070
                                                  ENTRY   DLZEI04                                                00000080
 00000000 C4C6 C8E8 C3F5 F3F0                     DC      CL8'DFHYC530'                                          00000090
 00000008 58F0 021C                      DFHEI1   L       R15,540                        PSA reference           00000100
 0000000C 58F0 F0D0                               L       R15,208(,R15)                                          00000110
 00000010 58F0 F014                               L       R15,20(,R15)                                           00000120
 00000014 58F0 F00C                               L       R15,12(,R15)                                           00000130
 00000018 58FF 000C                               L       R15,12(R15)                                            00000140
 0000001C 07FF                                    BR      R15                                                    00000150
                                                  SPACE                                                          00000160
                                                  ASMDREG                                                        00000170
                                                  END                                                            00000180
 !! END OF JES SPOOL FILE !!
1ASMD008 The user of the COPYRIGHTOK option ensures that this use will not violate any copyright restrictions
         or other rights pertaining to the code being disassembled
 DIRECTORY INFO FOR MODULE  NACT04
           TTR OF MODULE=00010E
           CONCATENATION NBR=00
           ALIAS INDIC=2C
           TTR, 1ST TXT RECD=000114
           TTR OF NOTE/SCATTER LIST=000000
           NBR NOTE ENTRIES=00
           ATTRIBUTES 1=02C2                               EXEC
           TOTAL LENGTH=0046E8
           LENGTH OF 1ST TXT RECD=46E8
           E. P. ADDR=000020
           ATTRIBUTES 2=88
           AUTH CODE=00
-               *** EXTERNAL SYMBOL TABLE ***
0     SYMBOL        TYPE   IND  ADDR    SEG  LRID   LENG  ESDID
   ** DFHECI         SD                 01
      B_TEXT         ED        000000             00001E
      DFHECI         LD        000000
      DFHEI1         LD        000008
      DLZEI01        LD        000008
      DLZEI02        LD        000008
      DLZEI03        LD        000008
      DLZEI04        LD        000008
      NACT04         SD                 01
      B_TEXT         ED        000020             0044F6
      NACT04         LD        000020
      IGZEBST        ER        000000
      DFHEI1         ER        000000
      IGZEBST        SD                 01
      B_TEXT         ED        004518             0001D0
      IGZEBST        LD        004518
      IGZEBS2        LD        004640
      IGZETUN        ER        000000
      IGZEOPT        ER        000000
-               ***** RLD INFO *****
0     RELPTR  POSPTR      TYPE     LEN    DIR   ADDR
1DFHECI                                        *** User Control Statements ***
0NACT04
1***** Label Table *****
0  ADDR TYPE  LEN   SYMBOL
 000008   E       DLZEI04
 000008   E       DLZEI03
 000008   E       DLZEI02
 000008   E       DLZEI01
 000008   E       DFHEI1
 000020   E       A000020
1                                                  ***** T E X T *****
0000000   C4C6C8E8 C3F5F3F0 58F0021C 58F0F0D0   58F0F014 58F0F00C 58FF000C 07FF0000   DFHYC530.0...00..00..00.........
1DFHECI   'Disassembly of CSECT DFHECI   of Load Module NACT04  '
0  Loc    Object Code                     Source Statement
0                                        DFHECI   TITLE 'Disassembly of CSECT DFHECI   of Load Module NACT04  '  00000010
                                         *                 Produced by ASMDASM on 2024.102 at 15:30:02           00000020
                                         DFHECI   CSECT                                                          00000030
                                                  ENTRY   DFHEI1                                                 00000040
                                                  ENTRY   DLZEI01                                                00000050
                                                  ENTRY   DLZEI02                                                00000060
                                                  ENTRY   DLZEI03                                                00000070
                                                  ENTRY   DLZEI04                                                00000080
 00000000 C4C6 C8E8 C3F5 F3F0                     DC      CL8'DFHYC530'                                          00000090
 00000008 58F0 021C                      DFHEI1   L       R15,540                        PSA reference           00000100
 0000000C 58F0 F0D0                               L       R15,208(,R15)                                          00000110
 00000010 58F0 F014                               L       R15,20(,R15)                                           00000120
 00000014 58F0 F00C                               L       R15,12(,R15)                                           00000130
 00000018 58FF 000C                               L       R15,12(R15)                                            00000140
 0000001C 07FF                                    BR      R15                                                    00000150
                                                  SPACE                                                          00000160
                                                  ASMDREG                                                        00000170
                                                  END                                                            00000180
 !! END OF JES SPOOL FILE !!
1ASMD008 The user of the COPYRIGHTOK option ensures that this use will not violate any copyright restrictions
         or other rights pertaining to the code being disassembled
 DIRECTORY INFO FOR MODULE  NACT05
           TTR OF MODULE=000117
           CONCATENATION NBR=00
           ALIAS INDIC=2C
           TTR, 1ST TXT RECD=00011D
           TTR OF NOTE/SCATTER LIST=000000
           NBR NOTE ENTRIES=00
           ATTRIBUTES 1=02C2                               EXEC
           TOTAL LENGTH=0017C8
           LENGTH OF 1ST TXT RECD=17C8
           E. P. ADDR=000020
           ATTRIBUTES 2=88
           AUTH CODE=00
-               *** EXTERNAL SYMBOL TABLE ***
0     SYMBOL        TYPE   IND  ADDR    SEG  LRID   LENG  ESDID
   ** DFHECI         SD                 01
      B_TEXT         ED        000000             00001E
      DFHECI         LD        000000
      DFHEI1         LD        000008
      DLZEI01        LD        000008
      DLZEI02        LD        000008
      DLZEI03        LD        000008
      DLZEI04        LD        000008
      NACT05         SD                 01
      B_TEXT         ED        000020             0015D4
      NACT05         LD        000020
      IGZEBST        ER        000000
      DFHEI1         ER        000000
      IGZEBST        SD                 01
      B_TEXT         ED        0015F8             0001D0
      IGZEBST        LD        0015F8
      IGZEBS2        LD        001720
      IGZETUN        ER        000000
      IGZEOPT        ER        000000
-               ***** RLD INFO *****
0     RELPTR  POSPTR      TYPE     LEN    DIR   ADDR
1DFHECI                                        *** User Control Statements ***
0NACT05
1***** Label Table *****
0  ADDR TYPE  LEN   SYMBOL
 000008   E       DLZEI04
 000008   E       DLZEI03
 000008   E       DLZEI02
 000008   E       DLZEI01
 000008   E       DFHEI1
 000020   E       A000020
1                                                  ***** T E X T *****
0000000   C4C6C8E8 C3F5F3F0 58F0021C 58F0F0D0   58F0F014 58F0F00C 58FF000C 07FF0000   DFHYC530.0...00..00..00.........
1DFHECI   'Disassembly of CSECT DFHECI   of Load Module NACT05  '
0  Loc    Object Code                     Source Statement
0                                        DFHECI   TITLE 'Disassembly of CSECT DFHECI   of Load Module NACT05  '  00000010
                                         *                 Produced by ASMDASM on 2024.102 at 15:30:02           00000020
                                         DFHECI   CSECT                                                          00000030
                                                  ENTRY   DFHEI1                                                 00000040
                                                  ENTRY   DLZEI01                                                00000050
                                                  ENTRY   DLZEI02                                                00000060
                                                  ENTRY   DLZEI03                                                00000070
                                                  ENTRY   DLZEI04                                                00000080
 00000000 C4C6 C8E8 C3F5 F3F0                     DC      CL8'DFHYC530'                                          00000090
 00000008 58F0 021C                      DFHEI1   L       R15,540                        PSA reference           00000100
 0000000C 58F0 F0D0                               L       R15,208(,R15)                                          00000110
 00000010 58F0 F014                               L       R15,20(,R15)                                           00000120
 00000014 58F0 F00C                               L       R15,12(,R15)                                           00000130
 00000018 58FF 000C                               L       R15,12(R15)                                            00000140
 0000001C 07FF                                    BR      R15                                                    00000150

The optional OPTABLE parameter values for ASMDASM are documented in the HLASM Installation and Customization Guide.

References

* indicates a required field.

Please select the following to receive Mike Slinn’s newsletter:

You can unsubscribe at any time by clicking the link in the footer of emails.

Mike Slinn uses Mailchimp as his marketing platform. By clicking below to subscribe, you acknowledge that your information will be transferred to Mailchimp for processing. Learn more about Mailchimp’s privacy practices.