* GET WORKFILE SIZE DESCRIPTION                         HEADER  C:GETWFS0001.000
************************************************************************0002.000
*                                                                      *0003.000
*                    PROPRIETARY INFORMATION                           *0004.000
*                    -----------------------                           *0005.000
*   THE INFORMATION CONTAINED HEREIN IS PROPRIETARY TO ENCORE          *0006.000
*   COMPUTER CORPORATION AND/OR ITS VENDORS, AND ITS USE, DISCLOSURE,  *0007.000
*   OR DUPLICATION IS SUBJECT TO THE RESTRICTIONS STATED IN THE        *0008.000
*   STANDARD ENCORE COMPUTER CORPORATION LICENSE TERMS AND CONDITIONS  *0009.000
*   OR THE APPROPRIATE THIRD-PARTY SUBLICENSE AGREEMENT.               *0010.000
*                                                                      *0011.000
*                       RESTRICTED RIGHTS                              *0012.000
*                       -----------------                              *0013.000
*   USE, DUPLICATION, OR DISCLOSURE BY THE GOVERNMENT IS SUBJECT       *0014.000
*   TO RESTRICTIONS AS SET FOURTH IN SUBDIVISION (c) (1) (ii) OF       *0015.000
*   THE RIGHTS IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE AT       *0016.000
*   252.227.7013                                                       *0017.000
************************************************************************0018.000
* (C) COPYRIGHT 1989 ENCORE COMPUTER CORPORATION                       *0019.000
*     ALL RIGHTS RESERVED                                              *0020.000
************************************************************************0021.000
*                                                                       0022.000
*              GET WORKFILE SIZE DESCRIPTION                            0023.000
*                                                                       0024.000
         M.PGM     C:GETWFS,MPX-32,3.6.1,00                             0025.000
************************************************************************0026.000
*                                                                       0027.000
*        MPX-32 REVISION 3 RELEASE 3.5U02 CHANGE HISTORY                0028.000
*                                                                       0029.000
************************************************************************0030.000
*        VERSION 3.5U02A.01 BL4                                         0031.000
*                                                                       0032.000
*        E3RMS35   06/09/92 11464 ADDED CODE TO SUPPORT SORTING E3RMS35 0033.000
*                  OF REMOTE FILES                              E3RMS35 0034.000
*                                                                       0035.000
************************************************************************0036.000
*                                                                       0037.000
*                                                                       0038.000
         LIST      NOMAC,NODATA                                         0039.000
         DEF       C:GETWFS                                             0040.000
         EXT       SORTERR                                              0041.000
*                                                                       0042.000
ABORT6   DATAW     C'SZ06'                                              0043.000
*ABORT7   DATAW     C'SZ07'                                     E3RMS35 0044.000
*                                                                       0045.000
         M.REQS                                                         0046.000
TRKSECS  EQU       46                                                   0047.000
SECTWDS  EQU       192                                                  0048.000
*                                                                       0049.000
C:GETWFS EQU       $                                                    0050.000
*                                                                       0051.000
*        TRR       R4,R5           TRANSFER LOGICAL FILE CODE I E3RMS35 0052.000
*        LA        R1,PARAM        BUFF FOR TABLE INFO          E3RMS35 0053.000
         ANMW      R4,=X'00FFFFFF' SETUP LFC FOR SVC                    0054.000
         STW       R4,LFC                                       E3RMS35 0055.000
*        ZR        R5                                           E3RMS35 0056.000
         ZR        R7                                                   0057.000
         M.LOC     LFC,RD.BUF      LOCATE FILE                  E3RMS35 0058.000
         BNS       GWF010          CONTINUE IF NO ERRER         E3RMS35 0059.000
*        SVC       2,X'48'         INQUIRY SVC CALL   S861069   E3RMS35 0060.000
*        M.INQUIRY                 PHYSICAL DEVICE INQUIRY              0061.000
* This is where a non-compatability update is being effected            0062.000
*        ZR        7                                                    0063.000
*                                                                       0064.000
*        TRR       R7,R7                                        E3RMS35 0065.000
*        BZ        GWF010                                       E3RMS35 0066.000
*        CI        R5,0            IF R5 EQ ZERO, RESOURCE UNDEFINED    0067.000
*        BCF       EQ,GWF010       FALL THROUGH IF UNDEFINED            0068.000
         LW        R5,ABORT6                                            0069.000
         BL        SORTERR                                              0070.000
*                                                                       0071.000
*WF010   SRL       R7,26                                                0072.000
GWF010   EQU       $                                            S861069 0073.000
*        CI        R7,0            IF R7 EQ ZERO, SVC   S861069 E3RMS35 0074.000
*        CI        7,X'03'                                              0075.000
*        BCF       GT,GWF020       TEST DEVICE = DISK                   0076.000
*        BEQ       GWF020          FALL THROUGH, SVC F  S861069 E3RMS35 0077.000
*        LW        R5,ABORT7       IF NOT, ERR!                 E3RMS35 0078.000
*        BL        SORTERR                                      E3RMS35 0079.000
*WF020   TRR       R5,R4           SECTOR SIZE OF TASK                  0080.000
*GWF020  EQU       $                                    S861069 E3RMS35 0081.000
*        ANMW      R5,=X'00FFFFFF'                      S861069 E3RMS35 0082.000
*        TRR       R5,R1           SETUP R1 TO INDEX I  S861069 E3RMS35 0083.000
*        LW        R4,5W,X1        LOAD EOM FR A RT     S861069 E3RMS35 0084.000
         LW        R4,RD.BUF+69W   GET THE EOM BLOCK #          E3RMS35 0085.000
         LI        R5,TRKSECS      TRACK SECTORS                        0086.000
         LI        R6,SECTWDS      SECTOR WORDS                         0087.000
*                                                                       0088.000
         TRSW      R0                                                   0089.000
LFC      REZ       1W              LFC                          E3RMS35 0090.000
         BOUND     1D                                           E3RMS35 0091.000
RD.BUF   REZ       192W            RD BUFFER                    E3RMS35 0092.000
*PARAM   REZ       8W                                           E3RMS35 0093.000
         END                                                            0094.000
