Using API / Subprogram N-CHKCOO

#### Search Results

Search

# Using API / Subprogram N-CHKCOO

The subprogram is delivered in library SYSDIC. It checks the status of the coordinator file.

This section covers the following topics:

- Calling the Subprogram

## Calling the Subprogram

Copy N-CHKCOO to your application libray. The following example shows

The example program below checks the status of the coordinator file assigned to the specified FDIC file. If the coordinator file can be used for load, the example program executes some direct commands. During the execution of the direct commands, no additional input is necessary. If the coordinator file cannot be used for load, the returned messages are printed.

The example shows that it is possible to initiate a load process from an application library and to return control to the application.

       0010 /* Example program for online loading from application
       0020 /*
       0030 DEFINE DATA LOCAL
       0040    01  #DBNR   (N5) /* i - DBNr of FDIC (if not specified current FDIC
       0050                     /*     is used)
       0060    01  #FNR    (N5) /* i - FNr of FDIC (if not specified current FDIC
       0070                     /*     is used)
       0080    01  #PASS   (A8) /* i - password of FDIC (optional)
       0090    01  #CIPH   (N8) /* i - cipher code of FDIC (optional)
       0100    01  #USER   (A8) /* o - user who is active on coordinator FDIC
       0110    01  #TID    (A8) /* o - terminal ID of active user
       0120    01  #L-DB   (N5) /* o - DBNr of FDIC coordinator is used for
       0130    01  #L-FN   (N5) /* o - FNr of FDIC coordinator is used for
       0140    01  #MSG    (A80)/* o - information about error
       0150    01  #MSG2   (A80)/* o - information about error
       0160    01  #RESP   (I4) /* o - 0 coordinator file is empty
       0170                     /*  ne 0 coordinator/FDIC file is used/invalid.
       0180 END-DEFINE
       0190 *
       0200 CALLNAT 'N-CHKCOO' #DBNR #FNR #PASS #CIPH #USER #TID #L-DB #L-FN
       0210                    #MSG #MSG2 #RESP
       0220 IF #RESP NE 0
       0230    PRINT '=' #RESP
       0240      /   '=' #USER
       0250      /   '=' #TID
       0260      /   '=' #L-DB
       0270      /   '=' #L-FN
       0280      /   '=' #MSG
       0290      /   '=' #MSG2
       0300 ELSE
       0310    RELEASE STACK
       0320    STACK TOP DATA 'END'
       0330    STACK TOP DATA 'LOAD OBJ ALL REPLACE=Y'
       0340    STACK TOP DATA
       0350     'SET MEDIUM-TYPE=D MEDIUM-ID=EMPLOY MEDIUM-DBNR=180 MEDIUM-FNR=200'
       0360    STACK TOP DATA 'SET 188 32 '
       0370    STACK TOP COMMAND 'CMD'
       0380    STACK TOP COMMAND 'LOGON SYSDICBE'
       0390    STACK TOP COMMAND 'SETUP *,I'
       0400 END-IF
       0410 END