Langage COBOL
Exemple 1 - Table courte – Poste trouvé
Source :
*** PARAMETRES ENTREE / INPUT PARAMETERS
MOVE ' ' TO LXTYPTAB.
MOVE 'TABLES'TO LXNOMTAB.
MOVE '03' TO LXARGUMENT.
MOVE ZERO TO LXDTARG.
DISPLAY ' '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - ENTRY FOUND - START ***'.
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'.
DISPLAY ' - TABLE : <' LXNOMTAB '>'.
DISPLAY ' - ARGUMENT : <' LXARGUMENT '>'.
DISPLAY ' - ARG DATE : <' LXDTARG '>'.
*** CALL RDJTAB MODULE / APPEL MODULE RDJTAB
CALL 'RDJTAB' USING REC-LXRDJTAB.
*** OUTPUT PARAMETERS / PARAMETRES SORTIE
DISPLAY ' - CODE RETOUR : <' LXCDRETOUR '>'.
IF TAB-ENTRYFOUND
DISPLAY '--> USER ENTRY TABLE FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ACCESS CODE : <' LXCDACC '>'
DISPLAY ' - VALUE : <' LXTABVAL(1:LXLGVAL-N) '>'
DISPLAY ' - ARG LENGTH : <' LXLGARG '>'
DISPLAY ' - VAL LENGTH : <' LXLGVAL '>'
DISPLAY ' - ARG CLASS : <' LXCLARG '>'
DISPLAY ' - VAL CLASS : <' LXCLVAL '>'
DISPLAY ' - FLAG VALDEF : <' LXCDVALDEF '>'.
IF TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE NOT FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ERROR CODE : <' LXCDERR '>'
DISPLAY ' - FLAG CONTROLE : <' LXCTRLTAB '>'.
IF NOT TAB-ENTRYFOUND AND NOT TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE IN ERROR '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - ENTRY FOUND - END ***'.
DISPLAY ' '.
Results:
*** EXAMPLE RDJ SHORT TABLE ACCESS - ENTRY FOUND - START ***
- TABLE TYPE : <S>
- TABLE : <TABLES >
- ARGUMENT : <03
>
- ARG DATE : <0000000>
- CODE RETOUR : <0>
--> USER ENTRY TABLE FOUND
- ACCESS CODE : <O>
- VALUE : <3333333>
- ARG LENGTH : <0002>
- VAL LENGTH : <0007>
- ARG CLASS : <N>
- VAL CLASS : <A>
- FLAG VALDEF : <N>
*** EXAMPLE RDJ SHORT TABLE ACCESS - ENTRY FOUND - END ***
Exemple 2 - Table courte – Poste VALDEF trouvé
Source :
*** PARAMETRES ENTREE / INPUT PARAMETERS
MOVE ' ' TO LXTYPTAB.
MOVE 'TABLESVD'TO LXNOMTAB.
MOVE '07' TO LXARGUMENT.
MOVE ZERO TO LXDTARG.
DISPLAY ' '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - ENTRY FOUND VALDEF - START ***'.
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'.
DISPLAY ' - TABLE : <' LXNOMTAB '>'.
DISPLAY ' - ARGUMENT : <' LXARGUMENT '>'.
DISPLAY ' - ARG DATE : <' LXDTARG '>'.
*** CALL RDJTAB MODULE / APPEL MODULE RDJTAB
CALL 'RDJTAB' USING REC-LXRDJTAB.
*** OUTPUT PARAMETERS / PARAMETRES SORTIE
DISPLAY ' - CODE RETOUR : <' LXCDRETOUR '>'.
IF TAB-ENTRYFOUND
DISPLAY '--> USER ENTRY TABLE FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ACCESS CODE : <' LXCDACC '>'
DISPLAY ' - VALUE : <' LXTABVAL(1:LXLGVAL-N) '>'
DISPLAY ' - ARG LENGTH : <' LXLGARG '>'
DISPLAY ' - VAL LENGTH : <' LXLGVAL '>'
DISPLAY ' - ARG CLASS : <' LXCLARG '>'
DISPLAY ' - VAL CLASS : <' LXCLVAL '>'
DISPLAY ' - FLAG VALDEF : <' LXCDVALDEF '>'.
IF TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE NOT FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ERROR CODE : <' LXCDERR '>'
DISPLAY ' - FLAG CONTROLE : <' LXCTRLTAB '>'.
IF NOT TAB-ENTRYFOUND AND NOT TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE IN ERROR '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - ENTRY FOUND VALDEF - END ***'.
DISPLAY ' '.
Results:
*** EXAMPLE RDJ SHORT TABLE ACCESS - ENTRY FOUND VALDEF - START ***
- TABLE TYPE : <S>
- TABLE : <TABLESVD>
- ARGUMENT : <07
>
- ARG DATE : <0000000>
- CODE RETOUR : <0>
--> USER ENTRY TABLE FOUND
- ACCESS CODE : <O>
- VALUE : <7777777>
- ARG LENGTH : <0002>
- VAL LENGTH : <0007>
- ARG CLASS : <N>
- VAL CLASS : <A>
- FLAG VALDEF : <O>
*** EXAMPLE RDJ SHORT TABLE ACCESS - ENTRY FOUND VALDEF - END ***
Exemple 3 - Table courte – Poste non trouvé
Source :
*** PARAMETRES ENTREE / INPUT PARAMETERS
MOVE ' ' TO LXTYPTAB.
MOVE 'TABLES'TO LXNOMTAB.
MOVE '07' TO LXARGUMENT.
MOVE ZERO TO LXDTARG.
DISPLAY ' '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - ENTRY NOT FOUND - START ***'.
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'.
DISPLAY ' - TABLE : <' LXNOMTAB '>'.
DISPLAY ' - ARGUMENT : <' LXARGUMENT '>'.
DISPLAY ' - ARG DATE : <' LXDTARG '>'.
*** CALL RDJTAB MODULE / APPEL MODULE RDJTAB
CALL 'RDJTAB' USING REC-LXRDJTAB.
*** OUTPUT PARAMETERS / PARAMETRES SORTIE
DISPLAY ' - CODE RETOUR : <' LXCDRETOUR '>'.
IF TAB-ENTRYFOUND
DISPLAY '--> USER ENTRY TABLE FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ACCESS CODE : <' LXCDACC '>'
DISPLAY ' - VALUE : <' LXTABVAL(1:LXLGVAL-N) '>'
DISPLAY ' - ARG LENGTH : <' LXLGARG '>'
DISPLAY ' - VAL LENGTH : <' LXLGVAL '>'
DISPLAY ' - ARG CLASS : <' LXCLARG '>'
DISPLAY ' - VAL CLASS : <' LXCLVAL '>'
DISPLAY ' - FLAG VALDEF : <' LXCDVALDEF '>'.
IF TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE NOT FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ERROR CODE : <' LXCDERR '>'
DISPLAY ' - FLAG CONTROLE : <' LXCTRLTAB '>'.
IF NOT TAB-ENTRYFOUND AND NOT TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE IN ERROR '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - ENTRY NOT FOUND - END ***'.
DISPLAY ' '.
Results:
*** EXAMPLE RDJ SHORT TABLE ACCESS - ENTRY NOT FOUND - START ***
- TABLE TYPE : <S>
- TABLE : <TABLES >
- ARGUMENT : <07
>
- ARG DATE : <0000000>
- CODE RETOUR : <1>
--> USER ENTRY TABLE NOT FOUND
- ERROR CODE : <0001623>
- FLAG CONTROLE : <O>
*** EXAMPLE RDJ SHORT TABLE ACCESS - ENTRY NOT FOUND - END ***
Exemple 4 - Table courte – Table non trouvée
Source :
*** PARAMETRES ENTREE / INPUT PARAMETERS
MOVE ' ' TO LXTYPTAB.
MOVE 'TABLESNF'TO LXNOMTAB.
MOVE '07' TO LXARGUMENT.
MOVE ZERO TO LXDTARG.
DISPLAY ' '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - TABLE NOT FOUND - START ***'.
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'.
DISPLAY ' - TABLE : <' LXNOMTAB '>'.
DISPLAY ' - ARGUMENT : <' LXARGUMENT '>'.
DISPLAY ' - ARG DATE : <' LXDTARG '>'.
*** CALL RDJTAB MODULE / APPEL MODULE RDJTAB
CALL 'RDJTAB' USING REC-LXRDJTAB.
*** OUTPUT PARAMETERS / PARAMETRES SORTIE
DISPLAY ' - CODE RETOUR : <' LXCDRETOUR '>'.
IF TAB-ENTRYFOUND
DISPLAY '--> USER ENTRY TABLE FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ACCESS CODE : <' LXCDACC '>'
DISPLAY ' - VALUE : <' LXTABVAL(1:LXLGVAL-N) '>'
DISPLAY ' - ARG LENGTH : <' LXLGARG '>'
DISPLAY ' - VAL LENGTH : <' LXLGVAL '>'
DISPLAY ' - ARG CLASS : <' LXCLARG '>'
DISPLAY ' - VAL CLASS : <' LXCLVAL '>'
DISPLAY ' - FLAG VALDEF : <' LXCDVALDEF '>'.
IF TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE NOT FOUND '
DISPLAY ' - TABLE TYPE : <' LXTYPTAB '>'
DISPLAY ' - ERROR CODE : <' LXCDERR '>'
DISPLAY ' - FLAG CONTROLE : <' LXCTRLTAB '>'.
IF NOT TAB-ENTRYFOUND AND NOT TAB-ENTRYNOTFOUND
DISPLAY '--> USER ENTRY TABLE IN ERROR '.
DISPLAY '*** EXAMPLE RDJ SHORT TABLE ACCESS'
' - TABLE NOT FOUND - END ***'.
DISPLAY ' '.
Results:
*** EXAMPLE RDJ SHORT TABLE ACCESS - TABLE NOT FOUND - START ***
- TABLE TYPE : < >
- TABLE : <TABLESNF>
- ARGUMENT : <07
>
- ARG DATE : <0000000>
- CODE RETOUR : <1>
--> USER ENTRY TABLE NOT FOUND
- ERROR CODE : <0001580>
- FLAG CONTROLE : < >
*** EXAMPLE RDJ SHORT TABLE ACCESS - TABLE NOT FOUND - END ***
Exemple 5 – Table longue – Poste trouvé
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLEL");
memcpy(stApiRDJTAB.sNomTab,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sArgument,' ',RDJTAB_LG_Argument);
strcpy(sTmp,"03");
memcpy(stApiRDJTAB.sArgument,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sDtArg,'0',RDJTAB_LG_DtArg);
printf ("\n");
printf("*** Example RDJ long table access - entry found - START ***\n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sNomTab,RDJTAB_LG_NomTab);
sTmp[RDJTAB_LG_NomTab]=0;
printf(" - stApiRDJTAB.sNomTab : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sArgument,RDJTAB_LG_Argument);
sTmp[RDJTAB_LG_Argument]=0;
printf(" - stApiRDJTAB.sArgument : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sDtArg,RDJTAB_LG_DtArg);
sTmp[RDJTAB_LG_DtArg]=0;
printf(" - stApiRDJTAB.sDtArg : <%s>\n",sTmp);
/* Call RDJTAB module / Appel module RDJTAB */
RDJTAB (&stApiRDJTAB);
/* Output parameters / Paramètres sortie */
printf(" - stApiRDJTAB.sCdRetour : <%c>\n",stApiRDJTAB.sCdRetour);
sTmp[0]=stApiRDJTAB.sCdRetour;
sTmp[1]=0;
switch(atoi(sTmp))
{
case RDJTAB_nEntryFound:
printf("--> User entry table found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
printf(" - stApiRDJTAB.sCdAcc : <%c>\n",stApiRDJTAB.sCdAcc);
memcpy(sTmp,stApiRDJTAB.sTabVal,atoi(stApiRDJTAB.sLgVal));
sTmp[atoi(stApiRDJTAB.sLgVal)+1]=0;
printf(" - stApiRDJTAB.sTabVal : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgArg,RDJTAB_LG_LgArg);
sTmp[RDJTAB_LG_LgArg]=0;
printf(" - stApiRDJTAB.sLgArg : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgVal,RDJTAB_LG_LgVal);
sTmp[RDJTAB_LG_LgVal]=0;
printf(" - stApiRDJTAB.sLgVal : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sClArg : <%c>\n",stApiRDJTAB.sClArg);
printf(" - stApiRDJTAB.sClVal : <%c>\n",stApiRDJTAB.sClVal);
printf(" - stApiRDJTAB.sCdValDef : <%c>\n",stApiRDJTAB.sCdValDef);
break;
case RDJTAB_nEntryNotFound:
printf("--> User entry table not found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sCdErr,RDJTAB_LG_CdErr);
sTmp[RDJTAB_LG_CdErr]=0;
printf(" - stApiRDJTAB.sCdErr : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sCtrlTab : <%c>\n",stApiRDJTAB.sCtrlTab);
break;
default:
printf("--> User entry table in error \n");
break;
}
printf("*** Example RDJ long table access - entry found - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ long table access - entry found - START ***
- stApiRDJTAB.sTypTab : <L>
- stApiRDJTAB.sNomTab : <TABLEL >
- stApiRDJTAB.sArgument : <03
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <0>
--> User entry table found
- stApiRDJTAB.sCdAcc : <O>
- stApiRDJTAB.sTabVal : <19910331 >
- stApiRDJTAB.sLgArg : <0020>
- stApiRDJTAB.sLgVal : <0030>
- stApiRDJTAB.sClArg : <A>
- stApiRDJTAB.sClVal : <A>
- stApiRDJTAB.sCdValDef : <N>
*** Example RDJ long table access - entry found - END ***
Exemple 6 - Table longue – Poste VALDEF trouvé
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLELVD");
memcpy(stApiRDJTAB.sNomTab,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sArgument,' ',RDJTAB_LG_Argument);
strcpy(sTmp,"07");
memcpy(stApiRDJTAB.sArgument,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sDtArg,'0',RDJTAB_LG_DtArg);
printf ("\n");
printf("*** Example RDJ long table access - entry found VALDEF - START ***\n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sNomTab,RDJTAB_LG_NomTab);
sTmp[RDJTAB_LG_NomTab]=0;
printf(" - stApiRDJTAB.sNomTab : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sArgument,RDJTAB_LG_Argument);
sTmp[RDJTAB_LG_Argument]=0;
printf(" - stApiRDJTAB.sArgument : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sDtArg,RDJTAB_LG_DtArg);
sTmp[RDJTAB_LG_DtArg]=0;
printf(" - stApiRDJTAB.sDtArg : <%s>\n",sTmp);
/* Call RDJTAB module / Appel module RDJTAB */
RDJTAB (&stApiRDJTAB);
/* Output parameters / Paramètres sortie */
printf(" - stApiRDJTAB.sCdRetour : <%c>\n",stApiRDJTAB.sCdRetour);
sTmp[0]=stApiRDJTAB.sCdRetour;
sTmp[1]=0;
switch(atoi(sTmp))
{
case RDJTAB_nEntryFound:
printf("--> User entry table found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
printf(" - stApiRDJTAB.sCdAcc : <%c>\n",stApiRDJTAB.sCdAcc);
memcpy(sTmp,stApiRDJTAB.sTabVal,atoi(stApiRDJTAB.sLgVal));
sTmp[atoi(stApiRDJTAB.sLgVal)+1]=0;
printf(" - stApiRDJTAB.sTabVal : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgArg,RDJTAB_LG_LgArg);
sTmp[RDJTAB_LG_LgArg]=0;
printf(" - stApiRDJTAB.sLgArg : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgVal,RDJTAB_LG_LgVal);
sTmp[RDJTAB_LG_LgVal]=0;
printf(" - stApiRDJTAB.sLgVal : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sClArg : <%c>\n",stApiRDJTAB.sClArg);
printf(" - stApiRDJTAB.sClVal : <%c>\n",stApiRDJTAB.sClVal);
printf(" - stApiRDJTAB.sCdValDef : <%c>\n",stApiRDJTAB.sCdValDef);
break;
case RDJTAB_nEntryNotFound:
printf("--> User entry table not found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sCdErr,RDJTAB_LG_CdErr);
sTmp[RDJTAB_LG_CdErr]=0;
printf(" - stApiRDJTAB.sCdErr : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sCtrlTab : <%c>\n",stApiRDJTAB.sCtrlTab);
break;
default:
printf("--> User entry table in error \n");
break;
}
printf("*** Example RDJ long table access - entry found VALDEF - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ long table access - entry found VALDEF - START ***
- stApiRDJTAB.sTypTab : <L>
- stApiRDJTAB.sNomTab : <TABLELVD>
- stApiRDJTAB.sArgument : <07
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <0>
--> User entry table found
- stApiRDJTAB.sCdAcc : <O>
- stApiRDJTAB.sTabVal : <19911231 >
- stApiRDJTAB.sLgArg : <0020>
- stApiRDJTAB.sLgVal : <0030>
- stApiRDJTAB.sClArg : <A>
- stApiRDJTAB.sClVal : <A>
- stApiRDJTAB.sCdValDef : <O>
*** Example RDJ long table access - entry found VALDEF - END ***
Exemple 7 - Table longue – Poste non trouvé
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLEL");
memcpy(stApiRDJTAB.sNomTab,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sArgument,' ',RDJTAB_LG_Argument);
strcpy(sTmp,"07");
memcpy(stApiRDJTAB.sArgument,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sDtArg,'0',RDJTAB_LG_DtArg);
printf ("\n");
printf("*** Example RDJ long table access - entry not found - START ***\n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sNomTab,RDJTAB_LG_NomTab);
sTmp[RDJTAB_LG_NomTab]=0;
printf(" - stApiRDJTAB.sNomTab : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sArgument,RDJTAB_LG_Argument);
sTmp[RDJTAB_LG_Argument]=0;
printf(" - stApiRDJTAB.sArgument : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sDtArg,RDJTAB_LG_DtArg);
sTmp[RDJTAB_LG_DtArg]=0;
printf(" - stApiRDJTAB.sDtArg : <%s>\n",sTmp);
/* Call RDJTAB module / Appel module RDJTAB */
RDJTAB (&stApiRDJTAB);
/* Output parameters / Paramètres sortie */
printf(" - stApiRDJTAB.sCdRetour : <%c>\n",stApiRDJTAB.sCdRetour);
sTmp[0]=stApiRDJTAB.sCdRetour;
sTmp[1]=0;
switch(atoi(sTmp))
{
case RDJTAB_nEntryFound:
printf("--> User entry table found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
printf(" - stApiRDJTAB.sCdAcc : <%c>\n",stApiRDJTAB.sCdAcc);
memcpy(sTmp,stApiRDJTAB.sTabVal,atoi(stApiRDJTAB.sLgVal));
sTmp[atoi(stApiRDJTAB.sLgVal)+1]=0;
printf(" - stApiRDJTAB.sTabVal : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgArg,RDJTAB_LG_LgArg);
sTmp[RDJTAB_LG_LgArg]=0;
printf(" - stApiRDJTAB.sLgArg : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgVal,RDJTAB_LG_LgVal);
sTmp[RDJTAB_LG_LgVal]=0;
printf(" - stApiRDJTAB.sLgVal : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sClArg : <%c>\n",stApiRDJTAB.sClArg);
printf(" - stApiRDJTAB.sClVal : <%c>\n",stApiRDJTAB.sClVal);
printf(" - stApiRDJTAB.sCdValDef : <%c>\n",stApiRDJTAB.sCdValDef);
break;
case RDJTAB_nEntryNotFound:
printf("--> User entry table not found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sCdErr,RDJTAB_LG_CdErr);
sTmp[RDJTAB_LG_CdErr]=0;
printf(" - stApiRDJTAB.sCdErr : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sCtrlTab : <%c>\n",stApiRDJTAB.sCtrlTab);
break;
default:
printf("--> User entry table in error \n");
break;
}
printf("*** Example RDJ long table access - entry not found - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ long table access - entry not found - START ***
- stApiRDJTAB.sTypTab : <L>
- stApiRDJTAB.sNomTab : <TABLEL >
- stApiRDJTAB.sArgument : <07
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <1>
--> User entry table not found
- stApiRDJTAB.sCdErr : <0001623>
- stApiRDJTAB.sCtrlTab : <O>
*** Example RDJ long table access - entry not found - END ***
Exemple 8 - Table longue – Table non trouvée
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLELNF");
memcpy(stApiRDJTAB.sNomTab,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sArgument,' ',RDJTAB_LG_Argument);
strcpy(sTmp,"07");
memcpy(stApiRDJTAB.sArgument,sTmp,strlen(sTmp));
memset(stApiRDJTAB.sDtArg,'0',RDJTAB_LG_DtArg);
printf ("\n");
printf("*** Example RDJ long table access - table not found - START ***\n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sNomTab,RDJTAB_LG_NomTab);
sTmp[RDJTAB_LG_NomTab]=0;
printf(" - stApiRDJTAB.sNomTab : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sArgument,RDJTAB_LG_Argument);
sTmp[RDJTAB_LG_Argument]=0;
printf(" - stApiRDJTAB.sArgument : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sDtArg,RDJTAB_LG_DtArg);
sTmp[RDJTAB_LG_DtArg]=0;
printf(" - stApiRDJTAB.sDtArg : <%s>\n",sTmp);
/* Call RDJTAB module / Appel module RDJTAB */
RDJTAB (&stApiRDJTAB);
/* Output parameters / Paramètres sortie */
printf(" - stApiRDJTAB.sCdRetour : <%c>\n",stApiRDJTAB.sCdRetour);
sTmp[0]=stApiRDJTAB.sCdRetour;
sTmp[1]=0;
switch(atoi(sTmp))
{
case RDJTAB_nEntryFound:
printf("--> User entry table found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
printf(" - stApiRDJTAB.sCdAcc : <%c>\n",stApiRDJTAB.sCdAcc);
memcpy(sTmp,stApiRDJTAB.sTabVal,atoi(stApiRDJTAB.sLgVal));
sTmp[atoi(stApiRDJTAB.sLgVal)+1]=0;
printf(" - stApiRDJTAB.sTabVal : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgArg,RDJTAB_LG_LgArg);
sTmp[RDJTAB_LG_LgArg]=0;
printf(" - stApiRDJTAB.sLgArg : <%s>\n",sTmp);
memcpy(sTmp,stApiRDJTAB.sLgVal,RDJTAB_LG_LgVal);
sTmp[RDJTAB_LG_LgVal]=0;
printf(" - stApiRDJTAB.sLgVal : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sClArg : <%c>\n",stApiRDJTAB.sClArg);
printf(" - stApiRDJTAB.sClVal : <%c>\n",stApiRDJTAB.sClVal);
printf(" - stApiRDJTAB.sCdValDef : <%c>\n",stApiRDJTAB.sCdValDef);
break;
case RDJTAB_nEntryNotFound:
printf("--> User entry table not found \n");
printf(" - stApiRDJTAB.sTypTab : <%c>\n",stApiRDJTAB.sTypTab);
memcpy(sTmp,stApiRDJTAB.sCdErr,RDJTAB_LG_CdErr);
sTmp[RDJTAB_LG_CdErr]=0;
printf(" - stApiRDJTAB.sCdErr : <%s>\n",sTmp);
printf(" - stApiRDJTAB.sCtrlTab : <%c>\n",stApiRDJTAB.sCtrlTab);
break;
default:
printf("--> User entry table in error \n");
break;
}
printf("*** Example RDJ long table access - table not found - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ long table access - table not found - START ***
- stApiRDJTAB.sTypTab : < >
- stApiRDJTAB.sNomTab : <TABLELNF>
- stApiRDJTAB.sArgument : <07
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <1>
--> User entry table not found
- stApiRDJTAB.sCdErr : <0001580>
- stApiRDJTAB.sCtrlTab : < >
*** Example RDJ long table access - table not found - END ***