1 
 
    2 
14.53.08 JOB  703  IEF196I IEF237I 1A2  ALLOCATED TO IEF0PDS0
    3 
14.53.08 JOB  703  IEF196I IEF285I   HERC01.KICKSSYS.V1R5M0.PROCLIB               KEPT
    4 
14.53.08 JOB  703  IEF196I IEF285I   VOL SER NOS= KICKS2.
    5 
14.53.08 JOB  703  $HASP373 DFXXP00A STARTED - INIT  3 - CLASS C - SYS BSP1
    6 
14.53.08 JOB  703  IEF403I DFXXP00A- STARTED - TIME=14.53.08
    7 
14.53.08 JOB  703  IEFACTRT - Stepname  Procstep  Program   Retcode
    8 
14.53.08 JOB  703  DFXXP00A   DFXXP00A  COPY      IEBGENER  RC= 0000
    9 
14.53.08 JOB  703  DFXXP00A   DFXXP00A  PP1       KIKPPCOB  RC= 0000
   10 
14.53.09 JOB  703  DFXXP00A   DFXXP00A  COB1      IKFCBL00  RC= 0000
   11 
14.53.09 JOB  703  DFXXP00A   DFXXP00A  PP2       KIKPPCOB  RC= 0000
   12 
14.53.09 JOB  703  DFXXP00A   DFXXP00A  COB2      IKFCBL00  RC= 0000
   13 
14.53.09 JOB  703  DFXXP00A   DFXXP00A  LKED      IEWL      RC= 0000
   14 
14.53.09 JOB  703  IEF404I DFXXP00A- ENDED - TIME=14.53.09
   15 
14.53.09 JOB  703  $HASP395 DFXXP00A ENDED
   16 
 
   17 
 
   18 
------ JES2 JOB STATISTICS ------
   19 
 
   20 
 
   21 
 30 OCT 14 JOB EXECUTION DATE
   22 
 
   23 
 
   24 
        13 CARDS READ
   25 
 
   26 
 
   27 
       980 SYSOUT PRINT RECORDS
   28 
 
   29 
 
   30 
         0 SYSOUT PUNCH RECORDS
   31 
 
   32 
 
   33 
      0.01 MINUTES EXECUTION TIME
   34 
    1     //DFXXP00A JOB  CLASS=C,MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K          JOB  703
   35 
          ***
   36 
    2     //JOBPROC DD   DSN=HERC01.KICKSSYS.V1R5M0.PROCLIB,DISP=SHR
   37 
          ***
   38 
          *** PROGRAMS FROM MURACH'S 'CICS FOR THE COBOL PROGRAMMER'
   39 
          ***
   40 
    3     //DFXXP00A EXEC K2KCOBCL
   41 
    4     XXK2KCOBCL PROC SOUT='*',ZOUT='Z',
   42 
          XX            UNT=SYSDA,
   43 
          XX            KICKSYS='HERC01.KICKSSYS',
   44 
          XX            KIKSUSR='HERC01.KICKS',
   45 
          XX            VER=V1R5M0,
   46 
          XX            CBLPARM='SUPMAP,DMAP,CLIST'
   47 
          ***
   48 
          ***   PROC FOR MVT ANSI COBOL
   49 
          ***        AS INSTALLED ON MVS38J TURNKEY
   50 
          ***   NON-LE COMPILER -- RUNS TWICE FOR 'LENGTH OF'...
   51 
          ***   WORKS WITH KICKS
   52 
          ***
   53 
          *** - copy input for pp1 & pp2
   54 
    5     XXCOPY   EXEC PGM=IEBGENER
   55 
    6     XXSYSPRINT DD SYSOUT=&ZOUT
   56 
    7     XXSYSIN    DD DUMMY
   57 
    8     XXSYSUT2   DD DSN=&&PPIN,DISP=(,PASS),UNIT=SYSDA,
   58 
          XX         SPACE=(TRK,(90,15),RLSE)
   59 
    9     //COPY.SYSUT1  DD DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COB(DFXXP00A)
   60 
          X/SYSUT1   DD DSN=&KIKSUSR..&VER..COBCOPY(&VER),DISP=SHR
   61 
          ***
   62 
          *** - first pp, make input for first cob
   63 
   10     XXPP1    EXEC PGM=KIKPPCOB,
   64 
          XX            PARM='-v -t -dmapin1'
   65 
   11     XXSTEPLIB  DD DSN=&KICKSYS..&VER..SKIKLOAD,DISP=SHR
   66 
   12     XXSYSPRINT DD DISP=(,PASS),UNIT=&UNT,SPACE=(800,(500,100),RLSE),
   67 
          XX            DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   68 
   13     XXSYSTERM  DD SYSOUT=&SOUT,DCB=(BLKSIZE=120,RECFM=F)
   69 
   14     XXSYSUDUMP DD SYSOUT=&SOUT
   70 
   15     XXSYSLIB   DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY
   71 
   16     XX         DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY
   72 
   17     XXSYSIN    DD DSN=&&PPIN,DISP=(OLD,PASS)
   73 
          ***
   74 
          *** - first cob, generate dmap
   75 
   18     XXCOB1   EXEC PGM=IKFCBL00,
   76 
          XX            REGION=4096K,
   77 
          XX            COND=(5,LT),
   78 
          XX PARM='DMAP,SOURCE,NOCLIST,NODECK,NOLOAD,SIZE=2048K,BUF=1024K,LIB'
   79 
   19     XXSYSPRINT DD DISP=(,PASS),UNIT=&UNT,SPACE=(1210,(500,100),RLSE),
   80 
          XX            DCB=(RECFM=FB,LRECL=121,BLKSIZE=1210)
   81 
   20     XXSYSPUNCH DD DUMMY
   82 
   21     XXSYSLIB   DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY
   83 
   22     XX         DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY
   84 
   23     XXSYSLIN   DD UNIT=&UNT,SPACE=(80,(250,100)),DISP=(MOD,DELETE)
   85 
   24     XXSYSUT1   DD UNIT=&UNT,SPACE=(460,(350,100))
   86 
   25     XXSYSUT2   DD UNIT=&UNT,SPACE=(460,(350,100))
   87 
   26     XXSYSUT3   DD UNIT=&UNT,SPACE=(460,(350,100))
   88 
   27     XXSYSUT4   DD UNIT=&UNT,SPACE=(460,(350,100))
   89 
   28     XXSYSIN    DD DISP=(OLD,DELETE),DSN=*.PP1.SYSPRINT
   90 
          ***
   91 
          *** - 2nd pp, use dmap for LENGTH's, make input to 2nd cob
   92 
   29     XXPP2    EXEC PGM=KIKPPCOB,COND=((5,LT,PP1),(12,LT,COB1)),
   93 
          XX            PARM='-t -dmapin2'
   94 
   30     XXSTEPLIB  DD DSN=&KICKSYS..&VER..SKIKLOAD,DISP=SHR
   95 
   31     XXSYSPRINT DD DISP=(,PASS),UNIT=&UNT,SPACE=(800,(500,100),RLSE),
   96 
          XX            DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
   97 
   32     XXSYSTERM  DD SYSOUT=&SOUT,DCB=(BLKSIZE=120,RECFM=F)
   98 
   33     XXSYSUDUMP DD SYSOUT=&SOUT
   99 
   34     XXSYSLIB   DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY
  100 
   35     XX         DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY
  101 
   36     XXDMAPIN   DD DISP=(OLD,DELETE),DSN=*.COB1.SYSPRINT
  102 
   37     XXSYSIN    DD DSN=&&PPIN,DISP=(OLD,DELETE)
  103 
          ***
  104 
          *** - 2nd cob, make object deck for linker
  105 
   38     XXCOB2   EXEC PGM=IKFCBL00,
  106 
          XX            REGION=4096K,
  107 
          XX            COND=(5,LT),
  108 
          XX            PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM,LIB'
  109 
   39     XXSYSPRINT DD SYSOUT=&SOUT
  110 
   40     XXSYSPUNCH DD DUMMY
  111 
   41     XXSYSLIB   DD DISP=SHR,DSN=&KIKSUSR..&VER..COBCOPY
  112 
   42     XX         DD DISP=SHR,DSN=&KICKSYS..&VER..COBCOPY
  113 
   43     XXSYSLIN   DD UNIT=&UNT,SPACE=(80,(250,100)),DISP=(MOD,PASS)
  114 
   44     XXSYSUT1   DD UNIT=&UNT,SPACE=(460,(350,100))
  115 
   45     XXSYSUT2   DD UNIT=&UNT,SPACE=(460,(350,100))
  116 
   46     XXSYSUT3   DD UNIT=&UNT,SPACE=(460,(350,100))
  117 
   47     XXSYSUT4   DD UNIT=&UNT,SPACE=(460,(350,100))
  118 
   48     XXSYSIN    DD DISP=(OLD,DELETE),DSN=*.PP2.SYSPRINT
  119 
          ***
  120 
   49     XXLKED   EXEC PGM=IEWL,
  121 
          XX            COND=(5,LT),
  122 
          XX            PARM='XREF,LIST,LET,MAP'
  123 
   50     XXSYSPRINT DD SYSOUT=&SOUT
  124 
   51     XXSYSLIB   DD DISP=SHR,DSN=SYS1.COBLIB
  125 
   52     XXSYSLMOD  DD DISP=SHR,DSN=&KIKSUSR..&VER..KIKRPL
  126 
   53     XXSYSLIN   DD DISP=(OLD,DELETE),DSN=*.COB2.SYSLIN
  127 
   54     XX         DD DDNAME=SYSIN
  128 
   55     XXSYSUT1   DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),
  129 
          XX         SPACE=(1024,(200,20))
  130 
   56     XXSKIKLOAD DD DISP=SHR,DSN=&KICKSYS..&VER..SKIKLOAD
  131 
   57     XXKIKRPL   DD DISP=SHR,DSN=&KICKSYS..&VER..KIKRPL
  132 
   58     //LKED.SYSIN DD *
  133 
          X/SYSIN    DD DUMMY
  134 
 STMT NO. MESSAGE
  135 
