         TITLE 'IEFJDSNA-DSNAME ALLOCATION                             *00001000
                        '                                               00002000
IEFJDSNA CSECT ,                                                   0001 00003000
@MAINENT DS    0H                                                  0001 00004000
         USING *,@15                                               0001 00005000
         B     @PROLOG                                             0001 00006000
         DC    AL1(16)                                             0001 00007000
         DC    C'IEFJDSNA  74.010'                                 0001 00008000
         DROP  @15                                                      00009000
@PROLOG  STM   @14,@12,12(@13)                                     0001 00010000
         BALR  @12,0                                               0001 00011000
@PSTART  DS    0H                                                  0001 00012000
         USING @PSTART,@12                                         0001 00013000
*                                                                    */ 00014000
*                                                                  0040 00015000
*   /*****************************************************************/ 00016000
*   /*                                                               */ 00017000
*   /* THE FOLLOWING CODE BUILDS A 44 CHARACTER DSNAME IN THE FORMAT */ 00018000
*   /* SPECIFIED IN THE PROLOGUE                                     */ 00019000
*   /*                                                               */ 00020000
*   /*****************************************************************/ 00021000
*                                                                  0040 00022000
*   IF(SSOBINDV^=0)&(SSALSSNM^=0)&(SSALJFCB^=0)&(SSALDDNM^=0) THEN 0040 00023000
         SLR   @15,@15                                             0040 00024000
         L     @14,SSOBINDV(,SSOBPTR)                              0040 00025000
         CR    @14,@15                                             0040 00026000
         BE    @RF00040                                            0040 00027000
         L     @11,SSALSSNM(,@14)                                  0040 00028000
         CR    @11,@15                                             0040 00029000
         BE    @RF00040                                            0040 00030000
         L     @10,SSALJFCB(,@14)                                  0040 00031000
         CR    @10,@15                                             0040 00032000
         BE    @RF00040                                            0040 00033000
         L     @14,SSALDDNM(,@14)                                  0040 00034000
         CR    @14,@15                                             0040 00035000
         BE    @RF00040                                            0040 00036000
*     DO;                           /* IF THE PTR TO THE DDNAME,THE     00037000
*                                      PTR TO THE SSOB ALLOCATION  0041 00038000
*                                      FUNCTIONAL SECTION,THE PTR TO    00039000
*                                      THE SUBSYSTEM NAME, AND THE 0041 00040000
*                                      PTR TO THE JFCB ARE NOT ZERO     00041000
*                                      THEN PROCESS THE REQUEST      */ 00042000
*       JFCBDSNM=' ';               /* INITIALIZE THE DSNAME TO    0042 00043000
*                                      BLANKS                        */ 00044000
         MVI   JFCBDSNM+1(@10),C' '                                0042 00045000
         MVC   JFCBDSNM+2(42,@10),JFCBDSNM+1(@10)                  0042 00046000
         MVI   JFCBDSNM(@10),C' '                                  0042 00047000
*       XXXX=JESPJESN;              /* INSERT THE PRIMARY SUBSYSTEM     00048000
*                                      NAME                          */ 00049000
         L     @09,CVTPTR                                          0043 00050000
         L     @09,CVTJESCT(,@09)                                  0043 00051000
         MVC   XXXX(4,@10),JESPJESN(@09)                           0043 00052000
*       SUBSYNM=JESPJESN;           /* PUT THE PRIMARY SUBSYSTEM NAME   00053000
*                                      IN THE DSAB                   */ 00054000
         MVC   SUBSYNM(4,@11),JESPJESN(@09)                        0044 00055000
*       DOT1=DOT;                   /* INDERT A LEVEL DELIMETER      */ 00056000
         MVC   DOT1(1,@10),DOT                                     0045 00057000
*       YYYYYYYY=SSIBJBID;          /* INSERT THE JOBID              */ 00058000
         L     @11,SSOBSSIB(,SSOBPTR)                              0046 00059000
         MVC   YYYYYYYY(8,@10),SSIBJBID(@11)                       0046 00060000
*       DOT2=DOT;                   /* INSERT THE LEVEL DELIMETER    */ 00061000
         MVC   DOT2(1,@10),DOT                                     0047 00062000
*       AAZZZZ=DSID;                /* INSERT THE DATA SET ID        */ 00063000
         MVC   AAZZZZ(6,@10),DSID                                  0048 00064000
*       DOT3=DOT;                   /* INSERT THE LEVEL DELIMETER    */ 00065000
         MVC   DOT3(1,@10),DOT                                     0049 00066000
*       BBBBBBBB=SSOBDDNM;          /* INSERT THE DDNAME             */ 00067000
         MVC   BBBBBBBB(8,@10),SSOBDDNM(@14)                       0050 00068000
*       SSOBRETN=SSALRTOK;          /* INDICATE DSNAME ASSIGNED      */ 00069000
         ST    @15,SSOBRETN(,SSOBPTR)                              0051 00070000
*     END;                                                         0052 00071000
*   ELSE                                                           0053 00072000
*     SSOBRETN=SSALUNAL;            /* INDICATE ALLOCATION         0053 00073000
*                                      UNSUCCESSFUL          @YM04976*/ 00074000
         B     @RC00040                                            0053 00075000
@RF00040 MVC   SSOBRETN(4,SSOBPTR),@CF00046                        0053 00076000
*   RETURN CODE(SSRTOK);            /* RETURN TO THE CALLER          */ 00077000
@RC00040 SLR   @15,@15                                             0054 00078000
         L     @14,12(,@13)                                        0054 00079000
         LM    @00,@12,20(@13)                                     0054 00080000
         BR    @14                                                 0054 00081000
*   END IEFJDSNA                                                   0055 00082000
*                                                                  0055 00083000
*/* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.     */ 00084000
*/*%INCLUDE SYSLIB  (CVT     )                                       */ 00085000
*/*%INCLUDE SYSLIB  (IEFJESCT)                                       */ 00086000
*/*%INCLUDE SYSLIB  (IEFJSSOB)                                       */ 00087000
*/*%INCLUDE SYSLIB  (IEFJFCBN)                                       */ 00088000
*/*%INCLUDE SYSLIB  (IEFJSSIB)                                       */ 00089000
*                                                                  0055 00090000
*       ;                                                          0055 00091000
@DATA    DS    0H                                                       00092000
@DATD    DSECT                                                          00093000
         DS    0F                                                       00094000
IEFJDSNA CSECT                                                          00095000
         DS    0F                                                       00096000
@CF00046 DC    F'20'                                                    00097000
@DATD    DSECT                                                          00098000
         DS    0D                                                       00099000
         ORG   *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA                00100000
@ENDDATD EQU   *                                                        00101000
IEFJDSNA CSECT                                                          00102000
         DS    0F                                                       00103000
@SIZDATD DC    AL1(0)                                                   00104000
         DC    AL3(@ENDDATD-@DATD)                                      00105000
         DS    0D                                                       00106000
