         TITLE    '***** EDITOR CONTEXT SEGMENT *****'                          
*                 MODE = 1 FOR BTM VERSION                                      
*                      = 2 FOR UTS VERSION                                      
*                                                                               
*                      = 3 FOR CPR VERSION                                      
MODE     EQU      3                                                             
*                                                                               
S        FNAME                                                                  
         PROC                                                                   
         PEND     S:UFV(AF(MODE))                                               
*                                                                               
EDITBASE CSECT    0                                                             
         SYSTEM SIG7FD                                                          
         DO       S(1,1,0)                                                      
         SYSTEM   BPM                                                           
         ELSE                                                                   
         SYSTEM   CPR                                                           
         FIN                                                                    
*                                                                               
*                                                                               
         DEF      EDITBASE                                                      
         DEF      STACK                                                         
         DEF      STACKDW                                                       
         DEF      DMY%TYPECERR                                                  
         DEF      DMY%TYPEPERR                                                  
         DEF      DMY%TPM                                                       
         DO       MODE=1                                                        
         DEF      EDIT%TCB                                                      
         DEF      EDIT%TSTK                                                     
         DEF      EDIT%DCBT                                                     
         FIN                                                                    
         DEF      MVD:REC:CNT                                                   
         DEF      CHG:STG:CNT                                                   
         DEF      DEL:REC:CNT                                                   
         DEF      BUILDFLAG                                                     
         DEF      CFLAG                                                         
         DEF      INTFLAG1                                                      
         DEF      INTFLAG2                                                      
         DEF      TABERRFLAG                                                    
         DEF      TABCFLAG                                                      
         DEF      TABXFLAG                                                      
         DEF      TSADDR                                                        
         DEF      XEQFLAG                                                       
         DEF      TPC%BUF                                                       
         DO       S(1,1,0)                                                      
         DEF      O%NAME                                                        
         DEF      O%FPT                                                         
         DEF      O%ACCT                                                        
         DEF      O%PASS                                                        
         DEF      O2%NAME                                                       
         DEF      O2%FPT                                                        
         DEF      O2%ACCT                                                       
         DEF      O2%PASS                                                       
         FIN                                                                    
         DEF      ALLFLAG                                                       
         DEF      ALLOK                                                         
         DEF      BLANKCNT                                                      
         DEF      BPFLAG                                                        
         DEF      CARDIMG                                                       
         DEF      CDT                                                           
         DEF      CDTADR                                                        
         DEF      CHARPSN                                                       
         DEF      COPYFL                                                        
         DEF      CRFLAG                                                        
         DEF      DFLTINCR                                                      
         DEF      EODCLMN                                                       
         DEF      ERRORCNT                                                      
         DEF      FID1ADR                                                       
         DEF      FID2ADR                                                       
         DEF      FIELDCNT                                                      
         DEF      FILETYPE                                                      
         DEF      FRSTCLMN                                                      
         DEF      FIRSTFROM                                                     
         DEF      FIRSTSET                                                      
         DEF      GOSEQ                                                         
         DEF      KBUF                                                          
         DEF      LASTCLMN                                                      
         DEF      LASTFROM                                                      
         DEF      LASTKEY                                                       
         DEF      LASTSET                                                       
         DEF      MAXSEQ                                                        
         DEF      NOCHGFLG                                                      
         DEF      NXINSRT                                                       
         DEF      PARAMBUF                                                      
         DEF      PARAMPSN                                                      
         DEF      PRMBUFSZ                                                      
         DEF      RECSIZE                                                       
         DEF      SETADR                                                        
         DEF      SETFLAG                                                       
         DEF      SIEOF                                                         
         DEF      STEPFLAG                                                      
         DEF      STOPCLMN                                                      
         DEF      SV1STSET                                                      
         DEF      SVBPFLAG                                                      
         DEF      TEMPBLCK                                                      
         DEF      TEXTCADR                                                      
         DEF      TTYIMG                                                        
         DEF      TTYIMGSZ                                                      
         DEF      DELNXT                                                        
         DEF      MSGBUF                                                        
         DEF      PROMPT                                                        
         DO       S(0,0,1)                                                      
         DEF      EOFORMAT                                                      
         DEF      EORSIZE                                                       
         DEF      EOFSIZE                                                       
         DEF      FORCESV                                                       
         DEF      SAVEFID                                                       
         DEF      SAVESEQ                                                       
         DEF      SAVON                                                         
         DEF      SUBJFID                                                       
         DEF      SCRFID                                                        
         FIN                                                                    
         DO       MODE=1                                                        
         DEF      F:EI                                                          
         DEF      F:EO                                                          
         FIN                                                                    
         REF      MASTERPARSER                                                  
         DO       S(1,1,0)                                                      
         REF      O%ABN                                                         
         REF      O2%ABN                                                        
         FIN                                                                    
         REF      TYPECERR                                                      
         REF      TYPEPERR                                                      
         REF      TYPEMSG                                                       
         REF      BEGINEDITOR                                                   
         DO       S(0,1,1)                                                      
         DO       S(0,1,0)                                                      
         REF      M:UC                                                          
         ELSE                                                                   
         REF      M:C                                                           
         FIN                                                                    
         REF      M:LL                                                          
         REF      M:EI,M:EO                                                     
         REF      M:SI,M:LO                                                     
         ELSE                                                                   
         DEF      F:EI,F:EO                                                     
         FIN                                                                    