-
  136 
    6     IEF653I SUBSTITUTION JCL - SYSOUT=Z
  137 
    9     IEF653I SUBSTITUTION JCL - DSN=HERC01.KICKS.V1R5M0.COBCOPY(V1R5M0),DISP=SHR
  138 
   11     IEF653I SUBSTITUTION JCL - DSN=HERC01.KICKSSYS.V1R5M0.SKIKLOAD,DISP=SHR
  139 
   12     IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(800,(500,100),RLSE),
  140 
   13     IEF653I SUBSTITUTION JCL - SYSOUT=*,DCB=(BLKSIZE=120,RECFM=F)
  141 
   14     IEF653I SUBSTITUTION JCL - SYSOUT=*
  142 
   15     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY
  143 
   16     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY
  144 
   19     IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(1210,(500,100),RLSE),
  145 
   21     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY
  146 
   22     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY
  147 
   23     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(80,(250,100)),DISP=(MOD,DELETE)
  148 
   24     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  149 
   25     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  150 
   26     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  151 
   27     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  152 
   30     IEF653I SUBSTITUTION JCL - DSN=HERC01.KICKSSYS.V1R5M0.SKIKLOAD,DISP=SHR
  153 
   31     IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(800,(500,100),RLSE),
  154 
   32     IEF653I SUBSTITUTION JCL - SYSOUT=*,DCB=(BLKSIZE=120,RECFM=F)
  155 
   33     IEF653I SUBSTITUTION JCL - SYSOUT=*
  156 
   34     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY
  157 
   35     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY
  158 
   38     IEF653I SUBSTITUTION JCL - PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP,DMAP,CLIST,LIB'
  159 
   39     IEF653I SUBSTITUTION JCL - SYSOUT=*
  160 
   41     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.COBCOPY
  161 
   42     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.COBCOPY
  162 
   43     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(80,(250,100)),DISP=(MOD,PASS)
  163 
   44     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  164 
   45     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  165 
   46     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  166 
   47     IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(350,100))
  167 
   50     IEF653I SUBSTITUTION JCL - SYSOUT=*
  168 
   52     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKS.V1R5M0.KIKRPL
  169 
   56     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.SKIKLOAD
  170 
   57     IEF653I SUBSTITUTION JCL - DISP=SHR,DSN=HERC01.KICKSSYS.V1R5M0.KIKRPL
  171 
IEF236I ALLOC. FOR DFXXP00ACOPY DFXXP00A
  172 
IEF237I JES2 ALLOCATED TO SYSPRINT
  173 
IEF237I DMY  ALLOCATED TO SYSIN
  174 
IEF237I 1A7  ALLOCATED TO SYSUT2
  175 
IEF237I 1A2  ALLOCATED TO SYSUT1
  176 
IEF237I 240  ALLOCATED TO SYS00596
  177 
IEF142I DFXXP00ACOPY DFXXP00A - STEP WAS EXECUTED - COND CODE 0000
  178 
IEF285I   JES2.JOB00703.SO0102                         SYSOUT
  179 
IEF285I   SYS14303.T145308.RA000.MURPGMS.PPIN          PASSED        *--------4
  180 
IEF285I   VOL SER NOS= WORK04.
  181 
IEF285I   HERC01.KICKS.V1R5M0.COB                      KEPT          *--------5
  182 
IEF285I   VOL SER NOS= KICKS2.
  183 
IEF285I   SYS1.UCAT.TSO                                KEPT          *--------0
  184 
IEF285I   VOL SER NOS= PUB000.
  185 
IEF373I STEP /COPY    / START 14303.1453
  186 
IEF374I STEP /COPY    / STOP  14303.1453 CPU    0MIN 00.01SEC SRB    0MIN 00.00SEC VIRT    48K SYS   204K
  187 
************************************************************************************************************************************
  188 
*     1. Jobstep of job: DFXXP00A    Stepname: COPY        Program name: IEBGENER   Executed on 30.10.14 from 14.53.08 to 14.53.08 *
  189 
*         elapsed time  00:00:00,05                      CPU-Identifier:  BSP1           Page-in:      0                           *
  190 
*             CPU time  00:00:00,01               Virtual Storage used:     48K         Page-out:      0                           *
  191 
*     I/O Operation                                                                                                                *
  192 
*     Number of records read via DD * or DD DATA:      0                                                                           *
  193 
*     DMY.......0 DMY.......0 1A7.......4 1A2.......5 240.......0                                                                  *
  194 
*                                                                                                                                  *
  195 
*                                          Charge for step (w/o SYSOUT):          0,01                                             *
  196 
************************************************************************************************************************************
  197 
IEF236I ALLOC. FOR DFXXP00APP1 DFXXP00A
  198 
IEF237I 1A2  ALLOCATED TO STEPLIB
  199 
IEF237I 240  ALLOCATED TO SYS00598
  200 
IEF237I 1A0  ALLOCATED TO SYSPRINT
  201 
IEF237I JES2 ALLOCATED TO SYSTERM
  202 
IEF237I JES2 ALLOCATED TO SYSUDUMP
  203 
IEF237I 1A2  ALLOCATED TO SYSLIB
  204 
IEF237I 1A2  ALLOCATED TO
  205 
IEF237I 1A7  ALLOCATED TO SYSIN
  206 
IEF142I DFXXP00APP1 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000
  207 
IEF285I   HERC01.KICKSSYS.V1R5M0.SKIKLOAD              KEPT          *--------0
  208 
IEF285I   VOL SER NOS= KICKS2.
  209 
IEF285I   SYS1.UCAT.TSO                                KEPT          *--------0
  210 
IEF285I   VOL SER NOS= PUB000.
  211 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000001      PASSED        *-------39
  212 
IEF285I   VOL SER NOS= WORK02.
  213 
IEF285I   JES2.JOB00703.SO0103                         SYSOUT
  214 
IEF285I   JES2.JOB00703.SO0104                         SYSOUT
  215 
IEF285I   HERC01.KICKS.V1R5M0.COBCOPY                  KEPT          *-------10
  216 
IEF285I   VOL SER NOS= KICKS2.
  217 
IEF285I   HERC01.KICKSSYS.V1R5M0.COBCOPY               KEPT          *--------0
  218 
IEF285I   VOL SER NOS= KICKS2.
  219 
IEF285I   SYS14303.T145308.RA000.MURPGMS.PPIN          PASSED        *--------5
  220 
IEF285I   VOL SER NOS= WORK04.
  221 
IEF373I STEP /PP1     / START 14303.1453
  222 
IEF374I STEP /PP1     / STOP  14303.1453 CPU    0MIN 00.17SEC SRB    0MIN 00.01SEC VIRT   720K SYS   208K
  223 
************************************************************************************************************************************
  224 
*     2. Jobstep of job: DFXXP00A    Stepname: PP1         Program name: KIKPPCOB   Executed on 30.10.14 from 14.53.08 to 14.53.08 *
  225 
*         elapsed time  00:00:00,22                      CPU-Identifier:  BSP1           Page-in:      0                           *
  226 
*             CPU time  00:00:00,18               Virtual Storage used:    720K         Page-out:      0                           *
  227 
*     I/O Operation                                                                                                                *
  228 
*     Number of records read via DD * or DD DATA:      0                                                                           *
  229 
*     1A2.......0 240.......0 1A0......39 DMY.......0 DMY.......0 1A2......10 1A2.......0 1A7.......5                              *
  230 
*                                                                                                                                  *
  231 
*                                          Charge for step (w/o SYSOUT):          0,30                                             *
  232 
************************************************************************************************************************************
  233 
IEF236I ALLOC. FOR DFXXP00ACOB1 DFXXP00A
  234 
IEF237I 1A7  ALLOCATED TO SYSPRINT
  235 
IEF237I DMY  ALLOCATED TO SYSPUNCH
  236 
IEF237I 1A2  ALLOCATED TO SYSLIB
  237 
IEF237I 1A2  ALLOCATED TO
  238 
IEF237I 240  ALLOCATED TO SYS00600
  239 
IEF237I 170  ALLOCATED TO SYSLIN
  240 
IEF237I 1B0  ALLOCATED TO SYSUT1
  241 
IEF237I 152  ALLOCATED TO SYSUT2
  242 
IEF237I 140  ALLOCATED TO SYSUT3
  243 
IEF237I 170  ALLOCATED TO SYSUT4
  244 
IEF237I 1A0  ALLOCATED TO SYSIN
  245 
IEF142I DFXXP00ACOB1 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000
  246 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000002      PASSED        *-------54
  247 
IEF285I   VOL SER NOS= WORK04.
  248 
IEF285I   HERC01.KICKS.V1R5M0.COBCOPY                  KEPT          *--------0
  249 
IEF285I   VOL SER NOS= KICKS2.
  250 
IEF285I   HERC01.KICKSSYS.V1R5M0.COBCOPY               KEPT          *--------0
  251 
