-ADD SYSLTBLR,PSWD=40EF,ARC,SEQ=/1,6,100,100/
-DESC COBOL-LE SYSLTBL W/ REPLACE
-PGMR RYDER  JSR SYSTEMS
-LANG COB
000000 01  :TBL:LINKAGE-AREA.                                           SYSLTBLR
000100     05  :TBL:OPERATION          PICTURE X(8)    VALUE  'SEARCH'. 01/04/99
000200         88  :TBL:OPERATION-IS-BINARY-SEARCH     VALUE  'SEARCH'. SYSLTBLR
000300         88  :TBL:OPERATION-IS-SERIAL-SEARCH     VALUE IS 'SCAN'. SYSLTBLR
000400         88  :TBL:OPERATION-IS-READ-NEXT         VALUE IS 'READ'. SYSLTBLR
000500         88  :TBL:OPERATION-IS-CLOSE-TABLE       VALUE IS 'CLOSE'.SYSLTBLR
000600     05  :TBL:PROGRAM-ID         PICTURE X(8)    VALUE IS SPACES. SYSLTBLR
000700     05  :TBL:STATUS             PICTURE X(4)    VALUE IS SPACES. SYSLTBLR
000800         88  :TBL:SUCCESSFUL-COMPLETION          VALUE IS '****'. SYSLTBLR
000810         88  :TBL:RECORD-NOT-FOUND               VALUE IS 'TRNF'. SYSLTBLR
000900     05  :TBL:SYSTABLE           PICTURE X(8)    VALUE 'SYSTABLE'.SYSLTBLR
001000     05  :TBL:TABLE-ID           PICTURE X(15)   VALUE IS SPACES. SYSLTBLR
001100     05  :TBL:DIRECTION          PICTURE X       VALUE IS SPACE.  SYSLTBLR
001200         88  :TBL:DIRECTION-IS-LEFT-TO-RIGHT     VALUE IS SPACE   SYSLTBLR
001300                                                          'L'.    SYSLTBLR
001400         88  :TBL:DIRECTION-IS-RIGHT-TO-LEFT     VALUE IS 'R'.    SYSLTBLR
001500     05  :TBL:REFERENCE          PICTURE X(5)    VALUE IS SPACES. SYSLTBLR
-END