*                                                                               
         PAGE                                                                   
*************************                                                       
*  REGISTER ALLOCATION  *                                                       
*************************                                                       
*                                                                               
*                                                                               
*  REGISTERS 1-13 MUST BE PRESERVED BY ANY SUBR WHICH USES THEM                 
*                                                                               
X3       EQU      1                                                             
X4       EQU      2                                                             
X1       EQU      3                                                             
X2       EQU      4                                                             
P1       EQU      5                                                             
P2       EQU      6                                                             
LNK      EQU      7                                                             
T1       EQU      8                                                             
T2       EQU      9                                                             
P3       EQU      10                                                            
R1       EQU      11                                                            
R2       EQU      12                                                            
F:LNK    EQU      13                                                            
R:LNK    EQU      13                                                            
I:LNK    EQU      13                                                            
*                                                                               
*  REGISTERS 0,14-15 ARE NEVER SAVED BY SUBRS                                   
*                                                                               
R0       EQU      0                                                             
D0       EQU      14                                                            
D1       EQU      15                                                            
         PAGE                                                                   
***********************                                                         
*  SYSTEM PROCEDURES  *                                                         
***********************                                                         
*                                                                               
*                                                                               
GEN4     COM,8,8,8,8    AF(1),AF(2),AF(3),AF(4)                                 
*                                                                               
         PAGE                                                                   
*                                                                               
*                                                                               
END      EQU      0                                                             
NAME     EQU      1                                                             
SEQ      EQU      2                                                             
SEQ2     EQU      3                                                             
INTG     EQU      4                                                             
STRG     EQU      5                                                             
ALPH     EQU      6                                                             
COM      EQU      7                                                             
SCOL     EQU      8                                                             
LPAR     EQU      9                                                             
RPAR     EQU      10                                                            
PERIOD   EQU      11                UTS FILE SEPARATOR                          
BLANK    EQU      12                                                            
*                                                                               
         PAGE                                                                   