IEF285I   VOL SER NOS= KICKS2.
  252 
IEF285I   SYS1.UCAT.TSO                                KEPT          *--------0
  253 
IEF285I   VOL SER NOS= PUB000.
  254 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000003      DELETED       *--------0
  255 
IEF285I   VOL SER NOS= WORK01.
  256 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000004      DELETED       *--------4
  257 
IEF285I   VOL SER NOS= WORK03.
  258 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000005      DELETED       *--------6
  259 
IEF285I   VOL SER NOS= HASP00.
  260 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000006      DELETED       *--------7
  261 
IEF285I   VOL SER NOS= WORK00.
  262 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000007      DELETED       *--------6
  263 
IEF285I   VOL SER NOS= WORK01.
  264 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000001      DELETED       *-------40
  265 
IEF285I   VOL SER NOS= WORK02.
  266 
IEF373I STEP /COB1    / START 14303.1453
  267 
IEF374I STEP /COB1    / STOP  14303.1453 CPU    0MIN 00.07SEC SRB    0MIN 00.02SEC VIRT  2076K SYS   204K
  268 
************************************************************************************************************************************
  269 
*     3. Jobstep of job: DFXXP00A    Stepname: COB1        Program name: IKFCBL00   Executed on 30.10.14 from 14.53.08 to 14.53.09 *
  270 
*         elapsed time  00:00:00,22                      CPU-Identifier:  BSP1           Page-in:      0                           *
  271 
*             CPU time  00:00:00,09               Virtual Storage used:   2076K         Page-out:      0                           *
  272 
*     I/O Operation                                                                                                                *
  273 
*     Number of records read via DD * or DD DATA:      0                                                                           *
  274 
*     1A7......54 DMY.......0 1A2.......0 1A2.......0 240.......0 170.......0 1B0.......4 152.......6 140.......7 170.......6      *
  275 
*     1A0......40                                                                                                                  *
  276 
*                                                                                                                                  *
  277 
*                                          Charge for step (w/o SYSOUT):          0,15                                             *
  278 
************************************************************************************************************************************
  279 
IEF236I ALLOC. FOR DFXXP00APP2 DFXXP00A
  280 
IEF237I 1A2  ALLOCATED TO STEPLIB
  281 
IEF237I 240  ALLOCATED TO SYS00602
  282 
IEF237I 1A0  ALLOCATED TO SYSPRINT
  283 
IEF237I JES2 ALLOCATED TO SYSTERM
  284 
IEF237I JES2 ALLOCATED TO SYSUDUMP
  285 
IEF237I 1A2  ALLOCATED TO SYSLIB
  286 
IEF237I 1A2  ALLOCATED TO
  287 
IEF237I 1A7  ALLOCATED TO DMAPIN
  288 
IEF237I 1A7  ALLOCATED TO SYSIN
  289 
IEF142I DFXXP00APP2 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000
  290 
IEF285I   HERC01.KICKSSYS.V1R5M0.SKIKLOAD              KEPT          *--------0
  291 
IEF285I   VOL SER NOS= KICKS2.
  292 
IEF285I   SYS1.UCAT.TSO                                KEPT          *--------0
  293 
IEF285I   VOL SER NOS= PUB000.
  294 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000008      PASSED        *-------39
  295 
IEF285I   VOL SER NOS= WORK02.
  296 
IEF285I   JES2.JOB00703.SO0105                         SYSOUT
  297 
IEF285I   JES2.JOB00703.SO0106                         SYSOUT
  298 
IEF285I   HERC01.KICKS.V1R5M0.COBCOPY                  KEPT          *-------10
  299 
IEF285I   VOL SER NOS= KICKS2.
  300 
IEF285I   HERC01.KICKSSYS.V1R5M0.COBCOPY               KEPT          *--------0
  301 
IEF285I   VOL SER NOS= KICKS2.
  302 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000002      DELETED       *------110
  303 
IEF285I   VOL SER NOS= WORK04.
  304 
IEF285I   SYS14303.T145308.RA000.MURPGMS.PPIN          DELETED       *--------5
  305 
IEF285I   VOL SER NOS= WORK04.
  306 
IEF373I STEP /PP2     / START 14303.1453
  307 
IEF374I STEP /PP2     / STOP  14303.1453 CPU    0MIN 00.33SEC SRB    0MIN 00.01SEC VIRT   720K SYS   212K
  308 
************************************************************************************************************************************
  309 
*     4. Jobstep of job: DFXXP00A    Stepname: PP2         Program name: KIKPPCOB   Executed on 30.10.14 from 14.53.09 to 14.53.09 *
  310 
*         elapsed time  00:00:00,38                      CPU-Identifier:  BSP1           Page-in:      0                           *
  311 
*             CPU time  00:00:00,34               Virtual Storage used:    720K         Page-out:      0                           *
  312 
*     I/O Operation                                                                                                                *
  313 
*     Number of records read via DD * or DD DATA:      0                                                                           *
  314 
*     1A2.......0 240.......0 1A0......39 DMY.......0 DMY.......0 1A2......10 1A2.......0 1A7.....110 1A7.......5                  *
  315 
*                                                                                                                                  *
  316 
*                                          Charge for step (w/o SYSOUT):          0,56                                             *
  317 
************************************************************************************************************************************
  318 
IEF236I ALLOC. FOR DFXXP00ACOB2 DFXXP00A
  319 
IEF237I JES2 ALLOCATED TO SYSPRINT
  320 
IEF237I DMY  ALLOCATED TO SYSPUNCH
  321 
IEF237I 1A2  ALLOCATED TO SYSLIB
  322 
IEF237I 1A2  ALLOCATED TO
  323 
IEF237I 240  ALLOCATED TO SYS00604
  324 
IEF237I 1A7  ALLOCATED TO SYSLIN
  325 
IEF237I 170  ALLOCATED TO SYSUT1
  326 
IEF237I 152  ALLOCATED TO SYSUT2
  327 
IEF237I 140  ALLOCATED TO SYSUT3
  328 
IEF237I 1B0  ALLOCATED TO SYSUT4
  329 
IEF237I 1A0  ALLOCATED TO SYSIN
  330 
IEF142I DFXXP00ACOB2 DFXXP00A - STEP WAS EXECUTED - COND CODE 0000
  331 
IEF285I   JES2.JOB00703.SO0107                         SYSOUT
  332 
IEF285I   HERC01.KICKS.V1R5M0.COBCOPY                  KEPT          *--------0
  333 
IEF285I   VOL SER NOS= KICKS2.
  334 
IEF285I   HERC01.KICKSSYS.V1R5M0.COBCOPY               KEPT          *--------0
  335 
IEF285I   VOL SER NOS= KICKS2.
  336 
IEF285I   SYS1.UCAT.TSO                                KEPT          *--------0
  337 
IEF285I   VOL SER NOS= PUB000.
  338 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000009      PASSED        *-------78
  339 
IEF285I   VOL SER NOS= WORK04.
  340 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000010      DELETED       *--------6
  341 
IEF285I   VOL SER NOS= WORK01.
  342 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000011      DELETED       *--------6
  343 
IEF285I   VOL SER NOS= HASP00.
  344 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000012      DELETED       *--------9
  345 
IEF285I   VOL SER NOS= WORK00.
  346 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000013      DELETED       *--------8
  347 
IEF285I   VOL SER NOS= WORK03.
  348 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000008      DELETED       *-------40
  349 
IEF285I   VOL SER NOS= WORK02.
  350 
IEF373I STEP /COB2    / START 14303.1453
  351 
IEF374I STEP /COB2    / STOP  14303.1453 CPU    0MIN 00.08SEC SRB    0MIN 00.02SEC VIRT  2076K SYS   220K
  352 
************************************************************************************************************************************
  353 
*     5. Jobstep of job: DFXXP00A    Stepname: COB2        Program name: IKFCBL00   Executed on 30.10.14 from 14.53.09 to 14.53.09 *
  354 
*         elapsed time  00:00:00,16                      CPU-Identifier:  BSP1           Page-in:      0                           *
  355 
*             CPU time  00:00:00,10               Virtual Storage used:   2076K         Page-out:      0                           *
  356 
*     I/O Operation                                                                                                                *
  357 
*     Number of records read via DD * or DD DATA:      0                                                                           *
  358 
*     DMY.......0 DMY.......0 1A2.......0 1A2.......0 240.......0 1A7......78 170.......6 152.......6 140.......9 1B0.......8      *
  359 
*     1A0......40                                                                                                                  *
  360 
*                                                                                                                                  *
  361 
*                                          Charge for step (w/o SYSOUT):          0,16                                             *
  362 
************************************************************************************************************************************
  363 
IEF236I ALLOC. FOR DFXXP00ALKED DFXXP00A
  364 
IEF237I JES2 ALLOCATED TO SYSPRINT
  365 
IEF237I 148  ALLOCATED TO SYSLIB
  366 
IEF237I 1A2  ALLOCATED TO SYSLMOD
  367 
IEF237I 240  ALLOCATED TO SYS00606
  368 
IEF237I 1A7  ALLOCATED TO SYSLIN
  369 
IEF237I JES2 ALLOCATED TO
  370 
IEF237I 1A0  ALLOCATED TO SYSUT1
  371 
IEF237I 1A2  ALLOCATED TO SKIKLOAD
  372 
IEF237I 1A2  ALLOCATED TO KIKRPL
  373 
IEF142I DFXXP00ALKED DFXXP00A - STEP WAS EXECUTED - COND CODE 0000
  374 
