IBM Mainframe Forum

LT-OCCD-TABLE            PIC X(29)   VALUE               
                             'OCCD-CALC-ARR'.           
                                                         
LT-DATE-CONV-ERR         PIC X(128)   VALUE             
'ERROR CALLING DATE CONVERSION MODULE CUMDT001'.         
LT-FETCH-ERROR           PIC X(128)  VALUE               
         'FETCH ON CR_DR_ACTIVITY FAILED'.               
LT-DA-SELECT-ERROR       PIC X(128)  VALUE               
         'SQL SELECT FAILED ON DB_ACTIVITY TABLE'.       
LT-BA-SELECT-ERROR       PIC X(128)  VALUE               
         'SQL SELECT FAILED ON BILL_ACCT TABLE  '.       
LT-CH-SELECT-ERROR       PIC X(128)  VALUE               
         'SQL SELECT FAILED ON COLL_HIST TABLE  '.       
LT-DC-SELECT-ERROR       PIC X(128)  VALUE               
         'SQL SELECT FAILED ON DT_CONST TABLE   '.       
LT-DYC-SELECT-ERROR      PIC X(128)  VALUE               
         'SQL SELECT FAILED ON DT_YEARLY_CONST TABLE'.   
LT-TABLE-SIZE-ERROR      PIC X(128)  VALUE               
         'A SUBSCRIPT EXCEEDED THE SIZE OF THE ARRAY'.   
LT-INVALID-TRANS         PIC X(128)  VALUE               
'AN INVALID TRANSACTION TYPE WAS FOUND ON THE OCTH REC'.
LT-VSAM-ERROR            PIC X(128)  VALUE               
'A VSAM ERROR OCCURED ON FILE UCCMST. CHECK VSAM STATUS'.
                                                         
LT-INTERNAL              PIC X(10)  VALUE 'INTERNAL'.   
                                                         
LT-OPEN                  PIC X(10)  VALUE 'OPEN'.       
LT-READ                  PIC X(10)  VALUE 'READ'.       

*    Para A9620     ---------------------------------------------       
*    THIS MOVES THE FIELDS FROM WS-PERIOD-OF-DEBT ARRAY INTO 
*    THE OCCD ARRAY USING WS-PERIOD-SFX-2(WS-PERIOD-SUB) AS   
*    SUBSCRIPT.                                               
*                                                             
**************************************************************
*                                                             
                                                             
     MOVE WS-PERIOD-SFX-2(WS-PERIOD-SUB) TO WS-OCCD-SUB.     
                                                             
     IF WS-OCCD-SUB > WS-OCCD-TABLE-SIZE                     
        MOVE  'A9620'         TO ERR-KY-PARAGRPH-NO           
        MOVE  LT-OCCD-TABLE   TO ERR-NM-FILE                 
        PERFORM A9740-TABLE-SIZE-ERROR.                       
                                                             
     MOVE WS-PERIOD-BILLACCT(WS-PERIOD-SUB) TO               
          OCCD-BILLACCT-NUMBER(WS-OCCD-SUB).                 
                                                             
     MOVE WS-PERIOD-SFX-1(WS-PERIOD-SUB) TO                   
          OCCD-BILLACCT-SUFFIX-1(WS-OCCD-SUB).               
                                                             
     MOVE WS-PERIOD-SFX-2(WS-PERIOD-SUB) TO                   
          OCCD-BILLACCT-SUFFIX-2(WS-OCCD-SUB).               
                                                             
     MOVE WS-PERIOD-START-DATE(WS-PERIOD-SUB) TO             
          OCCD-PERIOD-START-DATE(WS-OCCD-SUB).               
                                                             
     MOVE WS-PERIOD-END-DATE(WS-PERIOD-SUB) TO               
                                                               
      MOVE WS-PERIOD-TRAN-FLAG(WS-PERIOD-SUB) TO               
           OCCD-PERIOD-TRAN-FLAG(WS-OCCD-SUB).                 
                                                               
      ADD 1 TO WS-PERIOD-SUB.                                   
      EJECT                                                     
  A9700-NON-FATAL-ERROR.       

    EJECT                                                       
 A9740-TABLE-SIZE-ERROR.                                         
*****************************************************************
*                                                               *
*                A 9 7 4 0  -  TABLE SIZE ERROR                 *
*              ----------------------------------               *
*    THIS DEALS WITH SUBSCRIPTS OUTSIDE THE RANGE OF THE ARRAY  *
*                                                               *
*****************************************************************
                                                                 
     MOVE LT-PGM-ID              TO ERR-KY-PGM-ID.               
     MOVE LT-INTERNAL            TO ERR-AR-TYP-ACCESS.           
     MOVE LT-TABLE-SIZE-ERROR    TO ERR-TX-RMKS-128.             
     MOVE LT-SPECIAL-ERROR       TO ERR-CD-TYPE-ERR.             
                                                                 
     MOVE LT-WRITE-ERROR         TO ERR-CD-ERR-ACT.               
     CALL 'CUBCO002' USING SQLCA ERR-ERROR-RECORD.               
                                                                 
     MOVE LT-CLOSE-FILES         TO ERR-CD-ERR-ACT.               
     CALL 'CUBCO002' USING SQLCA ERR-ERROR-RECORD.               
                                                                 
     SET OCCD-TABLE-SIZE-ERROR   TO TRUE.                         
     GOBACK.                                                     
     EJECT