***************************                                                     
*  ADJUSTABLE PARAMETERS  *                                                     
***************************                                                     
*                                                                               
*                                                                               
DFLTSEQ  EQU      1000              DEFAULT STARTING SEQ. #                     
MAXCLMN  EQU      140                                                           
SEQLIM   EQU      9999999           FOR MAX. SEQ. NO.                           
STACKSZ  EQU      100               SIZE OF TEMP STACK                          
*                                                                               
FIRST%F:CMND      EQU 1                                                         
FIRST%I:CMND      EQU 30                                                        
FIRST%R:CMND      EQU 10                                                        
I:TS%CMND%NMR     EQU 42                                                        
I:TY%CMND%NMR     EQU 43                                                        
R:TS%CMND%NMR     EQU 21                                                        
R:TY%CMND%NMR     EQU 22                                                        
*                                                                               
*                                                                               
BL       EQU      ' '                                                           
CM       EQU      ','                                                           
CR       EQU      S(X'15',X'0D',X'0D')                                          
EOF      EQU      10000000                                                      
EOM      EQU      X'08'                                                         
LF       EQU      S(X'25',X'15',X'15')                                          
PR       EQU      '.'                                                           
LP       EQU      '('                                                           
RP       EQU      ')'                                                           
SC       EQU      ';'                                                           
         PAGE                                                                   
**************************************                                          
*  EDIT/BTM INTERFACE CONTROL BLOCK  *                                          
**************************************                                          
*                                                                               
*                                                                               
         DO       MODE=1                                                        
         ORG      EDITBASE                                                      
         DATA     EDIT%TCB                                                      
         DATA,16  0,0                                                           
         DATA     BEGINEDITOR                                                   
         DO1      X'40'-10                                                      
         DATA     0                                                             
         FIN                                                                    
         PAGE                                                                   
*******************                                                             
*  VARIABLE DATA  *                                                             
*******************                                                             
*                                                                               
*                                                                               
ALLFLAG  DATA     -1                GLOBAL: >=0 IF ALL USED ON I:CMND           
ALLOK    DATA     0                 GLOBAL: =0 IF 'ALL' IS OK.                  
BLANKCNT RES      1                 SHFTRGHT: # OF BLANKS TO COMPRESS           
BPFLAG   DATA     0                 GLOBAL: BLANK PRESERVATION FLAG,ON=1        
CARDIMG  RES      MAXCLMN/4+1       GLOBAL: HOLDS ACTIVE CARD IMAGE.            
CDT      RES      100               GLOBAL: COMMAND DESCRIPTION TABLE           
CDTADR   RES      1                 GLOBAL: ADR OF CURRENT CMND IN CDT          
CHARPSN  RES      1                 PARSER: PSN OF NEXT CHAR TO SCAN            
COPYFL   DATA     0                 F:COPY-- FID1=FID2 IF 1                     
CRFLAG   DATA     1                 GLOBAL: 0= INCLUDE TERM. IN OUTPUT          
DFLTINCR DATA     1000              GLOBAL: DEFAULT VALUE FOR INCREMENT         
EODCLMN  RES      1                 GLOBAL: COL.# OF LAST NON-BLANK             
ERRORCNT RES      1                 GLOBAL: # OF ERROR MSGS TO PRINT            
FID1ADR           DATA                                                          
FID2ADR           DATA                                                          
FIELDCNT RES      1                 SHFTRGHT: # OF FIELDS TO COMPRESS           
FILETYPE DATA     -1                GLOBAL: SPECIFIES TYPE OF INP FILE          
FRSTCLMN RES      1                 FINDMATCH: FIRST COL. TO START AT           
FIRSTFROM         DATA                                                          
FIRSTSET RES      1                 GLOBAL: FIRST SEQ. # FOR SET CMND           
GOSEQ    DATA     -1                SEQUENCE NR TO EXECUTE IN FILE              
KBUF     RES      1                 I/O: HOLDS KEY FOR CURRENT I/O              
LASTCLMN RES      1                 FINDMATCH: LAST COL. TO STOP IN             
LASTFROM RES      1                 F:MOVE: LAST 'FROM' SEQ # READ              
LASTKEY  DATA     0                 I/O: HOLDS LAST READ KEY                    
LASTSET  RES      1                 GLOBAL: LAST SEQ. # FOR SET CMND            
MAXSEQ   DATA     SEQLIM            GLOBAL: MAX. SEQ. NO. ALLOWED               
NOCHGFLG DATA     0                 GLOBAL: ON(1) IF NO CHANGE CMND READ        
NXINSRT  DATA     0                 NEXT SEQ NR TO INSERT AT                    
PARAMBUF RES      MAXCLMN/4+1                                                   
PARAMPSN RES      1                 ADD&NEWCDT-: PSN OF NXT PARAM IN CDT        
PRMBUFSZ RES      1                 PARSER: # OF WORDS IN PARAMBUF              
RECSIZE  DATA     140               GLOBAL: OUTPUT RECORD SIZE.                 
SETADR   RES      1                 GLOBAL: ADR OF LAST SET CMND IN CDT         
SETFLAG  DATA     0                 GLOBAL: ON(1) IF SET CMND ACTIVE            
SIEOF    DATA     0                 GLOBAL: ON IF EOF ON LAST SI READ           
STACK    RES      STACKSZ           GLOBAL: STACK USED FOR PUSH/PULL            
STEPFLAG DATA     0                 GLOBAL: ON(1) IF STEP CMND ACTIVE           
STOPCLMN RES      1                 FINDMTCH: COL. # TO STOP MATCHING AT        
SV1STSET RES      1                 GLOBAL: INITIAL 1ST SEQ # FOR SET           
SVBPFLAG DATA     0                 GLOBAL: HOLDS DFLT VALUE OF BPFLAG          
TEMPBLCK RES      10                GLOBAL: HOLDS EBCDIC TEXT FOR TYPMSG        
TEXTCADR RES      1                 FINDMTCH: ADR OF TEXTC-STRG TO MATCH        
TTYIMG   RES      MAXCLMN/4+1       GLOBAL: HOLDS TELETYPE INPUT IMAGE.         
TTYIMGSZ RES      1                 GLOBAL: HOLDS SIZE OF TELETYPE IMAGE        
*                                                                               
TPC%BUF  RES      MAXCLMN/4+4       BUFFER IN WHICH TO BUILD                    
*                                   LINE IMAGE FOR LISTING                      
MSGBUF   RES      16                BUFFER FOR BUILDING MESSAGES                
*                                                                               
DELNXT   DATA     0                 DELETE TEMP                                 
*                                                                               
         BOUND    8                                                             