IEF285I   JES2.JOB00703.SO0108                         SYSOUT
  375 
IEF285I   SYS1.COBLIB                                  KEPT          *--------7
  376 
IEF285I   VOL SER NOS= MVSRES.
  377 
IEF285I   HERC01.KICKS.V1R5M0.KIKRPL                   KEPT          *-------19
  378 
IEF285I   VOL SER NOS= KICKS2.
  379 
IEF285I   SYS1.UCAT.TSO                                KEPT          *--------0
  380 
IEF285I   VOL SER NOS= PUB000.
  381 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000009      DELETED       *-------79
  382 
IEF285I   VOL SER NOS= WORK04.
  383 
IEF285I   JES2.JOB00703.SI0101                         SYSIN
  384 
IEF285I   SYS14303.T145308.RA000.MURPGMS.R0000014      DELETED       *--------0
  385 
IEF285I   VOL SER NOS= WORK02.
  386 
IEF285I   HERC01.KICKSSYS.V1R5M0.SKIKLOAD              KEPT          *-------16
  387 
IEF285I   VOL SER NOS= KICKS2.
  388 
IEF285I   HERC01.KICKSSYS.V1R5M0.KIKRPL                KEPT          *--------0
  389 
IEF285I   VOL SER NOS= KICKS2.
  390 
IEF373I STEP /LKED    / START 14303.1453
  391 
IEF374I STEP /LKED    / STOP  14303.1453 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC VIRT   196K SYS   224K
  392 
************************************************************************************************************************************
  393 
*     6. Jobstep of job: DFXXP00A    Stepname: LKED        Program name: IEWL       Executed on 30.10.14 from 14.53.09 to 14.53.09 *
  394 
*         elapsed time  00:00:00,07                      CPU-Identifier:  BSP1           Page-in:      0                           *
  395 
*             CPU time  00:00:00,03               Virtual Storage used:    196K         Page-out:      0                           *
  396 
*     I/O Operation                                                                                                                *
  397 
*     Number of records read via DD * or DD DATA:      3                                                                           *
  398 
*     DMY.......0 148.......7 1A2......19 240.......0 1A7......79 DMY.......0 1A0.......0 1A2......16 1A2.......0                  *
  399 
*                                                                                                                                  *
  400 
*                                          Charge for step (w/o SYSOUT):          0,05                                             *
  401 
************************************************************************************************************************************
  402 
IEF375I  JOB /DFXXP00A/ START 14303.1453
  403 
IEF376I  JOB /DFXXP00A/ STOP  14303.1453 CPU    0MIN 00.69SEC SRB    0MIN 00.06SEC
  404 
KIKCOBPP version V1R5M0(0)
  405 
  CB545 V2 LVL78 01MAY72                 IBM OS AMERICAN NATIONAL STANDARD COBOL                       DATE OCT 30,2014
  406 
 
  407 
 
  408 
   1
  409 
 
  410 
 
  411 
00001          IDENTIFICATION DIVISION.
  412 
00002
  413 
00003          PROGRAM-ID.  DFXXP00A.
  414 
00004
  415 
00005          ENVIRONMENT DIVISION.
  416 
00006
  417 
00007          DATA DIVISION.
  418 
00008
  419 
00009          WORKING-STORAGE SECTION.
  420 
00010
  421 
00011          01  WORK-FIELDS.
  422 
00012
  423 
00013              05  PACKED-FIELD-1      PIC S9(07)V99  COMP-3.
  424 
00014              05  PACKED-FIELD-2      PIC S9(07)V99  COMP-3.
  425 
00015              05  ALPHA-FIELD-2       REDEFINES PACKED-FIELD-2
  426 
00016                                      PIC X(05).
  427 
00017
  428 
00018          01  I-O-AREA                PIC X(100).
  429 
00019
  430 
00020          01  START-UP-MESSAGE.
  431 
00021
  432 
00022              05  FILLER PIC X(30) VALUE 'ABEND TESTER                  '.
  433 
00023              05  FILLER PIC X(49) VALUE SPACE.
  434 
00024              05  FILLER PIC X(79) VALUE SPACE.
  435 
00025              05  FILLER PIC X(30) VALUE 'Press a PF key to force one of'.
  436 
00026              05  FILLER PIC X(49) VALUE ' the following abends:'.
  437 
00027              05  FILLER PIC X(79) VALUE SPACE.
  438 
00028              05  FILLER PIC X(30) VALUE 'PF1 = ASRA (Data Exception)   '.
  439 
00029              05  FILLER PIC X(49) VALUE SPACE.
  440 
00030              05  FILLER PIC X(30) VALUE 'PF2 = ASRA (Decimal Divide Exc'.
  441 
00031              05  FILLER PIC X(49) VALUE 'eption)'.
  442 
00032              05  FILLER PIC X(30) VALUE 'PF3 = ASRA (Protection Excepti'.
  443 
00033              05  FILLER PIC X(49) VALUE 'on)'.
  444 
00034              05  FILLER PIC X(30) VALUE 'PF4 = ABM0 (Missing Map)      '.
  445 
00035              05  FILLER PIC X(49) VALUE SPACE.
  446 
00036              05  FILLER PIC X(30) VALUE 'PF5 = AEIO (PGMIDERR)         '.
  447 
00037              05  FILLER PIC X(49) VALUE SPACE.
  448 
00038              05  FILLER PIC X(30) VALUE 'PF6 = AEIL (DSIDERR)          '.
  449 
00039              05  FILLER PIC X(49) VALUE SPACE.
  450 
00040              05  FILLER PIC X(30) VALUE 'PF7 = AICA  (Run away task)   '.
  451 
00041              05  FILLER PIC X(49) VALUE SPACE.
  452 
00042              05  FILLER PIC X(79) VALUE SPACE.
  453 
00043              05  FILLER PIC X(79) VALUE SPACE.
  454 
00044              05  FILLER PIC X(30) VALUE 'Or press Enter to exit without'.
  455 
00045              05  FILLER PIC X(49) VALUE ' abending.'.
  456 
00046
  457 
00047          01  TERMINATION-MESSAGE.
  458 
00048
  459 
00049              05  FILLER PIC X(09) VALUE 'Good Bye.'.
  460 
00050
  461 
00051          01  COMMUNICATION-AREA   PIC X(01).
  462 
00052
  463 
00053         *COPY KIKAID.
  464 
00054         *///////////////////////////////////////////////////////////////
  465 
00055         * KICKS is an enhancement for TSO that lets you run your CICS
  466 
00056         * applications directly in TSO instead of having to 'install'
  467 
00057         * those apps in CICS.
  468 
00058         * You don't even need CICS itself installed on your machine!
  469 
00059         *
  470 
00060         * KICKS for TSO
  471 
00061         *  Copyright 2008-2014, Michael Noel, All Rights Reserved.
  472 
00062         *
  473 
00063         * Usage of 'KICKS for TSO' is in all cases subject to license.
  474 
00064         * See http://www.kicksfortso.com
  475 
00065         * for most current information regarding licensing options.
  476 
00066         *//1/////////2/////////3/////////4/////////5/////////6/////////7
  477 
00067
  478 
00068         *   3270 aid byte values, usually used in examining eibaid
  479 
00069         *                         to determine what user pressed...
  480 
00070
  481 
00071          01  KIKAID.
  482 
00072         *    05  KIKENTER PIC X VALUE X'7D'.
  483 
00073              05  KIKENTER PIC X VALUE QUOTE.
  484 
00074         *    05  KIKCLEAR PIC X VALUE X'6D'.
  485 
00075              05  KIKCLEAR PIC X VALUE '_'.
  486 
00076
  487 
00077         *    05  KIKNULL  PIC X VALUE X'00'.
  488 
00078              05  KIKNULL  PIC X VALUE LOW-VALUES.
  489 
00079
  490 
00080         *    05  KIKPA1   PIC X VALUE X'6C'.
  491 
00081              05  KIKPA1   PIC X VALUE '%'.
  492 
00082         *    05  KIKPA2   PIC X VALUE X'6E'.
  493 
00083              05  KIKPA2   PIC X VALUE '>'.
  494 
00084         *    05  KIKPA3   PIC X VALUE X'6B'.
  495 
00085              05  KIKPA3   PIC X VALUE ','.
  496 
00086
  497 
00087         *    05  KIKPF1   PIC X VALUE X'F1'.
  498 
00088              05  KIKPF1   PIC X VALUE '1'.
  499 
00089         *    05  KIKPF2   PIC X VALUE X'F2'.
  500 
00090              05  KIKPF2   PIC X VALUE '2'.
  501 
00091         *    05  KIKPF3   PIC X VALUE X'F3'.
  502 
00092              05  KIKPF3   PIC X VALUE '3'.
  503 
00093         *    05  KIKPF4   PIC X VALUE X'F4'.
  504 
00094              05  KIKPF4   PIC X VALUE '4'.
  505 
00095         *    05  KIKPF5   PIC X VALUE X'F5'.
  506 
00096              05  KIKPF5   PIC X VALUE '5'.
  507 
00097         *    05  KIKPF6   PIC X VALUE X'F6'.
  508 
00098              05  KIKPF6   PIC X VALUE '6'.
  509 
00099         *    05  KIKPF7   PIC X VALUE X'F7'.
  510 
00100              05  KIKPF7   PIC X VALUE '7'.
  511 
00101         *    05  KIKPF8   PIC X VALUE X'F8'.
  512 
00102              05  KIKPF8   PIC X VALUE '8'.
  513 
