-ADD SYSLTMEM,PSWD=40EF,ARC,SEQ=/1,6,100,100/
-DESC SYS9TMEM LINKAGE FORMATS
-PGMR RYDER  JSR SYSTEMS
-LANG COB
000100*----IN WORKING STORAGE OF CALLING PROGRAM.
000200 01  SYS9TMEM-ID                 PIC X(08) VALUE 'SYS9TMEM'.
000300 01  SYS9TMEM-COMMANDS.
000400     05  SYS9TMEM-FUNCTION       PIC X(08) VALUE 'READ    '.
000500         88  SYS9TMEM-READ                 VALUE 'READ    '.
000600         88  SYS9TMEM-READX                VALUE 'READX   '.
000700     05  SYS9TMEM-STATUS         PIC X(04) VALUE '****'.
000800         88  SYS9TMEM-STATUS-OK       VALUE '****'.
000900     05  SYS9TMEM-TABLE-ID       PIC X(15) VALUE SPACES.
001000 01  SYS9TMEM-VALUES.
001100     05  SYS9TMEM-NUM-ENTRY      PIC S9(4) BINARY.
001200     05  SYS9TMEM-LENGTH-LEFT    PIC S9(4) BINARY.
001300     05  SYS9TMEM-LENGTH-RIGHT   PIC S9(4) BINARY.
001400 01  SYS9TMEM-OBJECT.
001500     05  SYS9TMEM-OPEN-MESSAGE   PIC X(24).
001600     05  SYS9TMEM-DSN-44         PIC X(44).
001700     05  SYS9TMEM-MEMBER         PIC X(08).
001800 01  SYS9TMEM-POINTER            USAGE IS POINTER.
001900*----IN LINKAGE OF CALLING PROGRAM.
002000 01  SYS9TMEM-TABLE.
002100     05  SYS9TMEM-ENTRY          OCCURS 1 TO 10000 TIMES
002200                                 DEPENDING ON SYS9TMEM-NUM-ENTRY
002300                                 INDEXED BY SYS9TMEM-X.
002400         10  SYS9TMEM-LEFT.
002500             15  SYS9TMEM-LT-CHAR  PIC X(01) OCCURS 1 TO 20
002600                 DEPENDING ON SYS9TMEM-LENGTH-LEFT.
002700         10  SYS9TMEM-RIGHT.
002800             15  SYS9TMEM-RT-CHAR  PIC X(01) OCCURS 1 TO 250
002900                 DEPENDING ON SYS9TMEM-LENGTH-RIGHT.
003000*----IN PROCEDURE DIVISION OF CALLING PROGRAM.
003100     CALL SYS9TMEM-ID USING SYS9TMEM-COMMANDS SYS9TMEM-VALUES
003200                            SYS9TMEM-OBJECT   SYS9TMEM-POINTER
-END
