*DECK QU0502                                                             QU0502 
          IDENT  QU0502                                                  QU0502 
          COMMENT  INITIALIZATION OF OVERLAY (5,2).                      QU0502 
          TITLE  QU0502 - INITIALIZATION OF OVERLAY (5,2).               QU0502 
          LIST   F                                                       QU0502 
          LIST   -L          *CALL ENVIRON                               QU0502 
*CALL ENVIRON                                                            QU0502 
          LIST   *                                                       QU0502 
          LIST   -L          *CALL BASIC                                 QU0502 
*CALL BASIC                                                              QU0502 
          LIST   *                                                       QU0502 
          SPACE  4                                                       QU0502 
**        QU0502 - INITIALIZATION OF OVERLAY (5,2).                      QU0502 
*                                                                        QU0502 
*                                                                        QU0502 
                                                                         QU0502 
                                                                         QU0502 
          ENTRY  QU0502                                                  QU0502 
 QU0502   EQ     *+1S17                                                  QU0502 
          SX6    =XAUTOPSY   SET UP *AUTOPSY* ADDRESS FOR ABORT          QU0502 
          SA6    =XAUTLOC                                                QU0502 
          SA1    INDEX       GO TO *ABORTUSE* IF *INDEX* = 0             QU0502 
          NZ     X1,QU51     NOT TO ABORT                                QU0502 
          RJ     =XABORTUS                                               QU0502 
          EQ     QU52                                                    QU0502 
                                                                         QU0502 
 QU51     RJ     =XUSECRM    CONTINUE ON CREATE/USE/VERSION FOR CRM SUBS QU0502 
 QU52     SX6    1           GO BACK TO (1,0) OVERLAY                    QU0502 
          SA6    PRIMARY                                                 QU0502 
          SX6    B0                                                      QU0502 
          SA6    SECONDY                                                 QU0502 
          RJ     =XLOADX0                                                QU0502 
                                                                         QU0502 
*         END OF MAIN ROUTINE.                                          000180
          SPACE  4,8                                                    000190
*         THE FOLLOWING ARE LIFTED FROM THE DDL ROUTINE *CBIO*.         000200
*         THEY ARE USED FOR READING THE SUBSCHEMA FILE.                 000210
                                                                        000220
                                                                        000230
          ENTRY  CLSESB                                                 000240
 CLSESB   EQ     *+1S17      CLOSE SUBSCHEMA FILE                       000250
          CLOSEM  DIRSUB,N                                              000260
          EQ     CLSESB                                                 000270
                                                                        000280
                                                                        000290
          ENTRY  DDLOPSB                                                000300
 DDLOPSB  EQ     *+1S17      OPEN SUBSCHEMA FILE                        000310
          SA3    =XSBLFN     GET SUBSCHEMA LFN                          000320
          BX6    X3                                                     000330
          SA6    DIRSUB                                                 000340
          SA6    NAMSTOR     SET NAME IN STS PARAM                      000350
          OPENM  DIRSUB,I-O,R  OPEN SUBSCHEMA                           000360
          SA2    STSPAR      ZERO THE RECALL BIT                        000370
          MX6    36                                                     000380
          BX6    X6*X2                                                  000390
          SA6    A2                                                     000400
*                            CALL STS, FUNCTION 3                       000410
          SYSTEM  STS,RECALL,STSPAR,3S6                                 000420
          SA1    PRUS        SAVE PRU COUNT                             000430
          BX6    X1                                                     000440
          SA6    NEWFILE                                                000450
          EQ     DDLOPSB     RETURN                                     000460
                                                                        000470
                                                                        000480
          ENTRY  DDLRDSB                                                000490
 DDLRDSB  EQ     *+1S17      READ SUBSCHEMA FILE                        000500
          SA2    A1+1        ADDR OF NUMBER OF WORDS TO READ            000510
          SA2    X2          NUMBER OF WORDS                            000520
          SA4    A1+2        GET WA OF READ                             000530
          SA3    X4                                                     000540
          SA1    A1          GET WSA                                    000550
          SX5    X2          CONVERT WORD COUNT TO CHAR COUNT           000560
          LX2    3                                                      000570
          LX5    1                                                      000580
          IX2    X5+X2                                                  000590
          GET    DIRSUB,X1,X2,,X3  MAKE READ REQUEST                    000600
          EQ     DDLRDSB     RETURN                                     000610
* 
*         CLSEDET IS USED TO CLEAN UP THE ERRONEOUS SUBSCHEMA 
*         ENTRY IN THE LIST-OF-FILES THAT WAS CREATED BY AN 
*         INVOKE WITH AN EXISTING AREA FILE NAME. 
* 
          ENTRY  CLSEDET
 CLSEDET  EQ     *+1S17      CLOSE AND DETACH SUBSCHEMA FILE
          CLOSEM  DIRSUB,DET
          EQ     CLSEDET
* 
                                                                        000620
 SETNF    EQ     *+1S17      ERROR ROUTINE FOR NULL FILE                000630
          SX7    1           SET EOI WA = 1                             000640
          SA7    NEWFILE                                                000650
          EQ     SETNF                                                  000660
                                                                        000670
          FILE   LFN=DIRSUB,LT=UL,RT=U,FO=WA,FWB=SBBUF,BFS=66,MRL=131071000680
,0,DX=SETNF,EFC=3,ERL=10                                                000690
                                                                        000700
 SBBUF    BSS    66          INPUT BUFFER                               000710
          ENTRY  NEWFILE                                                000720
 NEWFILE  BSSZ   1           PRU COUNT OF FILE                          000730
 STSPAR   VFD    24/2*1+1,12/5555B,24/0  *STS* PARAM HEADER             000740
 NAMSTOR  BSSZ   1           FILE NAME GOES HERE                        000750
 PRUS     BSSZ   1           PRU COUNT RETURNED HERE                    000760
                                                                        000770
          END    QU0502                                                  QU0502 
