midrange.com code scratchpad
Name:
CEETSTA Example - COBOL
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
05/01/2009 03:05:05 pm
IP:
Logged
Description:
Sample code for using CEETSTA to retreive the existance of a parameter in COBOL.

The value for PM-PARM-?-FOUND will be either a 0 or depending on whether the parameter is available to the program.
Code:
  1. SPECIAL-NAMES.                                                 
  2.     LINKAGE TYPE PROCEDURE FOR "SNDMSG" USING ALL DESCRIBED    
  3.     LINKAGE TYPE PROCEDURE FOR "RMVMSG" USING ALL DESCRIBED    
  4.     LINKAGE TYPE PROCEDURE FOR "CNTTXT" USING ALL DESCRIBED    
  5.     LINKAGE TYPE PROCEDURE FOR "CRTUSRSPC" USING ALL DESCRIBED 
  6.     LINKAGE TYPE PROCEDURE FOR "RTVUSRSPCPTR"                  
  7.       USING ALL DESCRIBED                                      
  8.     LINKAGE TYPE SYS FOR "CEETSTA".    
  9. DATA DIVISION.              
  10. WORKING-STORAGE SECTION.    
  11.   01  Pm-Present.                                   
  12.        05 Pm-Parm-1-Found          PIC S9(9) BINARY. 
  13.        05 Pm-Parm-2-Found          PIC S9(9) BINARY. 
  14.        05 Pm-Parm-3-Found          PIC S9(9) BINARY. 
  15.        05 Pm-Parm-4-Found          PIC S9(9) BINARY. 
  16.        05 Pm-Parm-5-Found          PIC S9(9) BINARY. 
  17.   01  Pm-Number                       PIC S9(9) BINARY.     
  18.   01  Pm-Fb                               PIC A(12).
  19.  
  20. MAIN-LINE.                                                          
  21.    MOVE 1 TO PM-NUMBER                                              
  22.    CALL "CEETSTA" USING PM-PARM-1-FOUND, PM-NUMBER, PM-FB.          
  23.                                                              
  24.    MOVE 2 TO PM-NUMBER                                              
  25.    CALL "CEETSTA" USING PM-PARM-2-FOUND, PM-NUMBER, PM-FB.          
  26.                                                       
  27.    MOVE 3 TO PM-NUMBER                                              
  28.    CALL "CEETSTA" USING PM-PARM-3-FOUND, PM-NUMBER, PM-FB.          
  29.                                                                
  30.    MOVE 4 TO PM-NUMBER                                              
  31.    CALL "CEETSTA" USING PM-PARM-3-FOUND, PM-NUMBER, PM-FB.          
  32.                                                    
  33.    MOVE 5 TO PM-NUMBER                                              
  34.    CALL "CEETSTA" USING PM-PARM-5-FOUND, PM-NUMBER, PM-FB.          
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css