| 
**************************************************************** * * * API: QDBLDBR * * FORMAT: DBRL0100 * * * **************************************************************** 01 DBRL0100-RCVVAR. 05 FILE-NAME-USED PIC X(10). 05 LIBRARY-USED PIC X(10). 05 DEPENDENT-FILE PIC X(10). 05 DEPENDENT-LIBRARY PIC X(10). 05 DEPENDENCE-TYPE PIC X(01). * D = DONNÉES * I = PARTAGE C.A * O = PARTAGE DE C.A (FICHIER PROPIETAIRE DU C.A) * V = VUE SQL 05 RESERVED PIC X(10). 05 JOIN-REFERENCE-NUMBER PIC S9(9) COMP-4. I**************************************************************** IRCVVAR DS I 1 10 FILE I 11 20 LIB |
|
I 21 30 FILDEP I 31 40 LIBDEP I 41 41 DEPTYP I 42 44 RESERV I B 45 480JREF **************************************************************** * * * API: QDBLDBR * * FORMAT: DBRL0200 * * * **************************************************************** 01 DBRL0200-RCVVAR. 05 FILE-NAME-USED PIC X(10). 05 LIBRARY-USED PIC X(10). 05 MEMBER-USED PIC X(10). 05 DEPENDENT-FILE PIC X(10). 05 DEPENDENT-LIBRARY PIC X(10). 05 DEPENDENT-MEMBER PIC X(10). 05 DEPENDENCE-TYPE PIC X(01). 05 RESERVED PIC X(10). 05 JOIN-REFERENCE-NUMBER PIC S9(9) COMP-4. 05 JOIN-FILE-NUMBER PIC S9(9) COMP-4. |
|
I**************************************************************** IRCVVAR DS I 1 10 FILE I 11 20 LIB I 21 30 MBR I 31 40 FILDEP I 41 50 LIBDEP I 51 60 MBRDEP I 61 61 DEPTYP I 62 64 RESERV I B 65 680JREF I B 69 720JFILE **************************************************************** * * * API: QDBLDBR * * FORMAT: DBRL0300 * * * **************************************************************** 01 DBRL0300-RCVVAR. 05 FILE-NAME-USED PIC X(10). 05 LIBRARY-USED PIC X(10). 05 RECORD-FORMAT PIC X(10). |
|
05 DEPENDENT-FILE PIC X(10). 05 DEPENDENT-LIBRARY PIC X(10). I**************************************************************** IRCVVAR DS I 1 10 FILE I 11 20 LIB I 21 30 FMT I 31 40 FILDEP I 41 50 LIBDEP |
