Langage C
Exemple 1 - Table courte – Poste trouvé
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLES");
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 short 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 short table access - entry found - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ short table access - entry found - START ***
- stApiRDJTAB.sTypTab : <S>
- stApiRDJTAB.sNomTab : <TABLES >
- stApiRDJTAB.sArgument : <03
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <0>
--> User entry table found
- stApiRDJTAB.sCdAcc : <O>
- stApiRDJTAB.sTabVal : <3333333>
- stApiRDJTAB.sLgArg : <0002>
- stApiRDJTAB.sLgVal : <0007>
- stApiRDJTAB.sClArg : <N>
- stApiRDJTAB.sClVal : <A>
- stApiRDJTAB.sCdValDef : <N>
*** Example RDJ short table access - entry found - END ***
Exemple 2 - Table courte – Poste VALDEF trouvé
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLESVD");
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 short 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 short table access - entry found VALDEF - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ short table access - entry found VALDEF - START ***
- stApiRDJTAB.sTypTab : <S>
- stApiRDJTAB.sNomTab : <TABLESVD>
- stApiRDJTAB.sArgument : <07
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <0>
--> User entry table found
- stApiRDJTAB.sCdAcc : <O>
- stApiRDJTAB.sTabVal : <7777777>
- stApiRDJTAB.sLgArg : <0002>
- stApiRDJTAB.sLgVal : <0007>
- stApiRDJTAB.sClArg : <N>
- stApiRDJTAB.sClVal : <A>
- stApiRDJTAB.sCdValDef : <O>
*** Example RDJ short table access - entry found VALDEF - END ***
Exemple 3 - Table courte – Poste non trouvé
Source :
{
strApiRDJTAB stApiRDJTAB;
char sTmp[300];
/* Input parameters / Paramètres entrée */
stApiRDJTAB.sTypTab=' ';
(stApiRDJTAB.sNomTab,' ',RDJTAB_LG_NomTab);
strcpy(sTmp,"TABLES");
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 short 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 short table access - entry not found - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ short table access - entry not found - START ***
- stApiRDJTAB.sTypTab : <S>
- stApiRDJTAB.sNomTab : <TABLES >
- stApiRDJTAB.sArgument : <07
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <1>
--> User entry table not found
- stApiRDJTAB.sCdErr : <0001623>
- stApiRDJTAB.sCtrlTab : <O>
*** Example RDJ short table access - entry not found - END ***
Exemple 4 - Table courte – 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,"TABLESNF");
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 short 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 short table access - table not found - END ***\n");
printf ("\n");
}
Results:
*** Example RDJ short table access - table not found - START ***
- stApiRDJTAB.sTypTab : <S>
- stApiRDJTAB.sNomTab : <TABLESNF>
- stApiRDJTAB.sArgument : <07
>
- stApiRDJTAB.sDtArg : <0000000>
- stApiRDJTAB.sCdRetour : <1>
--> User entry table not found
- stApiRDJTAB.sCdErr : <0001580>
- stApiRDJTAB.sCtrlTab : < >
*** 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 ***