Using the SPSTATUS field

Open ClientConnect uses the SPAREA SPSTATUS field to communicate the success or failure of processing in the remote database. The CSA must check the status of database processing, as this code fragment illustrates:

IF SPSTATUS NOT = (spaces)
     MOVE 'N'            TO WS-RESCHECK-DONE-SW
     ADD 1               TO SPSTATUS-CNT
     MOVE SPSTATUS-CNT   TO WS-RESCHECK-NUMBER
     MOVE SPSTATUS       TO WS-SPSTATUS-OUT
     MOVE SPCODE         TO WS-SPCODE-OUT
     MOVE SPIND          TO WS-SPIND-OUT
     EXEC CICS
         WRITEQ TS QUEUE('CSEXQUE')
             FROM(WS-RESCHECK-MSG) NOSUSPEND
             RESP(CICSRC)
     END-EXEC

In this example, the CSA places relevant error information in a temporary storage queue for later examination.