C language

Example 1 - Short table - Entry found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

Example 2 - Short table - Entry line VALDEF found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

Example 3 - Short table - Entry not found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

 

Example 4 - Short table - Table not found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

Example 5 - Long table - Entry found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

 

Example 6 - Long table - Entry line VALDEF found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

Example 7 - Long table - Entry not found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

Example 8 - Long table - Table not found

Source:

{

strApiRDJTAB stApiRDJTAB;

    char sTmp[300];

/*  Input parameters / Paramètres entrée */

stApiRDJTAB.sTypTab=' ';

 

memset(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 ***

Related Links