00103         *    05  KIKPF9   PIC X VALUE X'F9'.
  514 
00104              05  KIKPF9   PIC X VALUE '9'.
  515 
00105         *    05  KIKPF10  PIC X VALUE X'7A'.
  516 
00106              05  KIKPF10  PIC X VALUE ':'.
  517 
00107         *    05  KIKPF11  PIC X VALUE X'7B'.
  518 
00108              05  KIKPF11  PIC X VALUE '#'.
  519 
00109         *    05  KIKPF12  PIC X VALUE X'7C'.
  520 
00110              05  KIKPF12  PIC X VALUE '@'.
  521 
00111         *    05  KIKPF13  PIC X VALUE X'C1'.
  522 
00112              05  KIKPF13  PIC X VALUE 'A'.
  523 
00113         *    05  KIKPF14  PIC X VALUE X'C2'.
  524 
00114              05  KIKPF14  PIC X VALUE 'B'.
  525 
00115         *    05  KIKPF15  PIC X VALUE X'C3'.
  526 
00116              05  KIKPF15  PIC X VALUE 'C'.
  527 
00117         *    05  KIKPF16  PIC X VALUE X'C4'.
  528 
00118              05  KIKPF16  PIC X VALUE 'D'.
  529 
00119         *    05  KIKPF17  PIC X VALUE X'C5'.
  530 
00120              05  KIKPF17  PIC X VALUE 'E'.
  531 
00121         *    05  KIKPF18  PIC X VALUE X'C6'.
  532 
00122              05  KIKPF18  PIC X VALUE 'F'.
  533 
00123         *    05  KIKPF19  PIC X VALUE X'C7'.
  534 
00124              05  KIKPF19  PIC X VALUE 'G'.
  535 
00125         *    05  KIKPF20  PIC X VALUE X'C8'.
  536 
00126              05  KIKPF20  PIC X VALUE 'H'.
  537 
00127         *    05  KIKPF21  PIC X VALUE X'C9'.
  538 
00128              05  KIKPF21  PIC X VALUE 'I'.
  539 
00129         *    05  KIKPF22  PIC X VALUE X'4A'.
  540 
00130              05  KIKPF22  PIC X VALUE ''.
  541 
00131         *    05  KIKPF23  PIC X VALUE X'4B'.
  542 
00132              05  KIKPF23  PIC X VALUE '.'.
  543 
00133         *    05  KIKPF24  PIC X VALUE X'4C'.
  544 
00134              05  KIKPF24  PIC X VALUE '<'.
  545 
00135
  546 
00136
  547 
00137         * VALUES USED IN EXEC-KICKS CALLS
  548 
00138
  549 
00139          01  KIK-MSG                         PIC X(80).
  550 
00140          01  KIK-MAPSETNAME                  PIC X(8).
  551 
00141          01  KIK-MAPNAME                     PIC X(8).
  552 
00142          01  KIK-QUEUENAME.
  553 
00143              05  KIK-FILENAME                PIC X(8).
  554 
00144              05  KIK-PROGRAM                 PIC X(8).
  555 
00145          01  KIK-TRAN                        PIC X(4).
  556 
00146          01  KIK-ABND                        PIC X(4).
  557 
00147          01  KIK-LEN                         PIC S9(4) COMP.
  558 
00148          01  KIK-ITEM                        PIC S9(4) COMP.
  559 
00149          01  KIK-ITEMSIZE                    PIC S9(4) COMP.
  560 
00150          01  KIK-NUMITEMS                    PIC S9(4) COMP.
  561 
00151          01  KIK-FLEN                        PIC S9(8) COMP.
  562 
00152          01  KIK-KEYLEN                      PIC S9(4) COMP.
  563 
00153          01  KIK-NUMREC                      PIC S9(4) COMP.
  564 
00154          01  KIK-REQID                       PIC S9(4) COMP.
  565 
00155          01  KIK-FLAGS                       PIC S9(8) COMP.
  566 
00156          01  KIK-GOTOVAR                     PIC S9(4) COMP.
  567 
00157          01  KIK-NUM-GOTO                    PIC S9(8) COMP.
  568 
00158          01  KIK-AIDS1                       PIC S9(8) COMP.
  569 
00159          01  KIK-AIDS2                       PIC S9(8) COMP.
  570 
00160          01  KIK-AIDS3                       PIC S9(8) COMP.
  571 
00161          01  KIK-AIDS4                       PIC S9(8) COMP.
  572 
00162
  573 
00163         * due to compiler bug (in ANSI MVT COBOL compiler)
  574 
00164         * we can't have versions in value clause because
  575 
00165         * the compiler doesn't like really big (but valid) numbers
  576 
00166         * in value clauses. they seem ok in moves, computes, ...
  577 
00167          01  KIK-V1                          PIC S9(8) COMP VALUE +0.
  578 
00168          01  KIK-V2                          PIC S9(8) COMP VALUE +0.
  579 
00169
  580 
00170          01  KIK-NULL                        PIC S9(8) COMP VALUE +0.
  581 
00171
  582 
00172          LINKAGE SECTION.
  583 
00173
  584 
00174         *COPY KIKEIB.
  585 
00175         *///////////////////////////////////////////////////////////////
  586 
00176         * KICKS is an enhancement for TSO that lets you run your CICS
  587 
00177         * applications directly in TSO instead of having to 'install'
  588 
00178         * those apps in CICS.
  589 
00179         * You don't even need CICS itself installed on your machine!
  590 
00180         *
  591 
00181         * KICKS for TSO
  592 
00182         *  Copyright 2008-2014, Michael Noel, All Rights Reserved.
  593 
00183         *
  594 
00184         * Usage of 'KICKS for TSO' is in all cases subject to license.
  595 
00185         * See http://www.kicksfortso.com
  596 
00186         * for most current information regarding licensing options.
  597 
00187         *//1/////////2/////////3/////////4/////////5/////////6/////////7
  598 
00188
  599 
00189          01  KIKEIB.
  600 
00190              05  EIBTASKN PIC S9(8) COMP SYNC.
  601 
00191              05  EIBCALEN PIC S9(4) COMP SYNC.
  602 
00192              05  EIBCPOSN PIC S9(4) COMP SYNC.
  603 
00193              05  EIBDATE PIC S9(7) COMP-3.
  604 
00194              05  EIBTIME PIC S9(7) COMP-3.
  605 
00195              05  EIBRESP PIC S9(8) COMP SYNC.
  606 
00196              05  EIBRESP2 PIC S9(8) COMP SYNC.
  607 
00197              05  EIBRSRCE PIC X(8).
  608 
00198              05  EIBDS PIC X(8).
  609 
00199              05  EIBFN PIC X(2).
  610 
00200              05  EIBFN-2 REDEFINES EIBFN PIC S9(4) COMP.
  611 
00201              05  EIBRCODE PIC X(6).
  612 
00202              05  EIBTRMID PIC X(4).
  613 
00203              05  EIBTRNID PIC X(4).
  614 
00204              05  EIBAID PIC X.
  615 
00205              05  EIBOPID PIC X(3).
  616 
00206              05  EIBUSRID PIC X(8).
  617 
00207              05  EIBSYSID PIC X(8).
  618 
00208              05  EIBNETID PIC X(8).
  619 
00209              05  EIBPGMID PIC X(8).
  620 
00210         * following three added to PRO for source trace
  621 
00211              05  EIBLINE  PIC S9(8) COMP SYNC.
  622 
00212              05  EIBPROG  PIC X(8).
  623 
00213              05  EIBWC    PIC X(20).
  624 
00214         *
  625 
00215
  626 
00216
  627 
00217          01  KIKCOMMAREA             PIC X(01).
  628 
00218
  629 
00219          01  MORE-ARGS.
  630 
00220              05  FILLER              PIC S9(8) COMP.
  631 
00221              05  CWA-BLL             PIC S9(8) COMP.
  632 
00222
  633 
00223          01  COMMON-WORK-AREA.
  634 
00224
  635 
00225              05  CWA-DATE            PIC 9(06).
  636 
00226
  637 
00227          PROCEDURE DIVISION USING
  638 
00228                  KIKEIB,
  639 
00229                  KIKCOMMAREA,
  640 
00230                  MORE-ARGS,
  641 
00231                  COMMON-WORK-AREA.
  642 
00232
  643 
00233         * Set up MORE-ARGS as BLL-CELLS
  644 
00234              CALL 'KIKBLLIN' USING MORE-ARGS.
  645 
00235
  646 
00236         * Set up KIK-V1/V2 as x'01050000' - V1R5M0(0)
  647 
00237              MOVE 17104896 TO KIK-V1.
  648 
00238              MULTIPLY KIK-V1 BY -1 GIVING KIK-V2.
  649 
00239
  650 
00240         * Fill in EIB source trace fields even if not source tracing
  651 
00241              MOVE 'DFXXP00A' TO EIBPROG.
  652 
00242              MOVE '14:53:09OCT 30, 2014' TO EIBWC.
  653 
00243              MOVE 0 TO EIBLINE.
  654 
00244
  655 
00245         * Set up initial entry, final return
  656 
00246              MOVE 0 TO EIBFN-2. MOVE -1 TO KIK-LEN.
  657 
00247              CALL 'KIKCOBGL' USING KIKEIB, KIK-V1,
  658 
00248                    KIK-LEN.
  659 
00249              IF KIK-LEN > 0
  660 
00250                  GOBACK.
  661 
00251
  662 
00252          0000-FORCE-USER-ABEND.
  663 
00253
  664 
00254         *    EVALUATE TRUE
  665 
