DC Programming Techniques › Retrieving Task-Related Information

Retrieving Task-Related Information

DC provides task- and system-related information that you can use in your program. Although you can use this information for any number of purposes, it is most often used for the following:

• Program flexibility-You can perform various chapters of code based on the calling task code.
• Operator information-You can display the logical terminal ID, the physical terminal ID, and the current DC system number on the terminal screen. The program excerpt below shows this technique.
• Journaling information-You can write information such as the user ID, logical terminal ID, the physical terminal ID, and the current DC system number to the journal file. For more information, see Writing to the Journal File.
• System security-You can restrict program access based on site-specific factors. For example, you can permit only certain tasks or certain terminals to access a specified program.

Using the ACCEPT Statement

To retrieve task- and system-related information, issue an ACCEPT statement that indicates the information needed and the variable-storage location to which it is to be returned.

Example of Retrieving Task Information

The program excerpt below uses ACCEPT statements to retrieve the task code, the logical terminal ID, the physical terminal ID, and the user ID.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01  DEPTDISM                   PIC X(8)  VALUE 'DEPTDISM'.
 01  SOLICIT-REC.

     05 SOLICIT-DEPT-ID         PIC X(4).
     05 TASK-INFO.
       07 TC                    PIC X(8).
          88 GETOUT             VALUE 'DEPTBYE'.
       07 LTERMINAL             PIC X(8).
       07 PTERMINAL             PIC X(8).
       07 CURR-USER             PIC X(32).
 PROCEDURE DIVISION.
*** RETRIEVE THE TASK CODE ***
     ACCEPT TASK CODE INTO TC.
*** IF TASK CODE = DEPTBYE, RETURN TO CA IDMS/DC ***
     IF GETOUT DC RETURN.
     BIND MAP SOLICIT.
     BIND MAP SOLICIT RECORD SOLICIT-REC.
*** RETRIEVE LTERM, PTERM, AMD USER ID ***
     ACCEPT LTERM ID INTO LTERMINAL.
     ACCEPT PTERM ID INTO PTERMINAL.
     ACCEPT USER ID  INTO CURR-USER.
     MOVE ZERO TO SOLICIT-DEPT-ID.
     MAP OUT USING SOLICIT
        NEWPAGE
        MESSAGE IS INITIAL-MESSAGE LENGTH 80.
*
     DC RETURN
        NEXT TASK CODE DEPTDISM.

The mapout performed by the program excerpt results in this screen display:

    LTERM:  LT12014                                      PTERM:  PV12014
                                                          USER:  RKN

                *** DEPARTMENT SOLICITOR SCREEN ***


                    DEPARTMENT ID:  0000














ENTER AN DEPT ID AND PRESS ENTER ** CLEAR TO EXIT