COBOL language

Example 1 - Short table - Entry found

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

Example 2 - Short table - Entry line VALDEF found

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

Example 3 - Short table - Entry not found

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

Example 4 - Short table - Table not found

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

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