00255         *        WHEN EIBCALEN = ZERO
  666 
00256                  IF EIBCALEN = ZERO
  667 
00257         *            EXEC KICKS
  668 
00258         *                SEND TEXT FROM(START-UP-MESSAGE)
  669 
00259         *                          ERASE
  670 
00260         *                          FREEKB
  671 
00261         *            END-EXEC
  672 
00262              MOVE 83886154 TO EIBLINE
  673 
00263              MOVE 6150 TO EIBFN-2
  674 
00264         *    MOVE LENGTH OF START-UP-MESSAGE TO KIK-FLEN
  675 
00265              MOVE 1106                       TO KIK-FLEN
  676 
00266              MOVE 193792 TO KIK-FLAGS
  677 
00267              CALL 'KIKCOBGL' USING KIKEIB,
  678 
00268                    KIK-V1,
  679 
00269                    START-UP-MESSAGE, KIK-FLEN, KIK-NULL,
  680 
00270                    KIK-NULL, KIK-FLAGS
  681 
00271         *        WHEN EIBAID = KIKPF1
  682 
00272                  ELSE
  683 
00273                  IF EIBAID = KIKPF1
  684 
00274                      MOVE SPACE TO ALPHA-FIELD-2
  685 
00275                      MOVE 100   TO PACKED-FIELD-1
  686 
00276                      MULTIPLY PACKED-FIELD-1 BY PACKED-FIELD-2
  687 
00277         *        WHEN EIBAID = KIKPF2
  688 
00278                  ELSE
  689 
00279                  IF EIBAID = KIKPF2
  690 
00280                      MOVE 100  TO PACKED-FIELD-1
  691 
00281                      MOVE ZERO TO PACKED-FIELD-2
  692 
00282                      DIVIDE PACKED-FIELD-2 INTO PACKED-FIELD-1
  693 
00283         *        WHEN EIBAID = KIKPF3
  694 
00284                  ELSE
  695 
00285                  IF EIBAID = KIKPF3
  696 
00286         *            SET ADDRESS OF COMMON-WORK-AREA TO NULL
  697 
00287                      MOVE 0 TO CWA-BLL
  698 
00288                      MOVE ZERO TO CWA-DATE
  699 
00289         *        WHEN EIBAID = KIKPF4
  700 
00290                  ELSE
  701 
00291                  IF EIBAID = KIKPF4
  702 
00292         *            EXEC KICKS
  703 
00293         *                SEND MAP('NOMAP1')
  704 
00294         *                     MAPSET('NOSET1')
  705 
00295         *                     FROM(I-O-AREA)
  706 
00296         *                     ERASE
  707 
00297         *            END-EXEC
  708 
00298              MOVE 100663396 TO EIBLINE
  709 
00299              MOVE 6148 TO EIBFN-2
  710 
00300              MOVE 'NOMAP1' TO KIK-MAPNAME
  711 
00301              MOVE 'NOSET1' TO KIK-MAPSETNAME
  712 
00302              MOVE 62720 TO KIK-FLAGS
  713 
00303              CALL 'KIKCOBGL' USING KIKEIB,
  714 
00304                    KIK-V1,
  715 
00305                    KIK-MAPSETNAME, KIK-MAPNAME, I-O-AREA
  716 
00306                    KIK-NULL, KIK-FLAGS
  717 
00307         *        WHEN EIBAID = KIKPF5
  718 
00308                  ELSE
  719 
00309                  IF EIBAID = KIKPF5
  720 
00310         *            EXEC KICKS
  721 
00311         *                XCTL PROGRAM('NOPGM1')
  722 
00312         *            END-EXEC
  723 
00313              MOVE 50331757 TO EIBLINE
  724 
00314              MOVE 3588 TO EIBFN-2
  725 
00315              MOVE 'NOPGM1' TO KIK-PROGRAM
  726 
00316              MOVE 0 TO KIK-FLEN
  727 
00317              CALL 'KIKCOBGL' USING KIKEIB,
  728 
00318                    KIK-V1,
  729 
00319                    KIK-PROGRAM, KIK-NULL, KIK-FLEN
  730 
00320         *        WHEN EIBAID = KIKPF6
  731 
00321                  ELSE
  732 
00322                  IF EIBAID = KIKPF6
  733 
00323         *            EXEC KICKS
  734 
00324         *                READ DATASET('NOFILE')
  735 
00325         *                     INTO(I-O-AREA)
  736 
00326         *                     RIDFLD(ALPHA-FIELD-2)
  737 
00327         *            END-EXEC
  738 
00328              MOVE 83886195 TO EIBLINE
  739 
00329              MOVE 1538 TO EIBFN-2
  740 
00330              MOVE 'NOFILE' TO KIK-FILENAME
  741 
00331              MOVE 0 TO KIK-FLAGS
  742 
00332              MOVE -1 TO KIK-LEN
  743 
00333              MOVE -1 TO KIK-KEYLEN
  744 
00334              CALL 'KIKCOBGL' USING KIKEIB,
  745 
00335                    KIK-V1,
  746 
00336                    KIK-FILENAME,
  747 
00337                    KIK-FLAGS,
  748 
00338                    I-O-AREA,
  749 
00339                    KIK-LEN,
  750 
00340                    ALPHA-FIELD-2,
  751 
00341                    KIK-KEYLEN
  752 
00342         *        WHEN EIBAID = KIKPF7
  753 
00343                  ELSE
  754 
00344                  IF EIBAID = KIKPF7
  755 
00345                      PERFORM LOOP-FOREVER
  756 
00346         *        WHEN EIBAID = KIKENTER OR KIKCLEAR
  757 
00347                  ELSE
  758 
00348                  IF EIBAID = KIKENTER OR KIKCLEAR
  759 
00349         *            EXEC KICKS
  760 
00350         *                SEND TEXT FROM(TERMINATION-MESSAGE)
  761 
00351         *                          ERASE
  762 
00352         *                          FREEKB
  763 
00353         *            END-EXEC
  764 
00354              MOVE 83886207 TO EIBLINE
  765 
00355              MOVE 6150 TO EIBFN-2
  766 
00356         *    MOVE LENGTH OF TERMINATION-MESSAGE TO KIK-FLEN
  767 
00357              MOVE 9                             TO KIK-FLEN
  768 
00358              MOVE 193792 TO KIK-FLAGS
  769 
00359              CALL 'KIKCOBGL' USING KIKEIB,
  770 
00360                    KIK-V1,
  771 
00361                    TERMINATION-MESSAGE, KIK-FLEN, KIK-NULL,
  772 
00362                    KIK-NULL, KIK-FLAGS
  773 
00363         *            EXEC KICKS
  774 
00364         *                RETURN
  775 
00365         *            END-EXEC.
  776 
00366              MOVE 50331780 TO EIBLINE
  777 
00367              MOVE 3592 TO EIBFN-2
  778 
00368              MOVE LOW-VALUES TO KIK-TRAN
  779 
00369              MOVE 0 TO KIK-FLEN
  780 
00370              CALL 'KIKCOBGL' USING KIKEIB,
  781 
00371                    KIK-V1,
  782 
00372                    KIK-TRAN, KIK-NULL, KIK-FLEN.
  783 
00373         *    END-EVALUATE.
  784 
00374         *    EXEC KICKS
  785 
00375         *        RETURN TRANSID('DFXX')
  786 
00376         *               COMMAREA(COMMUNICATION-AREA)
  787 
00377         *    END-EXEC.
  788 
00378              MOVE 67109000 TO EIBLINE
  789 
00379              MOVE 3592 TO EIBFN-2
  790 
00380              MOVE 'DFXX' TO KIK-TRAN
  791 
00381         *    MOVE LENGTH OF COMMUNICATION-AREA TO KIK-FLEN
  792 
00382              MOVE 1                            TO KIK-FLEN
  793 
00383              CALL 'KIKCOBGL' USING KIKEIB,
  794 
00384                    KIK-V1,
  795 
00385                    KIK-TRAN, COMMUNICATION-AREA, KIK-FLEN.
  796 
00386         *
  797 
00387          LOOP-FOREVER.
  798 
00388              GO TO LOOP-FOREVER.
  799 