DSID     DC    CL6'MS0000'                                              00107000
DOT      DC    CL1'.'                                                   00108000
PATCH    DC    CL20' '                                                  00109000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00110000
@01      EQU   01                                                       00111000
@02      EQU   02                                                       00112000
@03      EQU   03                                                       00113000
@04      EQU   04                                                       00114000
@05      EQU   05                                                       00115000
@06      EQU   06                                                       00116000
@07      EQU   07                                                       00117000
@08      EQU   08                                                       00118000
@09      EQU   09                                                       00119000
@10      EQU   10                                                       00120000
@11      EQU   11                                                       00121000
@12      EQU   12                                                       00122000
@13      EQU   13                                                       00123000
@14      EQU   14                                                       00124000
@15      EQU   15                                                       00125000
SSOBPTR  EQU   @01                                                      00126000
CVTPTR   EQU   16                                                       00127000
SUBSYNM  EQU   0                                                        00128000
SSOBDDNM EQU   0                                                        00129000
DSNAME   EQU   0                                                        00130000
XXXX     EQU   DSNAME                                                   00131000
DOT1     EQU   DSNAME+4                                                 00132000
YYYYYYYY EQU   DSNAME+5                                                 00133000
DOT2     EQU   DSNAME+13                                                00134000
AAZZZZ   EQU   DSNAME+14                                                00135000
DOT3     EQU   DSNAME+20                                                00136000
BBBBBBBB EQU   DSNAME+21                                                00137000
CVTMAP   EQU   0                                                        00138000
CVTDAR   EQU   CVTMAP+72                                                00139000
CVTFLGS1 EQU   CVTDAR                                                   00140000
CVTDCB   EQU   CVTMAP+116                                               00141000
CVTIERLC EQU   CVTMAP+144                                               00142000
CVTOPTA  EQU   CVTMAP+182                                               00143000
CVTOPTB  EQU   CVTMAP+183                                               00144000
CVTGTF   EQU   CVTMAP+236                                               00145000
CVTGTFST EQU   CVTGTF                                                   00146000
CVTGTFS  EQU   CVTGTFST                                                 00147000
CVTSTATE EQU   CVTGTFST                                                 00148000
CVTTMODE EQU   CVTGTFST                                                 00149000
CVTFORM  EQU   CVTGTFST                                                 00150000
CVTUSR   EQU   CVTGTFST                                                 00151000
CVTAQAVT EQU   CVTMAP+240                                               00152000
CVTTCMFG EQU   CVTAQAVT                                                 00153000
CVTVOLM2 EQU   CVTMAP+244                                               00154000
CVTTATA  EQU   CVTVOLM2                                                 00155000
CVTTSKS  EQU   CVTTATA                                                  00156000
CVTVOLF2 EQU   CVTTSKS                                                  00157000
CVTTAT   EQU   CVTTATA+1                                                00158000
CVTATER  EQU   CVTMAP+248                                               00159000
CVTEXT1  EQU   CVTMAP+252                                               00160000
CVTPURG  EQU   CVTMAP+260                                               00161000
CVTQMSG  EQU   CVTMAP+268                                               00162000
CVTDMSR  EQU   CVTMAP+272                                               00163000
CVTJESCT EQU   CVTMAP+296                                               00164000
CVTERPV  EQU   CVTMAP+316                                               00165000
CVTINTLA EQU   CVTMAP+320                                               00166000
CVTAPF   EQU   CVTMAP+324                                               00167000
CVTEXT2  EQU   CVTMAP+328                                               00168000
CVTHJES  EQU   CVTMAP+332                                               00169000
CVTPGSIA EQU   CVTMAP+348                                               00170000
CVTA1F1  EQU   CVTMAP+356                                               00171000
CVTSYSK  EQU   CVTMAP+357                                               00172000
CVTVOLM1 EQU   CVTMAP+380                                               00173000
CVTVOLF1 EQU   CVTVOLM1                                                 00174000
CVTATMCT EQU   CVTMAP+388                                               00175000
CVTXTNT1 EQU   0                                                        00176000
CVTXTNT2 EQU   0                                                        00177000
CVTDSSV  EQU   CVTXTNT2                                                 00178000
CVTRSV90 EQU   CVTXTNT2+5                                               00179000
CVTQID   EQU   CVTXTNT2+24                                              00180000
CVTRV400 EQU   CVTXTNT2+52                                              00181000
CVTRV409 EQU   CVTXTNT2+53                                              00182000
CVTATCVT EQU   CVTXTNT2+64                                              00183000
CVTRV429 EQU   CVTXTNT2+84                                              00184000
CVTRV438 EQU   CVTXTNT2+85                                              00185000
CVTRV457 EQU   CVTXTNT2+112                                             00186000
CVTRV466 EQU   CVTXTNT2+113                                             00187000
CVTFIX   EQU   0                                                        00188000
CVTRELNO EQU   CVTFIX+252                                               00189000
JESCT    EQU   0                                                        00190000
JESWAA   EQU   JESCT+8                                                  00191000
JESSSREQ EQU   JESCT+20                                                 00192000
JESPJESN EQU   JESCT+28                                                 00193000
SSOB     EQU   0                                                        00194000
SSOBSSIB EQU   SSOB+8                                                   00195000
SSOBRETN EQU   SSOB+12                                                  00196000
SSOBINDV EQU   SSOB+16                                                  00197000
SSAL     EQU   0                                                        00198000
SSALFLG1 EQU   SSAL+2                                                   00199000
SSALDDNM EQU   SSAL+4                                                   00200000
SSALSSNM EQU   SSAL+48                                                  00201000
SSALJFCB EQU   SSAL+52                                                  00202000
INFMJFCB EQU   0                                                        00203000
JFCBDSNM EQU   INFMJFCB                                                 00204000
JFCBELNM EQU   INFMJFCB+44                                              00205000
JFCBTSDM EQU   INFMJFCB+52                                              00206000
JFCFCBID EQU   INFMJFCB+56                                              00207000
JFCBFRID EQU   JFCFCBID                                                 00208000
JFCBLTYP EQU   INFMJFCB+66                                              00209000
JFCBOTTR EQU   INFMJFCB+67                                              00210000
JFCBUFOF EQU   JFCBOTTR                                                 00211000
JFCBFLSQ EQU   JFCBOTTR+1                                               00212000
JFCFUNC  EQU   JFCBFLSQ                                                 00213000
JFCBMASK EQU   INFMJFCB+72                                              00214000
JFCBFLG1 EQU   JFCBMASK+5                                               00215000
JFCOPEN  EQU   JFCBFLG1                                                 00216000
JFCBFLG2 EQU   JFCBMASK+6                                               00217000
JFCDEFER EQU   JFCBFLG2                                                 00218000
JFCBIND1 EQU   INFMJFCB+86                                              00219000
JFCBIND2 EQU   INFMJFCB+87                                              00220000
JFCAMPTR EQU   INFMJFCB+88                                              00221000
JFCBUFRQ EQU   JFCAMPTR                                                 00222000
JFCBUFNO EQU   JFCBUFRQ                                                 00223000
JFCBGNCP EQU   JFCAMPTR+1                                               00224000
JFCBHIAR EQU   JFCBGNCP                                                 00225000
JFCBFALN EQU   JFCBHIAR                                                 00226000
JFCBFTEK EQU   JFCBFALN                                                 00227000
JFCBBFTA EQU   JFCBFTEK                                                 00228000
JFCEROPT EQU   INFMJFCB+92                                              00229000
JFCTRTCH EQU   INFMJFCB+93                                              00230000
SSIB     EQU   0                                                        00231000
SSIBFLG1 EQU   SSIB+6                                                   00232000
SSIBJBID EQU   SSIB+12                                                  00233000
SSREQ    EQU   0                                                        00234000
SWAMGR   EQU   0                                                        00235000
CVTS01   EQU   CVTPGSIA                                                 00236000
CVTLPDIA EQU   CVTS01+12                                                00237000
CVTDIRST EQU   CVTLPDIA                                                 00238000
CVTSLIDA EQU   CVTS01+24                                                00239000
CVTCTLFG EQU   CVTS01+50                                                00240000
CVTRV210 EQU   CVTS01+424                                               00241000
CVTRV219 EQU   CVTS01+425                                               00242000
CVTRV228 EQU   CVTS01+426                                               00243000
CVTRV237 EQU   CVTS01+427                                               00244000
CVTMFRTR EQU   CVTS01+452                                               00245000
CVTRV262 EQU   CVTS01+468                                               00246000
CVTRV271 EQU   CVTS01+469                                               00247000
CVTRV280 EQU   CVTS01+470                                               00248000
CVTRV289 EQU   CVTS01+471                                               00249000
CVTGSDA  EQU   CVTS01+600                                               00250000
JFCKEYLE EQU   JFCTRTCH                                                 00251000
JFCCODE  EQU   JFCKEYLE                                                 00252000
JFCSTACK EQU   JFCTRTCH                                                 00253000
JFCMODE  EQU   JFCSTACK                                                 00254000
JFCSPPRT EQU   JFCTRTCH                                                 00255000
JFCBABFS EQU   JFCSPPRT+2                                               00256000
JFCLIMCT EQU   JFCBABFS                                                 00257000
JFCDSORG EQU   JFCSPPRT+5                                               00258000
JFCDSRG1 EQU   JFCDSORG                                                 00259000
JFCDSRG2 EQU   JFCDSORG+1                                               00260000
JFCRECFM EQU   JFCSPPRT+7                                               00261000
JFCRCFM  EQU   JFCRECFM                                                 00262000
JFCOPTCD EQU   JFCSPPRT+8                                               00263000
JFCWVCSP EQU   JFCOPTCD                                                 00264000
JFCWVCIS EQU   JFCWVCSP                                                 00265000
JFCWVCBD EQU   JFCWVCIS                                                 00266000
JFCALLOW EQU   JFCOPTCD                                                 00267000
JFCRSV17 EQU   JFCALLOW                                                 00268000
JFCOVER  EQU   JFCRSV17                                                 00269000
JFCPCIBT EQU   JFCOPTCD                                                 00270000
JFCMAST  EQU   JFCPCIBT                                                 00271000
JFCEXT   EQU   JFCMAST                                                  00272000
JFCBCKPT EQU   JFCOPTCD                                                 00273000
JFCIND   EQU   JFCBCKPT                                                 00274000
JFCRSV18 EQU   JFCOPTCD                                                 00275000
JFCCYL   EQU   JFCRSV18                                                 00276000
JFCACT   EQU   JFCCYL                                                   00277000
JFCREDUC EQU   JFCOPTCD                                                 00278000
JFCRSV19 EQU   JFCREDUC                                                 00279000
JFCRSV20 EQU   JFCRSV19                                                 00280000
JFCRSV21 EQU   JFCOPTCD                                                 00281000
JFCDEL   EQU   JFCRSV21                                                 00282000
JFCRSV23 EQU   JFCOPTCD                                                 00283000
JFCREORG EQU   JFCRSV23                                                 00284000
JFCBLKSI EQU   JFCSPPRT+9                                               00285000
JFCBUFSI EQU   JFCBLKSI                                                 00286000
JFCAMSYN EQU   JFCSPPRT+11                                              00287000
JFCNCP   EQU   JFCAMSYN+2                                               00288000
JFCNTM   EQU   JFCAMSYN+3                                               00289000
JFCBFSEQ EQU   JFCNTM                                                   00290000
JFCPCI   EQU   JFCBFSEQ                                                 00291000
JFCRESRV EQU   JFCAMSYN+4                                               00292000
JFCUCSEG EQU   JFCRESRV                                                 00293000
JFCUCSOP EQU   JFCUCSEG+4                                               00294000
JFCOUTLI EQU   JFCUCSEG+5                                               00295000
JFCTHRSH EQU   JFCOUTLI                                                 00296000
JFCCPRI  EQU   JFCTHRSH                                                 00297000
JFCBVOLS EQU   JFCUCSEG+10                                              00298000
JFCBPQTY EQU   JFCUCSEG+44                                              00299000
JFCBCTRI EQU   JFCUCSEG+47                                              00300000
JFCBSQTY EQU   JFCUCSEG+48                                              00301000
JFCBIND3 EQU   JFCBSQTY+2                                               00302000
JFCFLGS1 EQU   JFCUCSEG+51                                              00303000
         AGO   .@UNREFD                START UNREFERENCED COMPONENTS    00304000
