****************************************************************** * DCLGEN TABLE(EAGD.HISAVI) * * LIBRARY(BCEE.DEV.COPYLIB(DCHISAVI)) * * ACTION(REPLACE) * * LANGUAGE(COBOL) * * QUOTE * * LABEL(YES) * * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * ****************************************************************** EXEC SQL DECLARE HISAVI TABLE ( NUMCPTANCITA CHAR(26) NOT NULL, * NUMERO DE COMPTE IBAN * DATENV DATE NOT NULL, * DATE ENVOI (DATE SUR ANNEXE) * CODORITRN CHAR(2) NOT NULL, * CODE ORIGINE TRANSACTION * CODTRN CHAR(16) NOT NULL, * CODE TRANSACTION * NUMSEQFLXFNC DECIMAL(7, 0) NOT NULL, * NUMERO SEQUENTIEL MOUVEMENT * LIBFRM CHAR(8) NOT NULL, * NOM DU FORMULAIRE SILRODE * TYPENR CHAR(1) NOT NULL, * TYPE DE L'ENREGISTREMENT * NUMSEQDET DECIMAL(3, 0) NOT NULL, * NUMERO SEQUENTIEL DETAIL * TYPCPT CHAR(2) NOT NULL, * TYPE DE COMPTE * CODPAYITA CHAR(2) NOT NULL, * CODE PAYS IBAN * VALCHKITA CHAR(2) NOT NULL, * CHECKING IBAN * CODBANITA CHAR(3) NOT NULL, * CODE BANQUE IBAN * CODPRDITA CHAR(1) NOT NULL, * TYPE DE COMPTE IBAN * LIBNOMDES CHAR(35) NOT NULL, * DONNEES DESTINATAIRE * LIBSUPDES CHAR(35) NOT NULL, * INDICATEUR SI AVIS BANQUE OU * LIBRUEDES CHAR(35) NOT NULL, * TYPE DE L'AVIS * LIBVILDES CHAR(35) NOT NULL, * NUMERO DE COMPTE CONTRE-PARTI * FLGAVIBAN CHAR(1) NOT NULL, * CODE BANQUE BENEFICIAIRE * TYPAVI CHAR(1) NOT NULL, * NUMERO DE COMPTE BENEFICIAIRE * NUMCPTCTP CHAR(15) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * CODBANBEN CHAR(4) NOT NULL, * CODE BANQUE BENEFICIAIRE * NUMCPTBEN CHAR(25) NOT NULL, * NUMERO DE COMPTE BENEFICIAIRE * LIBNOMCLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBSUPCLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBRUECLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBLOCCLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBNOMBANCTP CHAR(35) NOT NULL, * DESIGN. BANQUE CONTRE-PARTIE * LIBLOCBANCTP CHAR(35) NOT NULL, * DESIGN. BANQUE CONTRE-PARTIE * LIBLIGCOA001 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA002 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA003 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA004 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA005 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA006 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA007 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGFAC001 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC002 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC003 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC004 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC005 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC006 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC007 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC008 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC009 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC010 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC011 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC012 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC013 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC014 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC015 CHAR(60) NOT NULL, * LIGNES FACTURE * CODLAN CHAR(1) NOT NULL, * CODE LANGUE * CODAGE CHAR(3) NOT NULL, * AGENCE DETENTRICE DU COMPTE * CODDEV CHAR(3) NOT NULL, * CODE DEVISE DU COMPTE * TYPENV CHAR(1) NOT NULL, * TYPE ENVOI DU DOCUMENT O / C * MNTFLXFNC DECIMAL(17, 2) NOT NULL, * MONTANT FLUX FINANCIER ASSOC. * FLGADDDIT CHAR(1) NOT NULL, INSMAJ TIMESTAMP NOT NULL, NUMCPTBENITA CHAR(34) NOT NULL, NUMCPTCTPITA CHAR(34) NOT NULL, CODMVT_POOL CHAR(4) NOT NULL, CODPRG CHAR(8) NOT NULL, FLGCHQ CHAR(1) NOT NULL, * AVIS CONCERNANT 1 CHèQUE (O-N) * FLGLIBARR CHAR(1) NOT NULL * TEXTE SPéCIAL ARRETé (O-N) * ) END-EXEC. ****************************************************************** EXEC SQL DECLARE EAGD.HISAVI TABLE ( NUMCPTANCITA CHAR(26) NOT NULL, * NUMERO DE COMPTE IBAN * DATENV DATE NOT NULL, * DATE ENVOI (DATE SUR ANNEXE) * CODORITRN CHAR(2) NOT NULL, * CODE ORIGINE TRANSACTION * CODTRN CHAR(16) NOT NULL, * CODE TRANSACTION * NUMSEQFLXFNC DECIMAL(7, 0) NOT NULL, * NUMERO SEQUENTIEL MOUVEMENT * LIBFRM CHAR(8) NOT NULL, * NOM DU FORMULAIRE SILRODE * TYPENR CHAR(1) NOT NULL, * TYPE DE L'ENREGISTREMENT * NUMSEQDET DECIMAL(3, 0) NOT NULL, * NUMERO SEQUENTIEL DETAIL * TYPCPT CHAR(2) NOT NULL, * TYPE DE COMPTE * CODPAYITA CHAR(2) NOT NULL, * CODE PAYS IBAN * VALCHKITA CHAR(2) NOT NULL, * CHECKING IBAN * CODBANITA CHAR(3) NOT NULL, * CODE BANQUE IBAN * CODPRDITA CHAR(1) NOT NULL, * TYPE DE COMPTE IBAN * LIBNOMDES CHAR(35) NOT NULL, * DONNEES DESTINATAIRE * LIBSUPDES CHAR(35) NOT NULL, * INDICATEUR SI AVIS BANQUE OU * LIBRUEDES CHAR(35) NOT NULL, * TYPE DE L'AVIS * LIBVILDES CHAR(35) NOT NULL, * NUMERO DE COMPTE CONTRE-PARTI * FLGAVIBAN CHAR(1) NOT NULL, * CODE BANQUE BENEFICIAIRE * TYPAVI CHAR(1) NOT NULL, * NUMERO DE COMPTE BENEFICIAIRE * NUMCPTCTP CHAR(15) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * CODBANBEN CHAR(4) NOT NULL, * CODE BANQUE BENEFICIAIRE * NUMCPTBEN CHAR(25) NOT NULL, * NUMERO DE COMPTE BENEFICIAIRE * LIBNOMCLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBSUPCLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBRUECLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBLOCCLICTP CHAR(35) NOT NULL, * DONNEES CLIENT CONTRE-PARTIE * LIBNOMBANCTP CHAR(35) NOT NULL, * DESIGN. BANQUE CONTRE-PARTIE * LIBLOCBANCTP CHAR(35) NOT NULL, * DESIGN. BANQUE CONTRE-PARTIE * LIBLIGCOA001 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA002 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA003 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA004 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA005 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA006 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGCOA007 CHAR(35) NOT NULL, * LIGNES COMMUNICATION * LIBLIGFAC001 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC002 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC003 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC004 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC005 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC006 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC007 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC008 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC009 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC010 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC011 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC012 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC013 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC014 CHAR(60) NOT NULL, * LIGNES FACTURE * LIBLIGFAC015 CHAR(60) NOT NULL, * LIGNES FACTURE * CODLAN CHAR(1) NOT NULL, * CODE LANGUE * CODAGE CHAR(3) NOT NULL, * AGENCE DETENTRICE DU COMPTE * CODDEV CHAR(3) NOT NULL, * CODE DEVISE DU COMPTE * TYPENV CHAR(1) NOT NULL, * TYPE ENVOI DU DOCUMENT O / C * MNTFLXFNC DECIMAL(17, 2) NOT NULL, * MONTANT FLUX FINANCIER ASSOC. * FLGADDDIT CHAR(1) NOT NULL, INSMAJ TIMESTAMP NOT NULL, NUMCPTBENITA CHAR(34) NOT NULL, NUMCPTCTPITA CHAR(34) NOT NULL, CODMVT_POOL CHAR(4) NOT NULL, CODPRG CHAR(8) NOT NULL, FLGCHQ CHAR(1) NOT NULL, * AVIS CONCERNANT 1 CHèQUE (O-N) * FLGLIBARR CHAR(1) NOT NULL * TEXTE SPéCIAL ARRETé (O-N) * ) END-EXEC. ****************************************************************** * COBOL DECLARATION FOR TABLE EAGD.HISAVI * ****************************************************************** 01 DCLHISAVI. * ************************************************************* * NUMERO DE COMPTE IBAN 10 NUMCPTANCITA PIC X(26). * ************************************************************* * DATE ENVOI (DATE SUR ANNEXE) 10 DATENV PIC X(10). * ************************************************************* * CODE ORIGINE TRANSACTION 10 CODORITRN PIC X(2). * ************************************************************* * CODE TRANSACTION 10 CODTRN PIC X(16). * ************************************************************* * NUMERO SEQUENTIEL MOUVEMENT 10 NUMSEQFLXFNC PIC S9(7)V USAGE COMP-3. * ************************************************************* * NOM DU FORMULAIRE SILRODE 10 LIBFRM PIC X(8). * ************************************************************* * TYPE DE L'ENREGISTREMENT 10 TYPENR PIC X(1). * ************************************************************* * NUMERO SEQUENTIEL DETAIL 10 NUMSEQDET PIC S9(3)V USAGE COMP-3. * ************************************************************* * TYPE DE COMPTE 10 TYPCPT PIC X(2). * ************************************************************* * CODE PAYS IBAN 10 CODPAYITA PIC X(2). * ************************************************************* * CHECKING IBAN 10 VALCHKITA PIC X(2). * ************************************************************* * CODE BANQUE IBAN 10 CODBANITA PIC X(3). * ************************************************************* * TYPE DE COMPTE IBAN 10 CODPRDITA PIC X(1). * ************************************************************* * DONNEES DESTINATAIRE 10 LIBNOMDES PIC X(35). * ************************************************************* * INDICATEUR SI AVIS BANQUE OU 10 LIBSUPDES PIC X(35). * ************************************************************* * TYPE DE L'AVIS 10 LIBRUEDES PIC X(35). * ************************************************************* * NUMERO DE COMPTE CONTRE-PARTI 10 LIBVILDES PIC X(35). * ************************************************************* * CODE BANQUE BENEFICIAIRE 10 FLGAVIBAN PIC X(1). * ************************************************************* * NUMERO DE COMPTE BENEFICIAIRE 10 TYPAVI PIC X(1). * ************************************************************* * DONNEES CLIENT CONTRE-PARTIE 10 NUMCPTCTP PIC X(15). * ************************************************************* * CODE BANQUE BENEFICIAIRE 10 CODBANBEN PIC X(4). * ************************************************************* * NUMERO DE COMPTE BENEFICIAIRE 10 NUMCPTBEN PIC X(25). * ************************************************************* * DONNEES CLIENT CONTRE-PARTIE 10 LIBNOMCLICTP PIC X(35). * ************************************************************* * DONNEES CLIENT CONTRE-PARTIE 10 LIBSUPCLICTP PIC X(35). * ************************************************************* * DONNEES CLIENT CONTRE-PARTIE 10 LIBRUECLICTP PIC X(35). * ************************************************************* * DONNEES CLIENT CONTRE-PARTIE 10 LIBLOCCLICTP PIC X(35). * ************************************************************* * DESIGN. BANQUE CONTRE-PARTIE 10 LIBNOMBANCTP PIC X(35). * ************************************************************* * DESIGN. BANQUE CONTRE-PARTIE 10 LIBLOCBANCTP PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA001 PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA002 PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA003 PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA004 PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA005 PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA006 PIC X(35). * ************************************************************* * LIGNES COMMUNICATION 10 LIBLIGCOA007 PIC X(35). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC001 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC002 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC003 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC004 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC005 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC006 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC007 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC008 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC009 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC010 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC011 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC012 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC013 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC014 PIC X(60). * ************************************************************* * LIGNES FACTURE 10 LIBLIGFAC015 PIC X(60). * ************************************************************* * CODE LANGUE 10 CODLAN PIC X(1). * ************************************************************* * AGENCE DETENTRICE DU COMPTE 10 CODAGE PIC X(3). * ************************************************************* * CODE DEVISE DU COMPTE 10 CODDEV PIC X(3). * ************************************************************* * TYPE ENVOI DU DOCUMENT O / C 10 TYPENV PIC X(1). * ************************************************************* * MONTANT FLUX FINANCIER ASSOC. 10 MNTFLXFNC PIC S9(15)V9(2) USAGE COMP-3. * ************************************************************* 10 FLGADDDIT PIC X(1). * ************************************************************* 10 INSMAJ PIC X(26). * ************************************************************* 10 NUMCPTBENITA PIC X(34). * ************************************************************* 10 NUMCPTCTPITA PIC X(34). * ************************************************************* 10 CODMVT-POOL PIC X(4). * ************************************************************* 10 CODPRG PIC X(8). * ************************************************************* * AVIS CONCERNANT 1 CHèQUE (O-N) 10 FLGCHQ PIC X(1). * ************************************************************* * TEXTE SPéCIAL ARRETé (O-N) 10 FLGLIBARR PIC X(1). ****************************************************************** * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 63 * ******************************************************************