STACKDW  DATA     STACK             GLOBAL: DW FOR HARDWARE PSW/PLW             
         DATA,2   STACKSZ,0                                                     
         DO       S(0,0,1)                                                      
EOFORMAT DATA     0                 EO FILE FORMAT CODE (CPR)                   
EORSIZE  DATA     0                 EO FILE RECORD SIZE (CPR)                   
EOFSIZE  DATA     0                 EO FILE FILE SIZE (CPR)                     
FORCESV  DATA     0                 FLAG: ATTEMPT SAVE EVEN IF SAVE             
*        FILE TOO SMALL (1) OR WARN BUT DONT SAVE (0)                           
SAVEFID  RES      5                 SAVE FILE ID (CPR)                          
SAVESEQ  DATA     0                    SAVE FILE SEQENCING MODE OFF (0)         
*        OR ON (1)                                                              
SAVON    DATA     0                 SAVE ON (1) OR OVER (0) THE SAVE            
*        FILE                                                                   
SUBJFID  RES      5                 SUBJECT FILE ID (CPR)                       
SCRFID   RES      5                 SCRATCH FILE ID (CPR)                       
         FIN                                                                    
*                                                                               
*  DUMMY CALLS FOR TYPECERR AND TYPEPERR                                        
*                                                                               
DMY%TYPECERR      EQU %                                                         
         BAL,LNK  TYPECERR          TYPE ERRCN                                  
         DATA     0                                                             
         B        MASTERPARSER      GO TO PARSER                                