JFCBEND  EQU   JFCUCSEG+68                                              00305000
JFCBSPTN EQU   JFCUCSEG+67                                              00306000
JFCBVLCT EQU   JFCUCSEG+66                                              00307000
JFCBDRLH EQU   JFCUCSEG+63                                              00308000
JFCBSBNM EQU   JFCUCSEG+60                                              00309000
JFCBABST EQU   JFCUCSEG+58                                              00310000
JFCBSPNM EQU   JFCUCSEG+55                                              00311000
JFCBDQTY EQU   JFCUCSEG+52                                              00312000
JFCBUAFF EQU   JFCFLGS1                                                 00313000
JFCRSV45 EQU   JFCFLGS1                                                 00314000
JFCVRDS  EQU   JFCFLGS1                                                 00315000
JFCRSV43 EQU   JFCFLGS1                                                 00316000
JFCRSV42 EQU   JFCFLGS1                                                 00317000
JFCRSV41 EQU   JFCFLGS1                                                 00318000
JFCTOPEN EQU   JFCFLGS1                                                 00319000
JFCRSV39 EQU   JFCFLGS1                                                 00320000
JFCRSV52 EQU   JFCBIND3                                                 00321000
JFCRSV51 EQU   JFCBIND3                                                 00322000
JFCRSV50 EQU   JFCBIND3                                                 00323000
JFCRSV49 EQU   JFCBIND3                                                 00324000
JFCRSV48 EQU   JFCBIND3                                                 00325000
JFCRSV47 EQU   JFCBIND3                                                 00326000
JFCRSV46 EQU   JFCBIND3                                                 00327000
JFCBDLET EQU   JFCBIND3                                                 00328000
JFCRQID  EQU   JFCBSQTY                                                 00329000
JFCROUND EQU   JFCBCTRI                                                 00330000
JFCALX   EQU   JFCBCTRI                                                 00331000
JFCMIXG  EQU   JFCBCTRI                                                 00332000
JFCONTIG EQU   JFCBCTRI                                                 00333000
JFCRSV29 EQU   JFCBCTRI                                                 00334000
JFCRSV28 EQU   JFCBCTRI                                                 00335000
JFCBSPAC EQU   JFCBCTRI                                                 00336000
JFCRUNIT EQU   JFCBPQTY                                                 00337000
JFCBEXAD EQU   JFCUCSEG+41                                              00338000
JFCBEXTL EQU   JFCUCSEG+40                                              00339000
JFCAVOLS EQU   JFCBVOLS                                                 00340000
JFCBNVOL EQU   JFCUCSEG+9                                               00341000
JFCBNTCS EQU   JFCUCSEG+8                                               00342000
JFCSOWA  EQU   JFCOUTLI+1                                               00343000
JFCSEND  EQU   JFCCPRI                                                  00344000
JFCEQUAL EQU   JFCCPRI                                                  00345000
JFCRECV  EQU   JFCCPRI                                                  00346000
JFCRSV34 EQU   JFCCPRI                                                  00347000
JFCRSV33 EQU   JFCCPRI                                                  00348000
JFCRSV55 EQU   JFCCPRI                                                  00349000
JFCRSV54 EQU   JFCCPRI                                                  00350000
JFCRSV53 EQU   JFCCPRI                                                  00351000
JFCRSV27 EQU   JFCUCSOP                                                 00352000
JFCRSV26 EQU   JFCUCSOP                                                 00353000
JFCFCBVR EQU   JFCUCSOP                                                 00354000
JFCFCBAL EQU   JFCUCSOP                                                 00355000
JFCVER   EQU   JFCUCSOP                                                 00356000
JFCRSV25 EQU   JFCUCSOP                                                 00357000
JFCFOLD  EQU   JFCUCSOP                                                 00358000
JFCRSV24 EQU   JFCUCSOP                                                 00359000
JFCUCSID EQU   JFCUCSEG                                                 00360000
JFCINTVL EQU   JFCSPPRT+19                                              00361000
JFCDBUFN EQU   JFCRESRV+3                                               00362000
JFCCYLOF EQU   JFCRESRV+2                                               00363000
JFCRKP   EQU   JFCRESRV                                                 00364000
JFCPCIR2 EQU   JFCPCI                                                   00365000
JFCPCIR1 EQU   JFCPCI                                                   00366000
JFCPCIN2 EQU   JFCPCI                                                   00367000
JFCPCIN1 EQU   JFCPCI                                                   00368000
JFCPCIA2 EQU   JFCPCI                                                   00369000
JFCPCIA1 EQU   JFCPCI                                                   00370000
JFCPCIX2 EQU   JFCPCI                                                   00371000
JFCPCIX1 EQU   JFCPCI                                                   00372000
JFCBUFMX EQU   JFCNCP                                                   00373000
JFCLRECL EQU   JFCAMSYN                                                 00374000
JFCBAXBF EQU   JFCBUFSI                                                 00375000
JFCREL   EQU   JFCREORG                                                 00376000
JFCRSV22 EQU   JFCDEL                                                   00377000
JFCSRCHD EQU   JFCRSV20                                                 00378000
JFCOPTQ  EQU   JFCACT                                                   00379000
JFCFEED  EQU   JFCIND                                                   00380000
JFCCBWU  EQU   JFCEXT                                                   00381000
JFCWUMSG EQU   JFCOVER                                                  00382000
JFCSDNAM EQU   JFCWVCBD                                                 00383000
@NM00008 EQU   JFCRECFM                                                 00384000
JFCCHAR  EQU   JFCRECFM                                                 00385000
JFCRFS   EQU   JFCRECFM                                                 00386000
JFCRFB   EQU   JFCRECFM                                                 00387000
JFCRFO   EQU   JFCRCFM                                                  00388000
JFCFMREC EQU   JFCRCFM                                                  00389000
JFCRSV16 EQU   JFCDSRG2                                                 00390000
JFCRSV15 EQU   JFCDSRG2                                                 00391000
JFCORGTR EQU   JFCDSRG2                                                 00392000
JFCORGAM EQU   JFCDSRG2                                                 00393000
JFCRSV13 EQU   JFCDSRG2                                                 00394000
JFCORGTQ EQU   JFCDSRG2                                                 00395000
JFCORGTX EQU   JFCDSRG2                                                 00396000
JFCORGGS EQU   JFCDSRG2                                                 00397000
JFCORGU  EQU   JFCDSRG1                                                 00398000
JFCORGPO EQU   JFCDSRG1                                                 00399000
JFCORGMQ EQU   JFCDSRG1                                                 00400000
JFCORGCQ EQU   JFCDSRG1                                                 00401000
JFCORGCX EQU   JFCDSRG1                                                 00402000
JFCORGDA EQU   JFCDSRG1                                                 00403000
JFCORGPS EQU   JFCDSRG1                                                 00404000
JFCORGIS EQU   JFCDSRG1                                                 00405000
JFCTRKBL EQU   JFCLIMCT+1                                               00406000
@NM00007 EQU   JFCLIMCT                                                 00407000
JFCDEN   EQU   JFCSPPRT+1                                               00408000
JFCPRTSP EQU   JFCSPPRT                                                 00409000
JFCONE   EQU   JFCMODE                                                  00410000
JFCTWO   EQU   JFCMODE                                                  00411000
JFCRSV07 EQU   JFCMODE                                                  00412000
JFCRSV06 EQU   JFCMODE                                                  00413000
JFCMODER EQU   JFCMODE                                                  00414000
JFCMODEO EQU   JFCMODE                                                  00415000
JFCEBCD  EQU   JFCMODE                                                  00416000
JFCBIN   EQU   JFCMODE                                                  00417000
JFCRSV32 EQU   JFCCODE                                                  00418000
JFCTTY   EQU   JFCCODE                                                  00419000
JFCASCII EQU   JFCCODE                                                  00420000
JFCNCR   EQU   JFCCODE                                                  00421000
JFCBUR   EQU   JFCCODE                                                  00422000
JFCFRI   EQU   JFCCODE                                                  00423000
JFCBCD   EQU   JFCCODE                                                  00424000
JFCNOCON EQU   JFCCODE                                                  00425000
CVTTPIO  EQU   CVTS01+608                                               00426000
CVTADV   EQU   CVTS01+604                                               00427000
CVTGSDAB EQU   CVTGSDA                                                  00428000
CVTQV3   EQU   CVTS01+596                                               00429000
CVTQV2   EQU   CVTS01+592                                               00430000
CVTQV1   EQU   CVTS01+588                                               00431000
CVTRPT   EQU   CVTS01+584                                               00432000
CVTSSRB  EQU   CVTS01+580                                               00433000
CVTCSDRL EQU   CVTS01+576                                               00434000
CVTEXP1  EQU   CVTS01+572                                               00435000
CVTRMPMT EQU   CVTS01+568                                               00436000
CVTRMPTT EQU   CVTS01+564                                               00437000
CVTVPSA  EQU   CVTS01+560                                               00438000
CVTVSTOP EQU   CVTS01+556                                               00439000
CVTGTFR8 EQU   CVTS01+552                                               00440000
CVTQUIT  EQU   CVTS01+548                                               00441000
CVTVACR  EQU   CVTS01+544                                               00442000
CVTWTCB  EQU   CVTS01+540                                               00443000
CVTSTPRS EQU   CVTS01+536                                               00444000
CVT0PT02 EQU   CVTS01+532                                               00445000
CVTDARCM EQU   CVTS01+528                                               00446000
CVTIRECM EQU   CVTS01+524                                               00447000
CVTJRECM EQU   CVTS01+520                                               00448000
CVTVEMS0 EQU   CVTS01+516                                               00449000
CVTSPFRR EQU   CVTS01+512                                               00450000
CVTRLSTG EQU   CVTS01+508                                               00451000
CVT0TC0A EQU   CVTS01+504                                               00452000
CVTGMBR  EQU   CVTS01+500                                               00453000
CVTLFRM  EQU   CVTS01+496                                               00454000
CVTRMBR  EQU   CVTS01+492                                               00455000
CVTVIOP  EQU   CVTS01+488                                               00456000
CVTRV307 EQU   CVTS01+486                                               00457000
CVTRV306 EQU   CVTS01+484                                               00458000
CVTRV305 EQU   CVTS01+482                                               00459000
CVTRV304 EQU   CVTS01+480                                               00460000
CVTRV303 EQU   CVTS01+478                                               00461000
CVTRV302 EQU   CVTS01+476                                               00462000
CVTRV301 EQU   CVTS01+475                                               00463000
CVTRV300 EQU   CVTS01+474                                               00464000
CVTRV299 EQU   CVTS01+473                                               00465000
CVTRV298 EQU   CVTS01+472                                               00466000
CVTRV297 EQU   CVTRV289                                                 00467000
CVTRV296 EQU   CVTRV289                                                 00468000
CVTRV295 EQU   CVTRV289                                                 00469000
CVTRV294 EQU   CVTRV289                                                 00470000
CVTRV293 EQU   CVTRV289                                                 00471000
CVTRV292 EQU   CVTRV289                                                 00472000
CVTRV291 EQU   CVTRV289                                                 00473000
CVTRV290 EQU   CVTRV289                                                 00474000
CVTRV288 EQU   CVTRV280                                                 00475000
CVTRV287 EQU   CVTRV280                                                 00476000
CVTRV286 EQU   CVTRV280                                                 00477000
CVTRV285 EQU   CVTRV280                                                 00478000
CVTRV284 EQU   CVTRV280                                                 00479000
CVTRV283 EQU   CVTRV280                                                 00480000
CVTRV282 EQU   CVTRV280                                                 00481000
CVTRV281 EQU   CVTRV280                                                 00482000
CVTRV279 EQU   CVTRV271                                                 00483000
CVTRV278 EQU   CVTRV271                                                 00484000
CVTRV277 EQU   CVTRV271                                                 00485000
CVTRV276 EQU   CVTRV271                                                 00486000
CVTRV275 EQU   CVTRV271                                                 00487000
CVTRV274 EQU   CVTRV271                                                 00488000
CVTRV273 EQU   CVTRV271                                                 00489000
CVTRV272 EQU   CVTRV271                                                 00490000
CVTRV270 EQU   CVTRV262                                                 00491000
CVTRV269 EQU   CVTRV262                                                 00492000
CVTRV268 EQU   CVTRV262                                                 00493000
CVTRV267 EQU   CVTRV262                                                 00494000
CVTRV266 EQU   CVTRV262                                                 00495000
CVTRV265 EQU   CVTRV262                                                 00496000
CVTRV264 EQU   CVTRV262                                                 00497000
CVTRV263 EQU   CVTRV262                                                 00498000
CVTVFP   EQU   CVTS01+464                                               00499000
CVTVSI   EQU   CVTS01+460                                               00500000
CVTVPSIB EQU   CVTS01+456                                               00501000
CVTMFACT EQU   CVTMFRTR                                                 00502000
CVTMFCTL EQU   CVTS01+448                                               00503000
CVTPVBP  EQU   CVTS01+444                                               00504000
CVTPWI   EQU   CVTS01+440                                               00505000
CVTRV254 EQU   CVTS01+438                                               00506000
CVTRV253 EQU   CVTS01+436                                               00507000
CVTRV252 EQU   CVTS01+434                                               00508000
CVTRV251 EQU   CVTS01+433                                               00509000
CVTRV250 EQU   CVTS01+432                                               00510000
CVTRV249 EQU   CVTS01+431                                               00511000
CVTRV248 EQU   CVTS01+430                                               00512000
CVTRV247 EQU   CVTS01+429                                               00513000
CVTRV246 EQU   CVTS01+428                                               00514000
CVTRV245 EQU   CVTRV237                                                 00515000
CVTRV244 EQU   CVTRV237                                                 00516000
CVTRV243 EQU   CVTRV237                                                 00517000
CVTRV242 EQU   CVTRV237                                                 00518000
CVTRV241 EQU   CVTRV237                                                 00519000
CVTRV240 EQU   CVTRV237                                                 00520000
CVTRV239 EQU   CVTRV237                                                 00521000
CVTRV238 EQU   CVTRV237                                                 00522000
CVTRV236 EQU   CVTRV228                                                 00523000
CVTRV235 EQU   CVTRV228                                                 00524000
CVTRV234 EQU   CVTRV228                                                 00525000
CVTRV233 EQU   CVTRV228                                                 00526000
CVTRV232 EQU   CVTRV228                                                 00527000
CVTRV231 EQU   CVTRV228                                                 00528000
CVTRV230 EQU   CVTRV228                                                 00529000
CVTRV229 EQU   CVTRV228                                                 00530000
CVTRV227 EQU   CVTRV219                                                 00531000
CVTRV226 EQU   CVTRV219                                                 00532000
CVTRV225 EQU   CVTRV219                                                 00533000
CVTRV224 EQU   CVTRV219                                                 00534000
CVTRV223 EQU   CVTRV219                                                 00535000
CVTRV222 EQU   CVTRV219                                                 00536000
CVTRV221 EQU   CVTRV219                                                 00537000
CVTRV220 EQU   CVTRV219                                                 00538000
CVTRV218 EQU   CVTRV210                                                 00539000
CVTRV217 EQU   CVTRV210                                                 00540000
CVTRV216 EQU   CVTRV210                                                 00541000
CVTRV215 EQU   CVTRV210                                                 00542000
CVTRV214 EQU   CVTRV210                                                 00543000
CVTRV213 EQU   CVTRV210                                                 00544000
CVTRV212 EQU   CVTRV210                                                 00545000
CVTRV211 EQU   CVTRV210                                                 00546000
CVTLCCAT EQU   CVTS01+420                                               00547000
CVTPCCAT EQU   CVTS01+416                                               00548000
CVTIPCRP EQU   CVTS01+412                                               00549000
CVTIPCRI EQU   CVTS01+408                                               00550000
CVTIPCDS EQU   CVTS01+404                                               00551000
CVTAIDVT EQU   CVTS01+400                                               00552000
CVTSSAP  EQU   CVTS01+396                                               00553000
CVTEHCIR EQU   CVTS01+392                                               00554000
CVTEHDEF EQU   CVTS01+388                                               00555000
CVTDAIR  EQU   CVTS01+384                                               00556000
CVTPERFM EQU   CVTS01+380                                               00557000
CVT044R2 EQU   CVTS01+376                                               00558000
CVTFETCH EQU   CVTS01+372                                               00559000
CVTRSTWD EQU   CVTS01+368                                               00560000
CVTSPOST EQU   CVTS01+364                                               00561000
CVTIOBP  EQU   CVTS01+360                                               00562000
CVTASMVT EQU   CVTS01+356                                               00563000
CVTRECRQ EQU   CVTS01+352                                               00564000
CVTWSAC  EQU   CVTS01+348                                               00565000
CVTRV149 EQU   CVTS01+344                                               00566000
CVTWSAL  EQU   CVTS01+340                                               00567000
CVTSPSA  EQU   CVTS01+336                                               00568000
CVTGLMN  EQU   CVTS01+332                                               00569000
CVTVEAC0 EQU   CVTS01+328                                               00570000
CVT062R1 EQU   CVTS01+324                                               00571000
CVTRPOST EQU   CVTS01+320                                               00572000
CVTDQIQE EQU   CVTS01+316                                               00573000
CVTCSD   EQU   CVTS01+312                                               00574000
CVTLKRMA EQU   CVTS01+308                                               00575000
CVTRSPIE EQU   CVTS01+304                                               00576000
CVTRENQ  EQU   CVTS01+300                                               00577000
CVTLQCB  EQU   CVTS01+296                                               00578000
CVTFQCB  EQU   CVTS01+292                                               00579000
CVTQCS01 EQU   CVTS01+288                                               00580000
CVTAPFT  EQU   CVTS01+284                                               00581000
CVTPARRL EQU   CVTS01+280                                               00582000
CVTVWAIT EQU   CVTS01+276                                               00583000
CVTGSPL  EQU   CVTS01+272                                               00584000
CVTLSMQ  EQU   CVTS01+268                                               00585000
CVTGSMQ  EQU   CVTS01+264                                               00586000
CVTEXPRO EQU   CVTS01+260                                               00587000
CVTOPCTP EQU   CVTS01+256                                               00588000
CVTSIC   EQU   CVTS01+252                                               00589000
CVTTPIOS EQU   CVTS01+248                                               00590000
CVTRTMS  EQU   CVTS01+244                                               00591000
CVTSDBF  EQU   CVTS01+240                                               00592000
CVTSCBP  EQU   CVTS01+236                                               00593000
CVTSDMP  EQU   CVTS01+232                                               00594000
CVTSV60  EQU   CVTS01+228                                               00595000
CVTRTMCT EQU   CVTS01+224                                               00596000
CVTASCBL EQU   CVTS01+220                                               00597000
CVTASCBH EQU   CVTS01+216                                               00598000
CVTGDA   EQU   CVTS01+212                                               00599000
CVTASVT  EQU   CVTS01+208                                               00600000
CVTVVMDI EQU   CVTS01+204                                               00601000
CVTAQTOP EQU   CVTS01+200                                               00602000
CVTIOSCS EQU   CVTS01+196                                               00603000
CVTSDRM  EQU   CVTS01+192                                               00604000
CVTOPTE  EQU   CVTS01+188                                               00605000
CVTSTXU  EQU   CVTS01+184                                               00606000
CVTQUIS  EQU   CVTS01+180                                               00607000
CVTPARS  EQU   CVTS01+176                                               00608000
CVTS1EE  EQU   CVTS01+172                                               00609000
CVTFRAS  EQU   CVTS01+168                                               00610000
CVTQSAS  EQU   CVTS01+164                                               00611000
CVTCRAS  EQU   CVTS01+160                                               00612000
CVTCRMN  EQU   CVTS01+156                                               00613000
CVTDELCP EQU   CVTS01+152                                               00614000
CVTFRECL EQU   CVTS01+148                                               00615000
CVTGETCL EQU   CVTS01+144                                               00616000
CVTBLDCP EQU   CVTS01+140                                               00617000
CVTAUTHL EQU   CVTS01+136                                               00618000
CVTSCAN  EQU   CVTS01+132                                               00619000
CVTRV144 EQU   CVTS01+130                                               00620000
CVTMAXMP EQU   CVTS01+128                                               00621000
CVTSTCK  EQU   CVTS01+124                                               00622000
CVTRV139 EQU   CVTS01+123                                               00623000
CVTDSSAC EQU   CVTS01+122                                               00624000
CVTRV513 EQU   CVTS01+121                                               00625000
CVTIOSPL EQU   CVTS01+120                                               00626000
CVTPTGT  EQU   CVTS01+116                                               00627000
CVTCSPIE EQU   CVTS01+112                                               00628000
CVTSMFEX EQU   CVTS01+108                                               00629000
CVTOLT0A EQU   CVTS01+104                                               00630000
CVTSRBRT EQU   CVTS01+100                                               00631000
CVTPUTL  EQU   CVTS01+96                                                00632000
CVTRV519 EQU   CVTS01+92                                                00633000
CVTRV327 EQU   CVTS01+88                                                00634000
CVTRV326 EQU   CVTS01+84                                                00635000
CVTRV325 EQU   CVTS01+80                                                00636000
CVTRV324 EQU   CVTS01+76                                                00637000
CVT0VL01 EQU   CVTS01+72                                                00638000
CVTSHRVM EQU   CVTS01+68                                                00639000
CVTRV332 EQU   CVTS01+64                                                00640000
CVTTAS   EQU   CVTS01+60                                                00641000
CVTRSCN  EQU   CVTS01+56                                                00642000
CVTTRAC2 EQU   CVTS01+54                                                00643000
CVTTRACE EQU   CVTS01+52                                                00644000
CVTAPG   EQU   CVTS01+51                                                00645000
CVTSDTRC EQU   CVTCTLFG                                                 00646000
CVTGTRCE EQU   CVTCTLFG                                                 00647000
CVTNOMP  EQU   CVTCTLFG                                                 00648000
CVTRSV79 EQU   CVTCTLFG                                                 00649000
CVTDSTAT EQU   CVTCTLFG                                                 00650000
CVTRSV78 EQU   CVTCTLFG                                                 00651000
CVTRV333 EQU   CVTCTLFG                                                 00652000
CVTRV323 EQU   CVTCTLFG                                                 00653000
CVTSPVLK EQU   CVTS01+49                                                00654000
CVTRSV77 EQU   CVTS01+48                                                00655000
CVTRV331 EQU   CVTS01+44                                                00656000
CVTRV330 EQU   CVTS01+40                                                00657000
CVTRV329 EQU   CVTS01+36                                                00658000
CVTRV328 EQU   CVTS01+32                                                00659000
CVTRV322 EQU   CVTS01+28                                                00660000
CVTSLID  EQU   CVTSLIDA+1                                               00661000
CVTSYLK  EQU   CVTSLIDA                                                 00662000
CVTRV321 EQU   CVTS01+20                                                00663000
CVTRV320 EQU   CVTS01+16                                                00664000
CVTLPDIR EQU   CVTLPDIA+1                                               00665000
CVTRSV69 EQU   CVTDIRST                                                 00666000
CVTRSV68 EQU   CVTDIRST                                                 00667000
CVTRSV67 EQU   CVTDIRST                                                 00668000
CVTRSV66 EQU   CVTDIRST                                                 00669000
CVTRSV65 EQU   CVTDIRST                                                 00670000
CVTRSV64 EQU   CVTDIRST                                                 00671000
CVTRSV63 EQU   CVTDIRST                                                 00672000
CVTDICOM EQU   CVTDIRST                                                 00673000
CVTPVTP  EQU   CVTS01+8                                                 00674000
CVTLPDSR EQU   CVTS01+4                                                 00675000
CVTGETL  EQU   CVTS01                                                   00676000
SSIBSUSE EQU   SSIB+32                                                  00677000
SSIBRSV1 EQU   SSIB+28                                                  00678000
SSIBDEST EQU   SSIB+20                                                  00679000
SSIBSSNM EQU   SSIB+8                                                   00680000
SSIBRESV EQU   SSIB+7                                                   00681000
@NM00009 EQU   SSIBFLG1                                                 00682000
SSIBPJES EQU   SSIBFLG1                                                 00683000
SSIBLEN  EQU   SSIB+4                                                   00684000
SSIBID   EQU   SSIB                                                     00685000
JFCRSV05 EQU   JFCEROPT                                                 00686000
JFCRSV04 EQU   JFCEROPT                                                 00687000
JFCRSV03 EQU   JFCEROPT                                                 00688000
JFCRSV02 EQU   JFCEROPT                                                 00689000
JFCTOPT  EQU   JFCEROPT                                                 00690000
JFCABN   EQU   JFCEROPT                                                 00691000
JFCSKP   EQU   JFCEROPT                                                 00692000
JFCACC   EQU   JFCEROPT                                                 00693000
JFCBUFL  EQU   JFCAMPTR+2                                               00694000
JFCFWORD EQU   JFCBFTEK                                                 00695000
JFCDWORD EQU   JFCBFTEK                                                 00696000
JFCHIER1 EQU   JFCBFTEK                                                 00697000
JFCDYN   EQU   JFCBFTEK                                                 00698000
JFCEXC   EQU   JFCBFTEK                                                 00699000
JFCBBFTR EQU   JFCBBFTA                                                 00700000
JFCSIM   EQU   JFCBBFTA                                                 00701000
JFCHIER  EQU   JFCBFTEK                                                 00702000
JFCBFOUT EQU   JFCBUFNO                                                 00703000
JFCBUFIN EQU   JFCBUFNO                                                 00704000
JFCTEMP  EQU   JFCBIND2                                                 00705000
JFCREQ   EQU   JFCBIND2                                                 00706000
JFCENT   EQU   JFCBIND2                                                 00707000
JFCSHARE EQU   JFCBIND2                                                 00708000
JFCSECUR EQU   JFCBIND2                                                 00709000
JFCDISP  EQU   JFCBIND2                                                 00710000
JFCPDS   EQU   JFCBIND1                                                 00711000
JFCGDG   EQU   JFCBIND1                                                 00712000
JFCADDED EQU   JFCBIND1                                                 00713000
JFCLOC   EQU   JFCBIND1                                                 00714000
JFCRLSE  EQU   JFCBIND1                                                 00715000
JFCBXPDT EQU   INFMJFCB+83                                              00716000
JFCBCRDT EQU   INFMJFCB+80                                              00717000
JFCBOPS2 EQU   JFCBMASK+7                                               00718000
JFCRCTLG EQU   JFCBFLG2                                                 00719000
JFCBBUFF EQU   JFCBFLG2                                                 00720000
JFCTRACE EQU   JFCBFLG2                                                 00721000
JFCSDRPS EQU   JFCBFLG2                                                 00722000
JFCMODNW EQU   JFCBFLG2                                                 00723000
JFCNRPS  EQU   JFCDEFER                                                 00724000
JFCOUTOP EQU   JFCBFLG2                                                 00725000
JFCINOP  EQU   JFCBFLG2                                                 00726000
JFCBPWBP EQU   JFCOPEN                                                  00727000
@NM00006 EQU   JFCOPEN                                                  00728000
JFCDUAL  EQU   JFCBFLG1                                                 00729000
JFCSLDES EQU   JFCBFLG1                                                 00730000
JFCSLCRE EQU   JFCBFLG1                                                 00731000
JFCSTAND EQU   JFCBFLG1                                                 00732000
JFCBOPS1 EQU   JFCBMASK                                                 00733000
JFCBVLSQ EQU   INFMJFCB+70                                              00734000
JFCRSV31 EQU   JFCFUNC                                                  00735000
JFCFNCBT EQU   JFCFUNC                                                  00736000
JFCFNCBX EQU   JFCFUNC                                                  00737000
JFCFNCBD EQU   JFCFUNC                                                  00738000
JFCFNCBW EQU   JFCFUNC                                                  00739000
JFCFNCBP EQU   JFCFUNC                                                  00740000
JFCFNCBR EQU   JFCFUNC                                                  00741000
JFCFNCBI EQU   JFCFUNC                                                  00742000
JFCBFOFL EQU   JFCBUFOF                                                 00743000
JFCNL    EQU   JFCBLTYP                                                 00744000
JFCSL    EQU   JFCBLTYP                                                 00745000
JFCNSL   EQU   JFCBLTYP                                                 00746000
JFCSUL   EQU   JFCBLTYP                                                 00747000
JFCBLP   EQU   JFCBLTYP                                                 00748000
JFCBLTM  EQU   JFCBLTYP                                                 00749000
JFCBAL   EQU   JFCBLTYP                                                 00750000
JFCRSV38 EQU   JFCBLTYP                                                 00751000
JFCRSV01 EQU   INFMJFCB+64                                              00752000
JFCNLREC EQU   INFMJFCB+62                                              00753000
JFCBADBF EQU   INFMJFCB+60                                              00754000
JFCAMSTR EQU   JFCBFRID+2                                               00755000
JFCAMCRO EQU   JFCBFRID                                                 00756000
JFCBDSCB EQU   INFMJFCB+53                                              00757000
JFCPAT   EQU   JFCBTSDM                                                 00758000
JFCNDCB  EQU   JFCBTSDM                                                 00759000
JFCNDSCB EQU   JFCBTSDM                                                 00760000
JFCNWRIT EQU   JFCBTSDM                                                 00761000
JFCTTR   EQU   JFCBTSDM                                                 00762000
JFCSDS   EQU   JFCBTSDM                                                 00763000
JFCVSL   EQU   JFCBTSDM                                                 00764000
JFCCAT   EQU   JFCBTSDM                                                 00765000
JFCIPLTX EQU   JFCBELNM                                                 00766000
JFCBQNAM EQU   JFCBDSNM                                                 00767000
SSALCNCL EQU   SSAL+60                                                  00768000
SSALSSCM EQU   SSAL+56                                                  00769000
SSALCOPY EQU   SSAL+44                                                  00770000
SSALADSP EQU   SSAL+40                                                  00771000
SSALCLAS EQU   SSAL+36                                                  00772000
SSALFORM EQU   SSAL+32                                                  00773000
SSALPGMN EQU   SSAL+28                                                  00774000
SSALUNIT EQU   SSAL+24                                                  00775000
SSALSOUT EQU   SSAL+20                                                  00776000
SSALDUMY EQU   SSAL+16                                                  00777000
SSALDISP EQU   SSAL+12                                                  00778000
SSALDEST EQU   SSAL+8                                                   00779000
@NM00005 EQU   SSAL+3                                                   00780000
@NM00004 EQU   SSALFLG1                                                 00781000
SSALASNM EQU   SSALFLG1                                                 00782000
SSALSPIN EQU   SSALFLG1                                                 00783000
SSALTRKM EQU   SSALFLG1                                                 00784000
SSALWAIT EQU   SSALFLG1                                                 00785000
SSALRSV2 EQU   SSALFLG1                                                 00786000
SSALHOLD EQU   SSALFLG1                                                 00787000
SSALDELT EQU   SSALFLG1                                                 00788000
SSALLEN  EQU   SSAL                                                     00789000
SSOBFUNC EQU   SSOB+6                                                   00790000
SSOBLEN  EQU   SSOB+4                                                   00791000
SSOBID   EQU   SSOB                                                     00792000
JESSSCT  EQU   JESCT+24                                                 00793000
JESRESQM EQU   JESCT+16                                                 00794000
JESQMGR  EQU   JESCT+12                                                 00795000
JESUNITS EQU   JESCT+4                                                  00796000
@NM00003 EQU   JESCT                                                    00797000
CVTLEVL  EQU   CVTRELNO+2                                               00798000
CVTNUMB  EQU   CVTRELNO                                                 00799000
CVTMDL   EQU   CVTFIX+250                                               00800000
@NM00002 EQU   CVTFIX+248                                               00801000
@NM00001 EQU   CVTFIX                                                   00802000
CVTRV482 EQU   CVTXTNT2+128                                             00803000
CVTRV481 EQU   CVTXTNT2+124                                             00804000
CVTRV480 EQU   CVTXTNT2+120                                             00805000
CVTRV479 EQU   CVTXTNT2+118                                             00806000
CVTRV478 EQU   CVTXTNT2+117                                             00807000
CVTRV477 EQU   CVTXTNT2+116                                             00808000
CVTRV476 EQU   CVTXTNT2+115                                             00809000
CVTRV475 EQU   CVTXTNT2+114                                             00810000
CVTRV474 EQU   CVTRV466                                                 00811000
CVTRV473 EQU   CVTRV466                                                 00812000
CVTRV472 EQU   CVTRV466                                                 00813000
CVTRV471 EQU   CVTRV466                                                 00814000
CVTRV470 EQU   CVTRV466                                                 00815000
CVTRV469 EQU   CVTRV466                                                 00816000
CVTRV468 EQU   CVTRV466                                                 00817000
CVTRV467 EQU   CVTRV466                                                 00818000
CVTRV465 EQU   CVTRV457                                                 00819000
CVTRV464 EQU   CVTRV457                                                 00820000
CVTRV463 EQU   CVTRV457                                                 00821000
CVTRV462 EQU   CVTRV457                                                 00822000
CVTRV461 EQU   CVTRV457                                                 00823000
CVTRV460 EQU   CVTRV457                                                 00824000
CVTRV459 EQU   CVTRV457                                                 00825000
CVTRV458 EQU   CVTRV457                                                 00826000
CVTRV456 EQU   CVTXTNT2+108                                             00827000
CVTRV455 EQU   CVTXTNT2+104                                             00828000
CVTRV454 EQU   CVTXTNT2+100                                             00829000
CVTRV453 EQU   CVTXTNT2+96                                              00830000
CVTRV452 EQU   CVTXTNT2+94                                              00831000
CVTRV451 EQU   CVTXTNT2+92                                              00832000
CVTRV450 EQU   CVTXTNT2+90                                              00833000
CVTRV449 EQU   CVTXTNT2+88                                              00834000
CVTRV448 EQU   CVTXTNT2+87                                              00835000
CVTRV447 EQU   CVTXTNT2+86                                              00836000
CVTRV446 EQU   CVTRV438                                                 00837000
CVTRV445 EQU   CVTRV438                                                 00838000
CVTRV444 EQU   CVTRV438                                                 00839000
CVTRV443 EQU   CVTRV438                                                 00840000
CVTRV442 EQU   CVTRV438                                                 00841000
CVTRV441 EQU   CVTRV438                                                 00842000
CVTRV440 EQU   CVTRV438                                                 00843000
CVTRV439 EQU   CVTRV438                                                 00844000
CVTRV437 EQU   CVTRV429                                                 00845000
CVTRV436 EQU   CVTRV429                                                 00846000
CVTRV435 EQU   CVTRV429                                                 00847000
CVTRV434 EQU   CVTRV429                                                 00848000
CVTRV433 EQU   CVTRV429                                                 00849000
CVTRV432 EQU   CVTRV429                                                 00850000
CVTRV431 EQU   CVTRV429                                                 00851000
CVTRV430 EQU   CVTRV429                                                 00852000
CVTRV428 EQU   CVTXTNT2+80                                              00853000
CVTRV427 EQU   CVTXTNT2+76                                              00854000
CVTRV426 EQU   CVTXTNT2+72                                              00855000
CVTRV425 EQU   CVTXTNT2+68                                              00856000
CVTATACT EQU   CVTATCVT                                                 00857000
CVTRV423 EQU   CVTXTNT2+62                                              00858000
CVTRV422 EQU   CVTXTNT2+60                                              00859000
CVTRV421 EQU   CVTXTNT2+58                                              00860000
CVTRV420 EQU   CVTXTNT2+56                                              00861000
CVTRV419 EQU   CVTXTNT2+55                                              00862000
CVTRV418 EQU   CVTXTNT2+54                                              00863000
CVTRV417 EQU   CVTRV409                                                 00864000
CVTRV416 EQU   CVTRV409                                                 00865000
CVTRV415 EQU   CVTRV409                                                 00866000
CVTRV414 EQU   CVTRV409                                                 00867000
CVTRV413 EQU   CVTRV409                                                 00868000
CVTRV412 EQU   CVTRV409                                                 00869000
CVTRV411 EQU   CVTRV409                                                 00870000
CVTRV410 EQU   CVTRV409                                                 00871000
CVTRV408 EQU   CVTRV400                                                 00872000
CVTRV407 EQU   CVTRV400                                                 00873000
CVTRV406 EQU   CVTRV400                                                 00874000
CVTRV405 EQU   CVTRV400                                                 00875000
CVTRV404 EQU   CVTRV400                                                 00876000
CVTRV403 EQU   CVTRV400                                                 00877000
CVTRV402 EQU   CVTRV400                                                 00878000
CVTRV401 EQU   CVTRV400                                                 00879000
CVTRSVA1 EQU   CVTXTNT2+48                                              00880000
CVTRSVA0 EQU   CVTXTNT2+44                                              00881000
CVTRSV99 EQU   CVTXTNT2+40                                              00882000
CVTRSV98 EQU   CVTXTNT2+36                                              00883000
CVTRSV97 EQU   CVTXTNT2+34                                              00884000
CVTRSV96 EQU   CVTXTNT2+32                                              00885000
CVTOLTEP EQU   CVTXTNT2+28                                              00886000
CVTQIDA  EQU   CVTQID+1                                                 00887000
CVTRSV95 EQU   CVTQID                                                   00888000
CVTRSV94 EQU   CVTXTNT2+20                                              00889000
CVTRSV93 EQU   CVTXTNT2+16                                              00890000
CVTRSV92 EQU   CVTXTNT2+12                                              00891000
CVTDEBVR EQU   CVTXTNT2+8                                               00892000
CVTRSV91 EQU   CVTXTNT2+6                                               00893000
CVTRSV9H EQU   CVTRSV90                                                 00894000
CVTRSV9G EQU   CVTRSV90                                                 00895000
CVTRSV9F EQU   CVTRSV90                                                 00896000
CVTRSV9E EQU   CVTRSV90                                                 00897000
CVTRSV9D EQU   CVTRSV90                                                 00898000
CVTRSV9C EQU   CVTRSV90                                                 00899000
CVTRSV9B EQU   CVTRSV90                                                 00900000
CVTRSV9A EQU   CVTRSV90                                                 00901000
CVTNUCLS EQU   CVTXTNT2+4                                               00902000
CVTDSSVA EQU   CVTDSSV+1                                                00903000
CVTRSV89 EQU   CVTDSSV                                                  00904000
CVTRSV88 EQU   CVTXTNT1+8                                               00905000
CVTRSV87 EQU   CVTXTNT1+4                                               00906000
CVTFACHN EQU   CVTXTNT1                                                 00907000
CVTRV488 EQU   CVTMAP+412                                               00908000
CVTRV487 EQU   CVTMAP+408                                               00909000
CVTRV486 EQU   CVTMAP+404                                               00910000
CVTRV485 EQU   CVTMAP+400                                               00911000
CVTRV484 EQU   CVTMAP+396                                               00912000
CVTAUTH  EQU   CVTMAP+392                                               00913000
CVTATMCA EQU   CVTATMCT+1                                               00914000
CVTATMST EQU   CVTATMCT                                                 00915000
CVTRSV61 EQU   CVTMAP+384                                               00916000
CVTVOLT1 EQU   CVTVOLM1+1                                               00917000
CVTVOLI1 EQU   CVTVOLF1                                                 00918000
CVTSTOA  EQU   CVTMAP+376                                               00919000
CVTRSV58 EQU   CVTMAP+374                                               00920000
CVTRSV57 EQU   CVTMAP+372                                               00921000
CVTDDCE  EQU   CVTMAP+368                                               00922000
CVTPNWFR EQU   CVTMAP+364                                               00923000
CVTSMF   EQU   CVTMAP+360                                               00924000
CVTSULK  EQU   CVTMAP+358                                               00925000
CVTSLKO  EQU   CVTSYSK                                                  00926000
CVTSLKP  EQU   CVTSYSK                                                  00927000
CVTSLKQ  EQU   CVTSYSK                                                  00928000
CVTSLKR  EQU   CVTSYSK                                                  00929000
CVTRSV56 EQU   CVTSYSK                                                  00930000
CVTRSV55 EQU   CVTSYSK                                                  00931000
CVTRSV54 EQU   CVTSYSK                                                  00932000
CVTRSV53 EQU   CVTSYSK                                                  00933000
CVTRSV52 EQU   CVTA1F1                                                  00934000
CVTRSV51 EQU   CVTA1F1                                                  00935000
CVTRSV50 EQU   CVTA1F1                                                  00936000
CVTRSV49 EQU   CVTA1F1                                                  00937000
CVTRSV48 EQU   CVTA1F1                                                  00938000
CVTRSV47 EQU   CVTA1F1                                                  00939000
CVTSRSW  EQU   CVTA1F1                                                  00940000
CVTPFSW  EQU   CVTA1F1                                                  00941000
CVTPCVT  EQU   CVTMAP+352                                               00942000
CVTRSV46 EQU   CVTMAP+344                                               00943000
CVTRSV45 EQU   CVTMAP+340                                               00944000
CVTRSV44 EQU   CVTMAP+338                                               00945000
CVTRSV43 EQU   CVTMAP+336                                               00946000
CVTHJESA EQU   CVTHJES+1                                                00947000
CVTRSV42 EQU   CVTHJES                                                  00948000
CVTEXT2A EQU   CVTEXT2+1                                                00949000
CVTRSV41 EQU   CVTEXT2                                                  00950000
CVTAPFA  EQU   CVTAPF+1                                                 00951000
CVTRSV40 EQU   CVTAPF                                                   00952000
CVTRV518 EQU   CVTINTLA                                                 00953000
CVTRV517 EQU   CVTERPV                                                  00954000
CVTEORM  EQU   CVTMAP+312                                               00955000
CVTMCHPR EQU   CVTMAP+308                                               00956000
CVTTZ    EQU   CVTMAP+304                                               00957000
CVTJEPS  EQU   CVTMAP+300                                               00958000
CVTMODE  EQU   CVTMAP+292                                               00959000
CVTPTRV  EQU   CVTMAP+288                                               00960000
CVTREAL  EQU   CVTMAP+284                                               00961000
CVTRSV39 EQU   CVTMAP+280                                               00962000
CVTRSV38 EQU   CVTMAP+276                                               00963000
CVTDMSRA EQU   CVTDMSR+1                                                00964000
CVTRSV37 EQU   CVTDMSR                                                  00965000
CVTQMSGA EQU   CVTQMSG+1                                                00966000
CVTRSV36 EQU   CVTQMSG                                                  00967000
CVTAMFF  EQU   CVTMAP+264                                               00968000
CVTPURGA EQU   CVTPURG+1                                                00969000
CVTRSV35 EQU   CVTPURG                                                  00970000
CVTCBSP  EQU   CVTMAP+256                                               00971000
CVTATERA EQU   CVTATER+1                                                00972000
CVTSYST  EQU   CVTATER                                                  00973000
CVTVOLT2 EQU   CVTTAT                                                   00974000
CVTVOLI2 EQU   CVTVOLF2                                                 00975000
CVTAQAVB EQU   CVTAQAVT+1                                               00976000
CVTRSV34 EQU   CVTTCMFG                                                 00977000
CVTRSV33 EQU   CVTTCMFG                                                 00978000
CVTRSV32 EQU   CVTTCMFG                                                 00979000
CVTRSV31 EQU   CVTTCMFG                                                 00980000
CVTRSV30 EQU   CVTTCMFG                                                 00981000
CVTRSV29 EQU   CVTTCMFG                                                 00982000
CVTRSV28 EQU   CVTTCMFG                                                 00983000
CVTTCRDY EQU   CVTTCMFG                                                 00984000
CVTGTFA  EQU   CVTGTF+1                                                 00985000
CVTRSV27 EQU   CVTGTFST                                                 00986000
CVTRNIO  EQU   CVTGTFST                                                 00987000
CVTRV319 EQU   CVTUSR                                                   00988000
CVTRV318 EQU   CVTFORM                                                  00989000
CVTRV317 EQU   CVTTMODE                                                 00990000
CVTRV316 EQU   CVTSTATE                                                 00991000
CVTRV315 EQU   CVTGTFS                                                  00992000
CVTGTFAV EQU   CVTGTFS                                                  00993000
CVT0SCR1 EQU   CVTMAP+232                                               00994000
CVTRV515 EQU   CVTMAP+228                                               00995000
CVTRMS   EQU   CVTMAP+224                                               00996000
CVTPATCH EQU   CVTMAP+220                                               00997000
CVTTSCE  EQU   CVTMAP+216                                               00998000
CVTLNKSC EQU   CVTMAP+214                                               00999000
CVTQABST EQU   CVTMAP+212                                               01000000
CVTMDLDS EQU   CVTMAP+208                                               01001000
CVTUSER  EQU   CVTMAP+204                                               01002000
CVTABEND EQU   CVTMAP+200                                               01003000
CVTSMCA  EQU   CVTMAP+196                                               01004000
CVTRSV18 EQU   CVTMAP+192                                               01005000
CVTQLPAQ EQU   CVTMAP+188                                               01006000
CVTQCDSR EQU   CVTMAP+184                                               01007000
CVTRSV17 EQU   CVTOPTB                                                  01008000
CVTRSV16 EQU   CVTOPTB                                                  01009000
CVTFP    EQU   CVTOPTB                                                  01010000
CVTAPTHR EQU   CVTOPTB                                                  01011000
CVTNLOG  EQU   CVTOPTB                                                  01012000
CVTTOD   EQU   CVTOPTB                                                  01013000
CVTCTIMS EQU   CVTOPTB                                                  01014000
CVTPROT  EQU   CVTOPTB                                                  01015000
CVTXPFP  EQU   CVTOPTA                                                  01016000
CVTASCII EQU   CVTOPTA                                                  01017000
CVTRSV13 EQU   CVTOPTA                                                  01018000
CVTRSV12 EQU   CVTOPTA                                                  01019000
CVTNIP   EQU   CVTOPTA                                                  01020000
CVTDDR   EQU   CVTOPTA                                                  01021000
CVTAPR   EQU   CVTOPTA                                                  01022000
CVTCCH   EQU   CVTOPTA                                                  01023000
CVTSNCTR EQU   CVTMAP+180                                               01024000
CVTQMWR  EQU   CVTMAP+176                                               01025000
CVTQOCR  EQU   CVTMAP+172                                               01026000
CVT1EF00 EQU   CVTMAP+168                                               01027000
CVTMZ00  EQU   CVTMAP+164                                               01028000
CVTHEAD  EQU   CVTMAP+160                                               01029000
CVTRSV11 EQU   CVTMAP+156                                               01030000
CVT0PT01 EQU   CVTMAP+152                                               01031000
CVTMSER  EQU   CVTMAP+148                                               01032000
CVTRV516 EQU   CVTIERLC                                                 01033000
CVTILCH  EQU   CVTMAP+140                                               01034000
CVT0DS   EQU   CVTMAP+136                                               01035000
CVTFBOSV EQU   CVTMAP+132                                               01036000
CVTNUCB  EQU   CVTMAP+128                                               01037000
CVTIXAVL EQU   CVTMAP+124                                               01038000
CVTIOQET EQU   CVTMAP+120                                               01039000
CVTDCBA  EQU   CVTMAP+117                                               01040000
CVTMVS2  EQU   CVTDCB                                                   01041000
CVT6DAT  EQU   CVTDCB                                                   01042000
CVT4MPS  EQU   CVTDCB                                                   01043000
CVTRSV09 EQU   CVTDCB                                                   01044000
CVT4MS1  EQU   CVTDCB                                                   01045000
CVT2SPS  EQU   CVTDCB                                                   01046000
CVT1SSS  EQU   CVTDCB                                                   01047000
CVTRSV08 EQU   CVTDCB                                                   01048000
CVTSTB   EQU   CVTMAP+112                                               01049000
CVTQTD00 EQU   CVTMAP+108                                               01050000
CVTQTE00 EQU   CVTMAP+104                                               01051000
CVTCUCB  EQU   CVTMAP+100                                               01052000
CVTSJQ   EQU   CVTMAP+96                                                01053000
CVTPBLDL EQU   CVTMAP+92                                                01054000
CVTTPC   EQU   CVTMAP+88                                                01055000
CVTSVDCB EQU   CVTMAP+84                                                01056000
CVTBRET  EQU   CVTMAP+82                                                01057000
CVTEXIT  EQU   CVTMAP+80                                                01058000
CVT0FN00 EQU   CVTMAP+76                                                01059000
CVTDARA  EQU   CVTDAR+1                                                 01060000
CVTRSV07 EQU   CVTFLGS1                                                 01061000
CVTRSV06 EQU   CVTFLGS1                                                 01062000
CVTRSV05 EQU   CVTFLGS1                                                 01063000
CVTRSV04 EQU   CVTFLGS1                                                 01064000
CVTRSV03 EQU   CVTFLGS1                                                 01065000
CVTRSV02 EQU   CVTFLGS1                                                 01066000
CVTRSV01 EQU   CVTFLGS1                                                 01067000
CVTDMPLK EQU   CVTFLGS1                                                 01068000
CVTXITP  EQU   CVTMAP+68                                                01069000
CVTZDTAB EQU   CVTMAP+64                                                01070000
CVTMSLT  EQU   CVTMAP+60                                                01071000
CVTDATE  EQU   CVTMAP+56                                                01072000
CVTBTERM EQU   CVTMAP+52                                                01073000
CVTSYSAD EQU   CVTMAP+48                                                01074000
CVTXTLER EQU   CVTMAP+44                                                01075000
CVTILK2  EQU   CVTMAP+40                                                01076000
CVTILK1  EQU   CVTMAP+36                                                01077000
CVTPRLTV EQU   CVTMAP+32                                                01078000
CVTPCNVT EQU   CVTMAP+28                                                01079000
CVT0VL00 EQU   CVTMAP+24                                                01080000
CVTXAPG  EQU   CVTMAP+20                                                01081000
CVTBUF   EQU   CVTMAP+16                                                01082000
CVTJOB   EQU   CVTMAP+12                                                01083000
CVTLINK  EQU   CVTMAP+8                                                 01084000
CVT0EF00 EQU   CVTMAP+4                                                 01085000
CVTTCBP  EQU   CVTMAP                                                   01086000
CVT      EQU   CVTMAP                                                   01087000
.@UNREFD ANOP                          END UNREFERENCED COMPONENTS      01088000
@ENDDATA EQU   *                                                        01089000
         END   IEFJDSNA                                                 01090000
