Communications › Standard CA Datacom/DB Call › Return Codes

Return Codes

When issuing CA Datacom CICS Services transactions with a standard CA Datacom/DB call, CA Datacom CICS Services returns one of the codes listed in the CA Datacom/DB Message Reference Guide to the CA Datacom/DB Request Area return code field.

Sample COBOL Program

The following sample program demonstrates how the request and work area are completed when using the CA Datacom/DB Request Area to issue a CA Datacom CICS Services command.

       IDENTIFICATION DIVISION.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
         ..
       01  WRK-USER-ID.
           02  WRK-UID-PGM         PIC X(8)           VALUE 'PGMNAME '.
           02  WRK-UID-FILLER      PIC X(24)          VALUE SPACES.
         ..
       01  WRK-RQ-AREA.
           02  WRK-RQ-CMD          PIC X(5)           VALUE 'DBOC '.
           02  WRK-FILLER          PIC X(8)           VALUE SPACES.
           02  WRK-RQ-RTCODE       PIC XX             VALUE SPACES.
           02  WRK-REMINDER        PIC X(241)         VALUE SPACES.
         ..
       01  WRK-WORK-AREA.
           02  WRK-CMD-LTH         PIC S9999  COMP    VALUE +0.
           02  WRK-CMD             PIC X(80)          VALUE SPACES.
        ..
       PROCEDURE DIVISION.
        ..
       START-UP SECTION.
           MOVE 'DBOC OPEN=0010' TO WRK-CMD.
           MOVE +13             TO WRK-CMD-LTH.
           CALL 'DBNTRY' USING WRK-USER-ID, WRK-RQ-AREA, WRK-WORK-AREA.
           IF WRK-RQ-RTCODE IS NOT EQUAL TO SPACES GO TO ERR-RTN.
        ..
       SHUT-DOWN SECTION.
           MOVE 'DBOC CLOSE=0010' TO WRK-CMD.
           MOVE +14              TO WRK-CMD-LTH.
           CALL 'DBNTRY' USING WRK-USER-ID, WRK-RQ-AREA, WRK-WORK-AREA.
           IF WRK-RQ-RTCODE IS NOT EQUAL TO SPACES GO TO ERR-RTN.
        ..
       ERR-RTN SECTION.
        ..
        ..