00389         *
  800 
 
  801 
       INTRNL NAME   LVL SOURCE NAME                     BASE   DISPL   INTRNL NAME   DEFINITION   USAGE      R  O  Q  M
  802 
       DNM=1-079     01  WORK-FIELDS                     BL=1     000   DNM=1-079     DS 0CL10     GROUP
  803 
       DNM=1-103     02  PACKED-FIELD-1                  BL=1     000   DNM=1-103     DS 5P        COMP-3
  804 
       DNM=1-127     02  PACKED-FIELD-2                  BL=1     005   DNM=1-127     DS 5P        COMP-3
  805 
       DNM=1-151     02  ALPHA-FIELD-2                   BL=1     005   DNM=1-151     DS 5C        DISP       R
  806 
       DNM=1-174     01  I-O-AREA                        BL=1     010   DNM=1-174     DS 100C      DISP
  807 
       DNM=1-192     01  START-UP-MESSAGE                BL=1     078   DNM=1-192     DS 0CL1106   GROUP
  808 
       DNM=1-221     02  FILLER                          BL=1     078   DNM=1-221     DS 30C       DISP
  809 
       DNM=1-237     02  FILLER                          BL=1     096   DNM=1-237     DS 49C       DISP
  810 
       DNM=1-256     02  FILLER                          BL=1     0C7   DNM=1-256     DS 79C       DISP
  811 
       DNM=1-275     02  FILLER                          BL=1     116   DNM=1-275     DS 30C       DISP
  812 
       DNM=1-294     02  FILLER                          BL=1     134   DNM=1-294     DS 49C       DISP
  813 
       DNM=1-313     02  FILLER                          BL=1     165   DNM=1-313     DS 79C       DISP
  814 
       DNM=1-332     02  FILLER                          BL=1     1B4   DNM=1-332     DS 30C       DISP
  815 
       DNM=1-351     02  FILLER                          BL=1     1D2   DNM=1-351     DS 49C       DISP
  816 
       DNM=1-370     02  FILLER                          BL=1     203   DNM=1-370     DS 30C       DISP
  817 
       DNM=1-389     02  FILLER                          BL=1     221   DNM=1-389     DS 49C       DISP
  818 
       DNM=1-408     02  FILLER                          BL=1     252   DNM=1-408     DS 30C       DISP
  819 
       DNM=1-427     02  FILLER                          BL=1     270   DNM=1-427     DS 49C       DISP
  820 
       DNM=1-446     02  FILLER                          BL=1     2A1   DNM=1-446     DS 30C       DISP
  821 
       DNM=1-465     02  FILLER                          BL=1     2BF   DNM=1-465     DS 49C       DISP
  822 
       DNM=1-484     02  FILLER                          BL=1     2F0   DNM=1-484     DS 30C       DISP
  823 
       DNM=2-000     02  FILLER                          BL=1     30E   DNM=2-000     DS 49C       DISP
  824 
       DNM=2-019     02  FILLER                          BL=1     33F   DNM=2-019     DS 30C       DISP
  825 
       DNM=2-038     02  FILLER                          BL=1     35D   DNM=2-038     DS 49C       DISP
  826 
       DNM=2-057     02  FILLER                          BL=1     38E   DNM=2-057     DS 30C       DISP
  827 
       DNM=2-076     02  FILLER                          BL=1     3AC   DNM=2-076     DS 49C       DISP
  828 
       DNM=2-095     02  FILLER                          BL=1     3DD   DNM=2-095     DS 79C       DISP
  829 
       DNM=2-114     02  FILLER                          BL=1     42C   DNM=2-114     DS 79C       DISP
  830 
       DNM=2-133     02  FILLER                          BL=1     47B   DNM=2-133     DS 30C       DISP
  831 
       DNM=2-152     02  FILLER                          BL=1     499   DNM=2-152     DS 49C       DISP
  832 
       DNM=2-171     01  TERMINATION-MESSAGE             BL=1     4D0   DNM=2-171     DS 0CL9      GROUP
  833 
       DNM=2-203     02  FILLER                          BL=1     4D0   DNM=2-203     DS 9C        DISP
  834 
       DNM=2-222     01  COMMUNICATION-AREA              BL=1     4E0   DNM=2-222     DS 1C        DISP
  835 
       DNM=2-250     01  KIKAID                          BL=1     4E8   DNM=2-250     DS 0CL30     GROUP
  836 
       DNM=2-269     02  KIKENTER                        BL=1     4E8   DNM=2-269     DS 1C        DISP
  837 
       DNM=2-287     02  KIKCLEAR                        BL=1     4E9   DNM=2-287     DS 1C        DISP
  838 
       DNM=2-305     02  KIKNULL                         BL=1     4EA   DNM=2-305     DS 1C        DISP
  839 
       DNM=2-322     02  KIKPA1                          BL=1     4EB   DNM=2-322     DS 1C        DISP
  840 
       DNM=2-338     02  KIKPA2                          BL=1     4EC   DNM=2-338     DS 1C        DISP
  841 
       DNM=2-354     02  KIKPA3                          BL=1     4ED   DNM=2-354     DS 1C        DISP
  842 
       DNM=2-370     02  KIKPF1                          BL=1     4EE   DNM=2-370     DS 1C        DISP
  843 
       DNM=2-386     02  KIKPF2                          BL=1     4EF   DNM=2-386     DS 1C        DISP
  844 
       DNM=2-402     02  KIKPF3                          BL=1     4F0   DNM=2-402     DS 1C        DISP
  845 
       DNM=2-418     02  KIKPF4                          BL=1     4F1   DNM=2-418     DS 1C        DISP
  846 
       DNM=2-434     02  KIKPF5                          BL=1     4F2   DNM=2-434     DS 1C        DISP
  847 
       DNM=2-450     02  KIKPF6                          BL=1     4F3   DNM=2-450     DS 1C        DISP
  848 
       DNM=2-466     02  KIKPF7                          BL=1     4F4   DNM=2-466     DS 1C        DISP
  849 
       DNM=2-482     02  KIKPF8                          BL=1     4F5   DNM=2-482     DS 1C        DISP
  850 
       DNM=3-000     02  KIKPF9                          BL=1     4F6   DNM=3-000     DS 1C        DISP
  851 
       DNM=3-016     02  KIKPF10                         BL=1     4F7   DNM=3-016     DS 1C        DISP
  852 
       DNM=3-033     02  KIKPF11                         BL=1     4F8   DNM=3-033     DS 1C        DISP
  853 
       DNM=3-050     02  KIKPF12                         BL=1     4F9   DNM=3-050     DS 1C        DISP
  854 
       DNM=3-070     02  KIKPF13                         BL=1     4FA   DNM=3-070     DS 1C        DISP
  855 
       DNM=3-087     02  KIKPF14                         BL=1     4FB   DNM=3-087     DS 1C        DISP
  856 
       DNM=3-104     02  KIKPF15                         BL=1     4FC   DNM=3-104     DS 1C        DISP
  857 
       DNM=3-121     02  KIKPF16                         BL=1     4FD   DNM=3-121     DS 1C        DISP
  858 
       DNM=3-138     02  KIKPF17                         BL=1     4FE   DNM=3-138     DS 1C        DISP
  859 
       DNM=3-155     02  KIKPF18                         BL=1     4FF   DNM=3-155     DS 1C        DISP
  860 
       DNM=3-172     02  KIKPF19                         BL=1     500   DNM=3-172     DS 1C        DISP
  861 
       DNM=3-189     02  KIKPF20                         BL=1     501   DNM=3-189     DS 1C        DISP
  862 
       DNM=3-209     02  KIKPF21                         BL=1     502   DNM=3-209     DS 1C        DISP
  863 
       DNM=3-226     02  KIKPF22                         BL=1     503   DNM=3-226     DS 1C        DISP
  864 
       DNM=3-243     02  KIKPF23                         BL=1     504   DNM=3-243     DS 1C        DISP
  865 
       DNM=3-260     02  KIKPF24                         BL=1     505   DNM=3-260     DS 1C        DISP
  866 
       DNM=3-277     01  KIK-MSG                         BL=1     508   DNM=3-277     DS 80C       DISP
  867 
       DNM=3-294     01  KIK-MAPSETNAME                  BL=1     558   DNM=3-294     DS 8C        DISP
  868 
       DNM=3-318     01  KIK-MAPNAME                     BL=1     560   DNM=3-318     DS 8C        DISP
  869 
       DNM=3-339     01  KIK-QUEUENAME                   BL=1     568   DNM=3-339     DS 0CL16     GROUP
  870 
       DNM=3-365     02  KIK-FILENAME                    BL=1     568   DNM=3-365     DS 8C        DISP
  871 
       DNM=3-387     02  KIK-PROGRAM                     BL=1     570   DNM=3-387     DS 8C        DISP
  872 
       DNM=3-408     01  KIK-TRAN                        BL=1     578   DNM=3-408     DS 4C        DISP
  873 
       DNM=3-429     01  KIK-ABND                        BL=1     580   DNM=3-429     DS 4C        DISP
  874 
       DNM=3-447     01  KIK-LEN                         BL=1     588   DNM=3-447     DS 2C        COMP
  875 
       DNM=3-464     01  KIK-ITEM                        BL=1     590   DNM=3-464     DS 2C        COMP
  876 
       DNM=3-482     01  KIK-ITEMSIZE                    BL=1     598   DNM=3-482     DS 2C        COMP
  877 
       DNM=4-000     01  KIK-NUMITEMS                    BL=1     5A0   DNM=4-000     DS 2C        COMP
  878 
       DNM=4-022     01  KIK-FLEN                        BL=1     5A8   DNM=4-022     DS 4C        COMP
  879 
       DNM=4-040     01  KIK-KEYLEN                      BL=1     5B0   DNM=4-040     DS 2C        COMP
  880 
       DNM=4-060     01  KIK-NUMREC                      BL=1     5B8   DNM=4-060     DS 2C        COMP
  881 
       DNM=4-080     01  KIK-REQID                       BL=1     5C0   DNM=4-080     DS 2C        COMP
  882 
       DNM=4-099     01  KIK-FLAGS                       BL=1     5C8   DNM=4-099     DS 4C        COMP
  883 
       DNM=4-121     01  KIK-GOTOVAR                     BL=1     5D0   DNM=4-121     DS 2C        COMP
  884 
       DNM=4-142     01  KIK-NUM-GOTO                    BL=1     5D8   DNM=4-142     DS 4C        COMP
  885 
       DNM=4-164     01  KIK-AIDS1                       BL=1     5E0   DNM=4-164     DS 4C        COMP
  886 
       DNM=4-183     01  KIK-AIDS2                       BL=1     5E8   DNM=4-183     DS 4C        COMP
  887 
       DNM=4-202     01  KIK-AIDS3                       BL=1     5F0   DNM=4-202     DS 4C        COMP
  888 
       DNM=4-221     01  KIK-AIDS4                       BL=1     5F8   DNM=4-221     DS 4C        COMP
  889 
       DNM=4-243     01  KIK-V1                          BL=1     600   DNM=4-243     DS 4C        COMP
  890 
       DNM=4-259     01  KIK-V2                          BL=1     608   DNM=4-259     DS 4C        COMP
  891 
       DNM=4-275     01  KIK-NULL                        BL=1     610   DNM=4-275     DS 4C        COMP
  892 
       DNM=4-296     01  KIKEIB                         BLL=3     000   DNM=4-296     DS 0CL124    GROUP
  893 
       DNM=4-315     02  EIBTASKN                       BLL=3     000   DNM=4-315     DS 1F        COMP
  894 
       DNM=4-333     02  EIBCALEN                       BLL=3     004   DNM=4-333     DS 1H        COMP
  895 
       DNM=4-351     02  EIBCPOSN                       BLL=3     006   DNM=4-351     DS 1H        COMP
  896 
       DNM=4-369     02  EIBDATE                        BLL=3     008   DNM=4-369     DS 4P        COMP-3
  897 
       DNM=4-386     02  EIBTIME                        BLL=3     00C   DNM=4-386     DS 4P        COMP-3
  898 
       DNM=4-403     02  EIBRESP                        BLL=3     010   DNM=4-403     DS 1F        COMP
  899 
       DNM=4-420     02  EIBRESP2                       BLL=3     014   DNM=4-420     DS 1F        COMP
  900 
       DNM=4-438     02  EIBRSRCE                       BLL=3     018   DNM=4-438     DS 8C        DISP
  901 
       DNM=4-456     02  EIBDS                          BLL=3     020   DNM=4-456     DS 8C        DISP
  902 
       DNM=4-471     02  EIBFN                          BLL=3     028   DNM=4-471     DS 2C        DISP
  903 
       DNM=4-486     02  EIBFN-2                        BLL=3     028   DNM=4-486     DS 2C        COMP       R
  904 
       DNM=5-000     02  EIBRCODE                       BLL=3     02A   DNM=5-000     DS 6C        DISP
  905 
       DNM=5-018     02  EIBTRMID                       BLL=3     030   DNM=5-018     DS 4C        DISP
  906 
       DNM=5-036     02  EIBTRNID                       BLL=3     034   DNM=5-036     DS 4C        DISP
  907 
       DNM=5-054     02  EIBAID                         BLL=3     038   DNM=5-054     DS 1C        DISP
  908 
       DNM=5-070     02  EIBOPID                        BLL=3     039   DNM=5-070     DS 3C        DISP
  909 
       DNM=5-087     02  EIBUSRID                       BLL=3     03C   DNM=5-087     DS 8C        DISP
  910 
       DNM=5-105     02  EIBSYSID                       BLL=3     044   DNM=5-105     DS 8C        DISP
  911 
       DNM=5-123     02  EIBNETID                       BLL=3     04C   DNM=5-123     DS 8C        DISP
  912 
       DNM=5-144     02  EIBPGMID                       BLL=3     054   DNM=5-144     DS 8C        DISP
  913 
       DNM=5-162     02  EIBLINE                        BLL=3     05C   DNM=5-162     DS 1F        COMP
  914 
       DNM=5-182     02  EIBPROG                        BLL=3     060   DNM=5-182     DS 8C        DISP
  915 
       DNM=5-199     02  EIBWC                          BLL=3     068   DNM=5-199     DS 20C       DISP
  916 
       DNM=5-214     01  KIKCOMMAREA                    BLL=4     000   DNM=5-214     DS 1C        DISP
  917 
       DNM=5-235     01  MORE-ARGS                      BLL=5     000   DNM=5-235     DS 0CL8      GROUP
  918 
       DNM=5-257     02  FILLER                         BLL=5     000   DNM=5-257     DS 4C        COMP
  919 
       DNM=5-276     02  CWA-BLL                        BLL=5     004   DNM=5-276     DS 4C        COMP
  920 
       DNM=5-293     01  COMMON-WORK-AREA               BLL=6     000   DNM=5-293     DS 0CL6      GROUP
  921 
       DNM=5-322     02  CWA-DATE                       BLL=6     000   DNM=5-322     DS 6C        DISP-NM
  922 
 
  923 
 
  924 
 
  925 
                                                  CONDENSED LISTING
  926 
 
  927 
 227     ENTRY      0009AA                    234     CALL       0009D4                    237     MOVE       0009F2
  928 
 238     MULTIPLY   0009F8                    241     MOVE       000A10                    242     MOVE       000A1A
  929 
 243     MOVE       000A20                    246     MOVE       000A26                    246     MOVE       000A2C
  930 
 247     CALL       000A32                    249     IF         000A5C                    250     GOBACK     000A70
  931 
 256     IF         000A9E                    262     MOVE       000AB0                    263     MOVE       000AB6
  932 
 265     MOVE       000ABC                    266     MOVE       000AC2                    267     CALL       000AC8
  933 
 273     ELSE       000B12                    273     IF         000B18                    274     MOVE       000B28
  934 
 275     MOVE       000B32                    276     MULTIPLY   000B38                    279     ELSE       000B56
  935 
 279     IF         000B5C                    280     MOVE       000B6C                    281     MOVE       000B72
  936 
 282     DIVIDE     000B78                    285     ELSE       000B9C                    285     IF         000BA2
  937 
 287     MOVE       000BB2                    288     MOVE       000BBC                    291     ELSE       000BC6
  938 
 291     IF         000BCC                    298     MOVE       000BDC                    299     MOVE       000BE2
  939 
 300     MOVE       000BE8                    301     MOVE       000BF8                    302     MOVE       000C08
  940 
 303     CALL       000C0E                    309     ELSE       000C58                    309     IF         000C5E
  941 
 313     MOVE       000C6E                    314     MOVE       000C74                    315     MOVE       000C7A
  942 
 316     MOVE       000C8A                    317     CALL       000C90                    322     ELSE       000CCA
  943 
 322     IF         000CD0                    328     MOVE       000CE0                    329     MOVE       000CE6
  944 
 330     MOVE       000CEC                    331     MOVE       000CFC                    332     MOVE       000D02
  945 
 333     MOVE       000D08                    334     CALL       000D0E                    344     ELSE       000D60
  946 
 344     IF         000D66                    345     PERFORM    000D76                    348     ELSE       000D94
  947 
 348     IF         000D9A                    354     MOVE       000DB6                    355     MOVE       000DC0
  948 
 357     MOVE       000DC6                    358     MOVE       000DCC                    359     CALL       000DD2
  949 
 366     MOVE       000E1C                    367     MOVE       000E26                    368     MOVE       000E2C
  950 
 369     MOVE       000E36                    370     CALL       000E3C                    378     MOVE       000E76
  951 
 379     MOVE       000E80                    380     MOVE       000E86                    382     MOVE       000E8C
  952 
 383     CALL       000E92                    388     GO         000ECC
  953 
 
  954 
 
  955 
 
  956 