*                                                                               
*                                                                               
DMY%TYPEPERR      EQU %                                                         
         BAL,LNK  TYPEPERR          TYPE ERRPN                                  
         DATA     0                                                             
         B        MASTERPARSER      GO TO PARSER                                
*                                                                               
*                                                                               
DMY%TPM  BAL,LNK  TYPEMSG           TYPE ERRP(C)N                               
         DATA     0                                                             
         B        0,X1              RETURN                                      
*                                                                               
         PAGE                                                                   
***********************************                                             
*  EDIT TASK CONTROL BLOCK, ETC.  *                                             
***********************************                                             
*                                                                               
*                                                                               
         DO       MODE=1                                                        
         BOUND    8                                                             
EDIT%TCB EQU      %                                                             
         DATA     EDIT%TSTK                                                     
         DATA,2   20,0                                                          
         DATA,16  0                                                             
         DATA,16  0                                                             
         DATA     EDIT%DCBT                                                     
         DATA,16  0                                                             
         DATA     0                                                             
*                                                                               
*  USER'S TEMPORARY STACK                                                       
*                                                                               
EDIT%TSTK         EQU %                                                         
         DO1      5                                                             
         DATA,16  0                                                             
*                                                                               
*  DCB NAME TABLE                                                               
*                                                                               
EDIT%DCBT         EQU %                                                         
         DATA     LINK1                                                         
         TEXTC    'F:EI'                                                        
         DATA     F:EI                                                          
         TEXTC    'F:EO'                                                        
         DATA     F:EO                                                          
LINK1    DATA     0                                                             
         ELSE                                                                   
*                                                                               
**************************************************                              
*        UTS INTERFACE PARAMETERS AND MESSAGES.  *                              
**************************************************                              
*                                                                               
MVD:REC:CNT DATA   0                                                            
CHG:STG:CNT  DATA  0                                                            
DEL:REC:CNT  DATA  0                                                            
BUILDFLAG DATA    0                 IF ZERO, ENTERED BY !BUILD                  
CFLAG    DATA                                                                   
INTFLAG1 DATA     -1                /INTERRUPT SEQ INDICATORS FOR               
INTFLAG2 DATA     -1                /THOSE COMMANDS WHICH DISPLAY.              
TABERRFLAG        DATA                                                          
TABCFLAG          DATA   1                                                      
TABXFLAG         DATA 1                                                         
TSADDR   DATA     0                 TEMP STACK ADDRESS                          
XEQFLAG  DATA     -1                MINUS ONE IF NOT IN EXECUTION.              
PROMPT   GEN4     2,'*',EOM,0                                                   
*                                                                               
         FIN                                                                    
         PAGE                                                                   
         DO       S(1,1,0)                                                      
***********************************************                                 
*  OPEN FPT'S (HAND-CODED TO AVOID PROBLEMS)  *                                 
***********************************************                                 
*                                                                               
*                                                                               
O%FPT    GEN,8,24 X'14',F:EI                                                    
         GEN,32   X'65480001'                                                   
         DATA     O%ABN             ABN                                         
         DATA     CARDIMG           BUF                                         
         DATA     2                 KEYED                                       
         DATA     4                 INOUT                                       
         DATA     2                 SAVE                                        
         DATA     3                 MAX KEY LENGTH                              
         DATA     X'01000808'                                                   
O%NAME   RES      8                                                             
         DATA     X'02000202'                                                   
O%ACCT   RES      2                 ACCOUNT                                     
         DATA     X'03010202'                                                   
O%PASS   RES      2                                                             
*                                                                               
*  OPEN FPT FOR COPY FILE                                                       
*                                                                               
O2%FPT   GEN,8,24 X'14',F:EO                                                    
         GEN,32   X'65480001'       SAME PARAMETERS AS ABOVE                    
         DATA     O2%ABN,CARDIMG,2,4,2,3                                        
         DATA     X'01000808'                                                   
O2%NAME  RES      8                                                             
         DATA     X'02000202'                                                   
