Code:
- SPECIAL-NAMES.
- LINKAGE TYPE PROCEDURE FOR "SNDMSG" USING ALL DESCRIBED
- LINKAGE TYPE PROCEDURE FOR "RMVMSG" USING ALL DESCRIBED
- LINKAGE TYPE PROCEDURE FOR "CNTTXT" USING ALL DESCRIBED
- LINKAGE TYPE PROCEDURE FOR "CRTUSRSPC" USING ALL DESCRIBED
- LINKAGE TYPE PROCEDURE FOR "RTVUSRSPCPTR"
- USING ALL DESCRIBED
- LINKAGE TYPE SYS FOR "CEETSTA".
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 Pm-Present.
- 05 Pm-Parm-1-Found PIC S9(9) BINARY.
- 05 Pm-Parm-2-Found PIC S9(9) BINARY.
- 05 Pm-Parm-3-Found PIC S9(9) BINARY.
- 05 Pm-Parm-4-Found PIC S9(9) BINARY.
- 05 Pm-Parm-5-Found PIC S9(9) BINARY.
- 01 Pm-Number PIC S9(9) BINARY.
- 01 Pm-Fb PIC A(12).
-
- MAIN-LINE.
- MOVE 1 TO PM-NUMBER
- CALL "CEETSTA" USING PM-PARM-1-FOUND, PM-NUMBER, PM-FB.
-
- MOVE 2 TO PM-NUMBER
- CALL "CEETSTA" USING PM-PARM-2-FOUND, PM-NUMBER, PM-FB.
-
- MOVE 3 TO PM-NUMBER
- CALL "CEETSTA" USING PM-PARM-3-FOUND, PM-NUMBER, PM-FB.
-
- MOVE 4 TO PM-NUMBER
- CALL "CEETSTA" USING PM-PARM-3-FOUND, PM-NUMBER, PM-FB.
-
- MOVE 5 TO PM-NUMBER
- CALL "CEETSTA" USING PM-PARM-5-FOUND, PM-NUMBER, PM-FB.
|
|