// DATE 070222
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-$MALE
       MACRO
       $MALE
.*
.*     5703-XM1 DATAMANAGEMENT COMMON AREAS
.*
       TEXT
       TITLE 'TSMLES - (SMALES) DATA MANAGEMENT COMMON AREAS'
***********************************************************************
*  5703-XM1 COPYRIGHT IBM CORP. 1970                                  *
*           REFER TO INSTRUCTIONS ON COPY RIGHT NOTICE, 120-2083      *
*                                                                     *
***********************************************************************
*STATUS                                                               *
*   VERSION 1 MODIFICATION 0                                          *
*                                                                     *
*FUNCTION                                                             *
*  * TSMLES PROVIDES A COMMON SET OF BUFFERS AND WORK AREAS FOR DATA  *
*    MANAGEMENT KEYWORDS AND THERE ASSOCIATED SUBROUTINES. THE WORK   *
*    AREAS PROVIDE A COMMON COMMUNICATION BETWEEN SUBROUTINES THAT    *
*    PERFORM A VARIETY OF FUNCTIONS WITH THE LIBRARY.                 *
*    THIS ELIMINATESA LARGE AMOUNT OF CUMBERSOME PARAMETER PASSING.   *
*                                                                     *
*ENTRY POINTS                                                         *
*    N/A                                                              *
*                                                                     *
*INPUT                                                                *
*    N/A                                                              *
*                                                                     *
*OUTPUT                                                               *
*    N/A                                                              *
*                                                                     *
*EXTERNAL REFERENCES                                                  *
*    N/A                                                              *
*                                                                     *
*EXITS, NORMAL                                                        *
*    N/A                                                              *
*                                                                     *
*EXITS, ERROR                                                         *
*    N/A                                                              *
*                                                                     *
*TABLES/WORKAREAS                                                     *
*    N/A                                                              *
*                                                                     *
*ATTRIBUTES                                                           *
*    N/A                                                              *
*                                                                     *
*CHARACTER CODE DEPENDENCY                                            *
*    N/A                                                              *
*                                                                     *
*NOTES                                                                *
*   ERROR PROCEDURES                                                  *
*      N/A                                                            *
*   REGISTER USAGE                                                    *
*      N/A                                                            *
*   SAVED/RESTORED AREAS                                              *
*      N/A                                                            *
*   MODIFICATION CONSIDERATIONS                                       *
*      N/A                                                            *
*   REQUIRED MODULES                                                  *
*      N/A                                                            *
*   OTHER                                                             *
*      N/A                                                            *
***********************************************************************
       EJECT
***********************************************************************
* SMALES- SYSTEM DATA MANAGEMENT COMMON SAVE AREAS AND EQUATES        *
*         USED TO PROVIDE COMMUNICATION BETWEEN SUBROUTINES USED      *
*         BY THE VARIOUS KEYWORDS INVOLVED WITH FILE MANIPULATION     *
***********************************************************************
*
SMALES EQU   *                         START OF MANAGEMENT AREA
SMIND1 EQU   SMALES                    INDICATOR BYTE 1
SM1FNE EQU   X'80'                      SRCHFN INDR NAME NOT FOUND
SM1NPD EQU   X'40'                      PACK INDR NULL DIRCTY FULL
SM1STN EQU   X'20'                      STORIN PACK INDICATOR BIT
SM1PDS EQU   X'10'                      SGETDB SEARCH ONLY FLAG
SM1PNF EQU   X'08'                      SGETDB PASSWORD NOT FOUND
SMVOID EQU   SMIND1+6                  SPECIFIED VOLUME ID SAVE AREA
SMPSWD EQU   SMVOID+8                  SPECIFIED PASSWORD SAVE AREA
SMFNAM EQU   SMPSWD+8                  SPECIFIED FILENAME SAVE AREA
SMUDEA EQU   SMFNAM+2                  FILENAME DIRCTY ENTRY ADDR
SMBFDA EQU   SMUDEA+2                  DADDR OF FILE LIBRARY
SMUDBA EQU   SMBFDA+2                  CADDR OF ACTIVE BUFFER ADDR
SMNULT EQU   SMUDBA+2                  TOTAL OF NULL SECTORS AVAILABLE
SMNDEA EQU   SMNULT+2                  NULL DIRCTY ENTRY ERROR
SMNSCT EQU   SMNDEA+2                  COUNT OF NULL SECTORS REQUIRED
SMNETD EQU   SMNSCT+2                 CADDR NEW ENTRY TO NULL DIRCTY
SMUPEN EQU   SMNETD+2                  CADDR NEW USER DIRCTY ENTRY
SMPEAD EQU   SMUPEN+2                  CADDR PASSWORD ENTRY
SMFUDA EQU   SMPEAD+2                  REL DADDR 1ST USER DIRCTY BLOCK
*                                                                     *
***********************************************************************
*                                                                     *
*SMDAAD EQU   SMNSCT                    RELATIVE DADDR
*SMNDBA EQU   SMFUDA+2                  NULL DIRCTY BUFFER CORE ADDR
*SMDAAD EQU   SMNDBA+2                  DADDR OF ACTIVE DIRCTY
*SMPDB1 EQU   SMDAAD+1                  PASSWORD DIRCTY BUFFER
*SMPIBS EQU   SMPDB1                    SVOLID TEMP SAVE INPUT BUFFER
*SMUDB1 EQU   SMPDB1                    USER DIRCTY BLOCK 1 BUFFER
*SMUDB2 EQU   SMUDB1+512                USER DIRCTY BLOCK 2 BUFFER
*sMAEND EQU   SMUDB2+512                END OF SMALES AREA
***                       END OF SMALES                             ***
       MEND
// CEND
// END
*
// READER CONSOLE