O2%ACCT  RES      2                                                             
         DATA     X'03010202'                                                   
O2%PASS  RES      2                                                             
RELATIVE DATA,1      6,32,0,0       THIS IS AN FPT FOR                          
         DATA        1**29          SETTING RELATIVE TABS.                      
         DATA,2       X'80',X'80'                                               
         FIN                                                                    
         PAGE                                                                   
*************************************                                           
*  DCB'S FOR UPDATE AND COPY FILES  *                                           
*************************************                                           
*                                                                               
*                                                                               
         DO       MODE=1                                                        
F:EI     CSECT    0                                                             
F:EI     M:DCB    (FILE),;                                                      
                  (KEYED),;                                                     
                  (INOUT),;                                                     
                  (PASS,'SECRET'),;                                             
                  (SAVE),;                                                      
                  (KEYM,3),;                                                    
                  (BUF,CARDIMG)                                                 
         ELSE                                                                   
F:EI     EQU      M:EI                                                          
         FIN                                                                    
*                                                                               
*  COPY FILE DCB                                                                
*                                                                               
         DO       MODE=1                                                        
F:EO     CSECT    0                                                             
F:EO     M:DCB    (FILE),;                                                      
                  (KEYED),;                                                     
                  (OUT),;                                                       
                  (SAVE),;                                                      
                  (KEYM,3),;                                                    
                  (BUF,CARDIMG),;                                               
                  (PASS,'SECRET')                                               
         ELSE                                                                   
F:EO     EQU      M:EO                                                          
         FIN                                                                    
         DO       S(0,0,1)                                                      
         TITLE    '***** CP-R INDEXED FILE MAINTENANCE *****'                   
         DEF      DGRANIN                                                       
         DEF      XGRANIN                                                       
         DEF      DGRANALT                                                      
         DEF      XGRANALT                                                      
         DEF      GPRBFLAG                                                      
         DEF      NOBRKFLG                                                      
         DEF      DUPREC                                                        
         DEF      ORDREC                                                        
         DEF      ISNRREQ                                                       
         DEF      DGRANNR                                                       
         DEF      XGRANNR                                                       
         DEF      NAVGRAN                                                       
         DEF      LDGRAN                                                        
         DEF      LWRGRAN                                                       
         DEF      NAVDBYTE                                                      
         DEF      RSKEY                                                         
         DEF      ENTRYKEY                                                      
         DEF      ENTRYGNR                                                      
         DEF      ENTRYBD                                                       
         DEF      ENTRYDBL                                                      
         DEF      ENTRYFLG                                                      
         DEF      GETXGRAN                                                      
         DEF      GETXNR                                                        
         DEF      GETXTOT                                                       
         DEF      GETXKEY                                                       
         DEF      GETXGNR                                                       
         DEF      GETXBD                                                        
         DEF      GETXDBL                                                       
         DEF      GETXCSZ                                                       
         DEF      GETXOXG                                                       
         DEF      GETXSXG                                                       
         DEF      GETXNEM                                                       
         DEF      XBUFF                                                         
         DEF      DBUFF                                                         
         PAGE                                                                   