*STATISTICS*     SOURCE RECORDS =   388     DATA DIVISION STATEMENTS =   120     PROCEDURE DIVISION STATEMENTS =    76
  957 
*OPTIONS IN EFFECT*     SIZE = 2097152  BUF = 1048576  LINECNT = 57  SPACE1, FLAGW,   SEQ,   SOURCE
  958 
*OPTIONS IN EFFECT*       DMAP, NOPMAP,   CLIST,   SUPMAP, NOXREF,   LOAD, NODECK, APOST, NOTRUNC,   LIB,   VERB
  959 
*OPTIONS IN EFFECT*       ZWB
  960 
 
  961 
 F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,LET,MAP
  962 
          DEFAULT OPTION(S) USED -  SIZE=(165888,55296)
  963 
IEW0000     INCLUDE SKIKLOAD(KIKCOBGL)
  964 
IEW0000     ENTRY DFXXP00A
  965 
IEW0000     NAME DFXXP00A(R)
  966 
 
  967 
 
  968 
 
  969 
                                                CROSS REFERENCE TABLE
  970 
 
  971 
 
  972 
  CONTROL SECTION                       ENTRY
  973 
 
  974 
    NAME    ORIGIN  LENGTH                NAME   LOCATION     NAME   LOCATION     NAME   LOCATION     NAME   LOCATION
  975 
  DFXXP00A      00     F8A
  976 
  KIKBLLIN     F90      46
  977 
 $PRIVATE      FD8    5B20
  978 
                                        KIKCOBGL    3990    KIKCOBGZ    6830
  979 
  ILBOSTP0*   6AF8      35
  980 
                                        ILBOSTP1    6B0E
  981 
 
  982 
 
  983 
 
  984 
  LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION             LOCATION  REFERS TO SYMBOL  IN CONTROL SECTION
  985 
      8D0            ILBOSTP0        ILBOSTP0                     8D4            KIKBLLIN        KIKBLLIN
  986 
      8D8            KIKCOBGL                                     8DC            ILBOSTP1        ILBOSTP0
  987 
     3D3C            KCEEHDLR       $UNRESOLVED(W)
  988 
 ENTRY ADDRESS       00
  989 
 
  990 
 TOTAL LENGTH      6B30
  991 
****DFXXP00A  NOW REPLACED IN DATA SET
  992 
AUTHORIZATION CODE IS         0.
  993 
 
 
 
 
 
 
 
 
 
 
 
KICKS is Copyright  Mike Noel, 2008-2014