*-------- DEBUT MACRO-INSTRUCTION ---------------------------------* * * CODE ERREUR RETOURNÉ PAR L'API DECLARER ERRC££;CODE_ERREUR_API 116 DECLARER £EBPR;ERRAPI_OCTETS_I 4;0 DECLARER £EBAV;ERRAPI_OCTETS_O 4;0 DECLARER £EXID;ERRAPI_EXCPT_ID 7 DECLARER £ERSV;ERRAPI_RESERVE 1 DECLARER £EDTA;ERRAPI_DATA 100 * * NOM QUALIFIÉ D'OBJET (1) DECLARER £QO01;OBJET_QUALIFIE 20 DECLARER £QO1N;QOBJ_NOM_OBJET 10 DECLARER £QO1L;QOBJ_BIB_OBJET 10 DECLARER £QO1T;QOBJ_TYP_OBJET 10 * * NOM QUALIFIÉ D'OBJET (2) DECLARER £QO02;OBJ_QUALIFIE_2 20 DECLARER £QO2N;QOBJ_NOM_OBJ_2 10 DECLARER £QO2L;QOBJ_BIB_OBJ_2 10 DECLARER £QO2T;QOBJ_TYP_OBJ_2 10 * * NOM QUALIFIÉ DE JOB DECLARER £QJB01;QJB_QUAL_JOB 26 DECLARER £QJB02;QJB_NAME 10 DECLARER £QJB03;QJB_USER 10 DECLARER £QJB04;QJB_NUMBER 6 * * QUELQUES VARIABLES BINAIRES DECLARER £BIN1;VAR_BIN_API_01 4;0 DECLARER £BIN2;VAR_BIN_API_02 4;0 DECLARER £BIN3;VAR_BIN_API_03 4;0 DECLARER £BIN4;VAR_BIN_API_04 4;0 DECLARER £BIN5;VAR_BIN_API_05 4;0 DECLARER £BIN6;VAR_BIN_API_06 4;0 DECLARER £BIN7;VAR_BIN_API_07 4;0 DECLARER £BIN8;VAR_BIN_API_08 4;0 DECLARER £BIN9;VAR_BIN_API_09 4;0 DECLARER £BINA;VAR_BIN_API_10 4;0 * * NOM FORMAT API DECLARER £FNAME;NOM_FORMAT_API 8 * * NOMS PROGRAMMES API DECLARER £PGM1;PGM_API_01 10 DECLARER £PGM2;PGM_API_02 10 DECLARER £PGM3;PGM_API_03 10 DECLARER £PGM4;PGM_API_04 10 DECLARER £PGM5;PGM_API_05 10 * * VARIABLES POUR MANIPULATION USRSPC DECLARER £USP01;USP_ATTRIBUTE 10 DECLARER £USP02;USP_INL_VALUE 1 DECLARER £USP03;USP_PUB_AUTH 10 DECLARER £USP04;USP_TEXTE 50 DECLARER £USP05;USP_REPLACE 10 DECLARER £USP06;USP_FIRST_RTV 16 DECLARER £USP07;USP_OFFSET 4;0 DECLARER £USP08;USP_ENTRY_NBR 4;0 DECLARER £USP09;USP_ENTRY_SIZE 4;0 DECLARER £USP10;USP_ATT_TO_CHG 16 DECLARER £USP11;USP_NBR_VLR 4;0 DECLARER £USP12;USP_KEY_TO_CHG 4;0 DECLARER £USP13;USP_KEY_LENGTH 4;0 DECLARER £USP14;USP_KEY_VALUE 4 DECLARER £USP15;USP_FRCAUXSTG 1 DECLARER £USP16;USP_HEAD_OFFSET 4;0 DECLARER £USP17;USP_HEAD_SIZE 4;0 DECLARER £USP18;USP_HEAD_RTV 8 * * VARIABLES POUR ENVOI MESSAGES DECLARER £MSG01;MSG_MSG_ID 7 DECLARER £MSG02;MSG_MSGF_NAME 10 DECLARER £MSG03;MSG_MSGF_LIB 10 DECLARER £MSG04;MSG_QUAL_MSGF 20 DECLARER £MSG05;MSG_MSG_DTA 130 DECLARER £MSG06;MSG_MSG_TYPE 10 DECLARER £MSG07;MSG_MSG_QUEUE 10 DECLARER £MSG08;MSG_MSG_KEY 4 DECLARER £MSG09;MSG_ACTION 10 * * VARIABLES POUR QUSRMBRD (DESCRIPTION MEMBRE) DECLARER £MBD01;MBD_MBRD0200 244 DECLARER £MBD02;MBD_TEXTE 50 DECLARER £MBD03;MBD_NBR_CUR_RCD 4;0 DECLARER £MBD04;MBD_NBR_DLT_RCD 4;0 DECLARER £MBD05;MBD_NOM_MEMBRE 10 DECLARER £MBD06;MBD_OVR_PROCESS 1 DECLARER £MBD07;MBD_LIB 10 DECLARER £MBD08;MBD_MBR_NAME 10 DECLARER £MBD09;MBD_FILLER 1 * * VARIABLES POUR QWCRJBST (STATUT JOB) DECLARER £JST01;JST_RCV_VAR 60 * * VARIABLES POUR API HFS DECLARER £HFS01;HFS_PATH_NAME 75 DECLARER £HFS02;HFS_OPEN_INFO 6 DECLARER £HFS03;HFS_ATT_SLT_TBL 4 DECLARER £HFS04;HFS_DATA_BUFFER 45 * *--------------------------------- Variables pour RTVSYSVAL/QWCRSVAL DECLARER £SVALA;SYS_VAL_SYSVAL 10 DECLARER £SVALB;SYS_VAL_RETOUR 1048 DECLARER SVALDS;SYS_VAL_DS 1048 DECLARER £SVAL1;SYS_VAL_NOMBRE 4 DECLARER £SVAL2;SYS_VAL_OFFSET 4 DECLARER £SVAL4;SYS_VAL_NOM 10 DECLARER £SVAL5;SYS_VAL_TYPE 1 DECLARER £SVAL6;SYS_VAL_LOCK 1 DECLARER £SVAL7;SYS_VAL_LONG 4 DECLARER £SVAL8;SYS_VAL_VALEUR 1024 * * LES DATA STRUCTURES DSI CODE_ERREUR_API ERRAPI_OCTETS_I,1B ERRAPI_OCTETS_O,5B ERRAPI_EXCPT_ID,9 ERRA PI_RESERVE,16 ERRAPI_DATA,17 DSI OBJET_QUALIFIE QOBJ_NOM_OBJET,1 QOBJ_BIB_OBJET,11 DSI OBJ_QUALIFIE_2 QOBJ_NOM_OBJ_2,1 QOBJ_BIB_OBJ_2,11 DSI QJB_QUAL_JOB QJB_NAME,1 QJB_USER,11 QJB_NUMBER,21 DSI BINY££ VAR_BIN_API_01,1B VAR_BIN_API_02,5B VAR_BIN_API_03,9B VAR_BI N_API_04,13B VAR_BIN_API_05,17B VAR_BIN_API_06,21B VAR_BIN_API_07,25B VAR_BIN_AP I_08,29B VAR_BIN_API_09,33B VAR_BIN_API_10,37B DSI USP_FIRST_RTV USP_OFFSET,1B USP_ENTRY_NBR,9B USP_ENTRY_SIZE,13B DSI USP_ATT_TO_CHG USP_NBR_VLR,1B USP_KEY_TO_CHG,5B USP_KEY_LENGTH,9B USP_KEY_V ALUE,13 DSI MSG_QUAL_MSGF MSG_MSGF_NAME,1 MSG_MSGF_LIB,11 DSI MBD_MBRD0200 MBD_LIB,19 MBD_MBR_NAME,29 MBD_TEXTE,85 MBD_NBR_CUR_RCD,141B MBD_NBR_DLT_RCD,145B MBD_FILLER,244 DSI SYS_VAL_DS SYS_VAL_NOMBRE,1B SYS_VAL_OFFSET,5B SYS_VAL_NOM,9 SYS_VAL_TY PE,19 SYS_VAL_LOCK,20 SYS_VAL_LONG,21B SYS_VAL_VALEUR,25 DSI USP_HEAD_RTV USP_HEAD_OFFSET,1B USP_HEAD_SIZE,5B * * LONGUEUR CODE ERREUR API ERRAPI_OCTETS_I = 116 *-------- FIN MACRO-INSTRUCTION -----------------------------------*