*                                                                               
*        FLAGS FOR CP-R INDEXED FILE MANAGEMENT                                 
*                                                                               
*                                                                               
DGRANIN  DATA     0                 DATA GRANULE HAS BEEN                       
*        READ IN (1) OR NOT (0)                                                 
XGRANIN  DATA     0                 INDEX GRANULE HAS BEEN                      
*        READ IN (1) OR NOT (0)                                                 
DGRANALT DATA     0                 DATA GRANULE HAS BEEN                       
*        ALTERED (1) OR NOT (0)                                                 
XGRANALT DATA     0                 INDEX GRANULE HAS BEEN                      
*        ALTERED (1) OR NOT (0)                                                 
GPRBFLAG DATA     0                 PUTRBYTE (1) OR GETRBYTE (0)                
*                                   HAS BEEN CALLED LAST                        
NOBRKFLG DATA     0                 BREAK IS PERMITTED (0), IS NOT              
*        PERMITTED (1), OR HAS OCCURRED WHILE NOT PERMITTED (2)                 
DUPREC   DATA     0                 DURING SCRATCH FILE BUILD,                  
*        DUPLICATE RECORD NUMBERS WERE (1) OR WERE NOT (0) FOUND                
ORDREC   DATA     0                 DURING SCRATCH FILE BUILD,                  
*        OUT-OF-ORDER RECORDS WERE (1) OR WERE NOT (0) FOUND                    
ISNRREQ  DATA     0                 DURING SCRATCH FILE BUILD,                  
*        SEQUENCE NUMBERS IN INPUT RECORDS ARE REQUIRED (1)                     
*        OR NOT (0)                                                             
         PAGE                                                                   
*                                                                               
*        WORKING VALUES FOR CP-R INDEXED FILE MANAGEMENT                        
*                                                                               
*                                                                               
DGRANNR  DATA     0                 CURRENT DATA GRANULE IN BUFFER              
XGRANNR  DATA     0                 CURRENT INDEX GRANULE IN BUFFER             
NAVGRAN  DATA     0                 NEXT AVAILABLE GRANULE OF FILE              
LDGRAN   DATA     0                 LAST GRAN ALLOTTED FOR DATA                 
LWRGRAN  DATA     0                 LAST GRANULE WRITTEN INTO FILE              
NAVDBYTE DATA     0                 NEXT AVAILABLE BYTE IN                      
RSKEY    DATA     0                 KEY FOR READ SEQUENTIAL                     
*                                   LAST DATA GRAN                              
*        UNPACKED DATA FROM AN INDEX ENTRY                                      
ENTRYKEY DATA     0                 KEY VALUE                                   
ENTRYGNR DATA     0                 ATTACHED DATA GRAN NR                       
ENTRYBD  DATA     0                 ATTACHED DATA BYTE DISP                     
ENTRYDBL DATA     0                 ATTACHED DATA BYTE LENGTH                   
ENTRYFLG DATA     0                 FLAGS                                       
*        DESCRIPTION OF ENTRIES FOUND BY GETX                                   
GETXGRAN DATA     0                 GRAN NR FOR ENTRIES                         
GETXNR   DATA     0                 ENTRY NR OF FIRST ENTRY                     
GETXTOT  DATA     0                 TOTAL NR OF ENTRIES OBTAINED                
*        UNPACKED DATA FOR INDEX ENTRY TO BE BUILT BY GETX                      
GETXKEY  DATA     0                 KEY FOR GETX                                
GETXGNR  DATA     0                 DATA GRAN NR                                
GETXBD   DATA     0                 BYTE DISPLACEMENT IN GRAN                   
GETXDBL  DATA     0                 DATA BYTE LENGTH TO ATTACH                  
*                                   TO NEXT INDEX GRANULE                       
*        OTHER VALUES USED IN GETX                                              
GETXCSZ  DATA     0                 COMPRESSED SIZE OF REC FOR GETX             
GETXOXG  DATA     0                 GETX ORIGINAL INDEX GRANULE                 
GETXSXG  DATA     0                 SUCCESSOR TO ORIG INDEX GRAN                
GETXNEM  DATA     0                 GETX NR OF ENTRIES TO MOVE                  
BEGINED  B        BEGINEDITOR                                                   
         PAGE                                                                   
*                                                                               
*        BUFFERS FOR CP-R INDEXED FILE MANAGEMENT                               
*                                                                               
         PSECT    0                                                             
XBUFF    RES      256               INDEX GRANULE BUFFER                        
*                                                                               
DBUFF    RES      256               DATA GRANULE BUFFER                         
*                                                                               
         FIN                                                                    
*                                                                               
         END      S(BEGINEDITOR,BEGINEDITOR,BEGINED)                            
