C version of DISPR

From MidrangeWiki
Revision as of 02:35, 1 April 2014 by FKOL (talk | contribs)
Jump to: navigation, search


C Program

A C program that uses a subfile. I named the program CDISPR snd it is a conversion of the RPGLE program DISPR.


CDISPR C




/*                 */
#include <stdio.h>
#include <stdlib.h>
#include <recio.h>
#include <string.h>
#include <ctype.h>
#include <decimal.h>
#include <xxcvt.h>

enum Panels
     {
     TOP , S01BLD, S01PRC, S01PRS, S02BLD, S02PRC
     };

#define NUM_RECS   9999

#define PFILENAME    "*LIBL/REL"
#define SOPFILE     "*LIBL/SEL"
#define SUBFILENAME  "*LIBL/CDISPRF"

#pragma mapinc("ddhpf","*libl/REL(*ALL)","input"," ",,"")
#include "ddhpf"

#pragma mapinc("ddspf","*libl/SEL(*ALL)","input"," ",,"")
#include "ddspf"

#pragma mapinc("ddhdf","*LIBL/CDISPRF(*ALL)","both indicators"," ",,"")
#include "ddhdf"



#define RECLENPF sizeof(QWHFDACP_i_t)
#define RECLENSEL sizeof(QWHFDSO_i_t)
#define RECLENS01i sizeof(S01_i_t)
#define RECLENS01o sizeof(S01_o_t)
#define RECLENC01i sizeof(C01_i_t)
#define RECLENC01o sizeof(C01_o_t)
#define RECLENS02i sizeof(S02_i_t)
#define RECLENS02o sizeof(S02_o_t)
#define RECLENC02i sizeof(C02_i_t)
#define RECLENC02o sizeof(C02_o_t)

#define IND_ON '1'
#define IND_OFF '0'
#define I03     02
#define I12     11
#define I51     50
#define I52     51
#define I53     52
#define I56     55
#define EQ      ==
#define SHARE   static
#define EXPORT
#define IMPORT  extern

void fS01BLD(_RFILE *, _RFILE *, int *, char *, char *);
void fS01PRC(_RFILE *, int *, char *, char *);
void fS01PRS(_RFILE *, int *, char *, char *);
void fS02BLD(_RFILE *, _RFILE *, int *,char *, char *);
void fS02PRC(_RFILE *, int *,char *, char *);



EXPORT    enum Panels Panel[99]  ;
EXPORT    int  pnl_lvl = 0;
EXPORT    _SYSindara       indicator_area;


int main(void)
{
    _RFILE           *pf;
    _RFILE           *subf;
    _RFILE           *sopf;


    int              i;
    int              n;
    int              *pn  = &n;
    int              n2;
    int              *pn2  = &n2;

    char C01FILE[10] = "          ";
    char C01LIB[10]  = "          ";
    char *p_c01file ;
    char *p_c01lib ;
    char C02FILE[10] = "          ";
    char C02LIB[10]  = "          ";
    char *p_c02file ;
    char *p_c02lib ;

    p_c01file =  C01FILE;
    p_c01lib  =  C01LIB;
    p_c02file =  C02FILE;
    p_c02lib  =  C02LIB;

    Panel[++pnl_lvl] = TOP ;
    Panel[++pnl_lvl] =  S01BLD ;

    for (i = 0; i <= 98; i++)
        { indicator_area[i] = IND_OFF;}


/* Open the Relations  file.                            */
    if ((pf = _Ropen(PFILENAME, "rr")) EQ NULL)
    {   printf("can't open file %s\n", PFILENAME);  exit(1); }

/* Open the subfile  file.                            */
    if ((subf = _Ropen(SUBFILENAME, "wr+ indicators=y")) EQ NULL)
    {   printf("can't open file %s\n", SUBFILENAME); exit(2); }
    _Rindara ( subf, indicator_area );

 /* Open the Select/Omit  file.                            */
    if ((sopf = _Ropen(SOPFILE, "rr")) EQ NULL)
    {   printf("can't open file %s\n", SOPFILE);  exit(1); }


for (;;) {


  switch (Panel[pnl_lvl])
  {
    case S01BLD:
       fS01BLD(pf, subf, pn, p_c01file, p_c01lib );
      break;

    case S01PRC:
       fS01PRC(subf, pn, p_c01file, p_c01lib );
      break;

    case  S01PRS:
       fS01PRS(subf, pn,  p_c02file, p_c02lib);
      break;

    case S02BLD:
       fS02BLD(sopf, subf, pn2, p_c02file, p_c02lib);
      break;

    case S02PRC:
       fS02PRC(subf, pn2,p_c02file, p_c02lib);
      break;

    case TOP:
  //  EXIT THE PROGRAM
      exit(0);
  }

  //  CF3 EXIT
    if (indicator_area[I03] EQ IND_ON)
    { exit(0); }
  //  CF12  PREVIOUS
    if (indicator_area[I12] EQ IND_ON)
    { indicator_area[I12] = IND_OFF,pnl_lvl--; }

}


/* Close the physical files and the subfile.                           */
     _Rclose(pf);
     _Rclose(sopf);
     _Rclose(subf);
}

//  ###################################



void fS01BLD(_RFILE *pf, _RFILE *subf, int *n, char *f, char *l)
 {
   _RIOFB_T      *fb;
    int           i;
    QWHFDACP_i_t  pfrcd;
    S01_o_t       sfrcd;
    S01_o_t       *p_sfrcd;
    char          wfile[10];
    char          wlib[10];

    p_sfrcd    =  &sfrcd;
    _Rindara(subf, indicator_area );

/* CLEAR the SUBFILE  */
     _Rformat(subf, "C01");
    indicator_area[I51] = IND_OFF;
    indicator_area[I52] = IND_OFF;
    indicator_area[I53] = IND_ON;
      fb = _Rwrite(subf, "" , 0);


/* Select the subfile record format.                                  */
        _Rformat(subf, "S01");
        *n = 0;
        for (i = 1; i <= NUM_RECS; i++)
        {
               fb = _Rreadn(pf, &pfrcd, RECLENPF, __DFT);
               if (fb->num_bytes != EOF)
               {


                memcpy (f , pfrcd.APFILE, 10);
                memcpy (l , pfrcd.APLIB , 10);
                if (( memcmp(pfrcd.APFILE, wfile, 10) EQ 0 ) &&
                    ( memcmp(pfrcd.APLIB, wlib, 10) EQ 0 ))
                {
                indicator_area[I56] = IND_ON;
                memcpy (sfrcd.S01FUNC  , "          ", 2  );
                memcpy (sfrcd.S01APFILE, "          ", 10 );
                memcpy (sfrcd.S01APLIB , "          ", 10 );
                memcpy (sfrcd.S01APACCP, "          ", 1  );
                memcpy (sfrcd.S01APUNIQ, "          ", 1  );
                memcpy (sfrcd.S01APSELO, "          ", 1  );
                memcpy (sfrcd.S01APFTYP, "          ", 1  );
                memcpy (sfrcd.S01APJOIN, "          ", 1  );
                memcpy (sfrcd.S01APKEYO, "          ", 1  );
                memcpy (sfrcd.S01APKSEQ, pfrcd.APKSEQ, 1  );
                memcpy (sfrcd.S01APKSIN, pfrcd.APKSIN, 1  );
                memcpy (sfrcd.S01APKEYF, pfrcd.APKEYF, 10 );
                }
                else
                {
                indicator_area[I56] = IND_OFF;
                memcpy (sfrcd.S01FUNC  , "          ", 2  );
                memcpy (wfile, pfrcd.APFILE, 10 );
                memcpy (wlib, pfrcd.APLIB, 10 );
                memcpy (sfrcd.S01APLIB , pfrcd.APLIB , 10 );
                memcpy (sfrcd.S01APFILE, pfrcd.APFILE, 10 );
                memcpy (sfrcd.S01APLIB , pfrcd.APLIB , 10 );
                memcpy (sfrcd.S01APACCP, pfrcd.APACCP, 1  );
                memcpy (sfrcd.S01APUNIQ, pfrcd.APUNIQ, 1  );
                memcpy (sfrcd.S01APSELO, pfrcd.APSELO, 1  );
                memcpy (sfrcd.S01APFTYP, pfrcd.APFTYP, 1  );
                memcpy (sfrcd.S01APJOIN, pfrcd.APJOIN, 1  );
                memcpy (sfrcd.S01APKEYO, pfrcd.APKEYO, 1  );
                memcpy (sfrcd.S01APKSEQ, pfrcd.APKSEQ, 1  );
                memcpy (sfrcd.S01APKSIN, pfrcd.APKSIN, 1  );
                memcpy (sfrcd.S01APKEYF, pfrcd.APKEYF, 10 );
                }

                 fb = _Rwrited(subf, p_sfrcd, RECLENS01o, i);

                 if (fb->num_bytes != RECLENS01o )
                 {
                   printf("error occurred during write\n");
                   exit(3);
                 }
                 else
                 {
                   *n = i;
                 }


               }
               else
               {
               break;
               }
        }
        Panel[++pnl_lvl] =  S01PRC ;

 }
//  ###################################

void fS01PRC(_RFILE *subf, int *n, char *f, char *l)
 {

 /*
 +Write the subfile to the display by writing a record to the
 +subfile control format.
 */
    int             i;
    _RIOFB_T      *fb;

    C01_o_t       cfrcd;
    C01_o_t       *p_cfrcd;

    p_cfrcd    = &cfrcd;

    _Rformat(subf, "R01");
    fb = _Rwrite(subf, "", 0);

    for (;;)
    {
     _Rformat(subf, "C01");
     _Rindara(subf, indicator_area );

      i = 1;
      QXXITOZ (cfrcd.SRS01 , 4 , 0, i);

      memcpy (cfrcd.C01APBOF, f , 10);
      memcpy (cfrcd.C01APBOL, l , 10);

    indicator_area[I51] = IND_OFF;
    indicator_area[I52] = IND_ON;
    indicator_area[I53] = IND_OFF;
    if (n != 0)
    { indicator_area[I51] = IND_ON; }

     fb = _Rwrite(subf, p_cfrcd, RECLENC01o);

     if (fb->num_bytes != RECLENC01o )
                 {
                   printf("error occurred during write\n");
                   exit(3);
                 }


     _Rreadn(subf, "", 0, __DFT);

      //  CF3 EXIT
    if (indicator_area[I03] EQ IND_ON) { break; }

     //  CF12 Previous
         if (indicator_area[I12] EQ IND_ON)
         {pnl_lvl--; break; }

    //  Process the subfile

    Panel[++pnl_lvl] =  S01PRS ;
    break;

    }
 }

 //  ###################################
void fS01PRS(_RFILE *subf, int *n,  char *f, char *l)
 {

  _RIOFB_T      *fb;
    S01_i_t       sfrcd;
    S01_i_t       *p_sfrcd;
    long        rrn;
    int         i;
    int         j;
    char        func[2];

   p_sfrcd    =  &sfrcd;
   _Rindara(subf, indicator_area );


/* Select the subfile record format.                                  */
        _Rformat(subf, "S01");


    for (i = 1; i <= *n ; i++)
    {
        rrn = i;
         fb = _Rreadd(subf, p_sfrcd, RECLENS01i, __DFT,rrn);
               if (fb->num_bytes EQ EOF)
               {
               {pnl_lvl--; break; }
               }
               else
               {
                memcpy (f, sfrcd.S01APFILE , 10 );
                memcpy (l, sfrcd.S01APLIB , 10 );
                memcpy (&func, sfrcd.S01FUNC, 2);

             //  convert to upper case radj blank fill
                for(j = 0; j EQ 1; j++) {func[j] = toupper(func[j]); }
                if (memcmp(&func[0], " ", 1) EQ 0 )
                  {
                  memmove(&func[0] , &func[1] ,1);
                  memcpy(&func[1] ," ", 1);
                  }

               if (memcmp(func, "X ", 2) EQ 0 )
               {
               indicator_area[I03] = IND_ON ;  break;
               }

               if (memcmp(func, "R ", 2) EQ 0 )
               {
                memcpy (sfrcd.S01FUNC  , "          ", 2  );
                fb  =  _Rupdate(subf,p_sfrcd, RECLENS01i);
                Panel[++pnl_lvl] =  S02BLD ; break;
               }
               if (fb->rrn  EQ *n)
               {  --pnl_lvl;   }

               }

    }


 }

//  ###################################

void fS02BLD(_RFILE *sopf, _RFILE *subf, int *n2, char *f, char *l)
 {

  _RIOFB_T      *fb;
    QWHFDSO_i_t  pfrcd;
    S02_o_t       sfrcd;
    S02_o_t       *p_sfrcd;
    long        rrn;
    int         i;
    int         j;
    char        wfile[10];
    char        wlib[10];

    p_sfrcd =  &sfrcd;
   _Rindara(subf, indicator_area );

    memcpy (wfile , f, 10);
    memcpy (wlib , l , 10);

    /* CLEAR the SUBFILE  */
     _Rformat(subf, "C02");
    indicator_area[I51] = IND_OFF;
    indicator_area[I52] = IND_OFF;
    indicator_area[I53] = IND_ON;
      fb = _Rwrite(subf, "" , 0);


/* Select the subfile record format.                                  */
    _Rformat(subf, "S02");
    *n2 = 0;
    j = 0;

    for (i = 1; i < NUM_RECS; i++)
    {
        rrn = i;
         fb = _Rreadd(sopf, &pfrcd, RECLENSEL, __NO_LOCK,rrn);
               if (fb->num_bytes EQ EOF)
               {
               break;
               }
               else
               {

               if (( memcmp(pfrcd.SOFILE, wfile, 10) EQ 0 ) &&
                    ( memcmp(pfrcd.SOLIB, wlib, 10) EQ 0 ))
               {
                memcpy (sfrcd.S02SOFLD, pfrcd.SOFLD, 10  );
                memcpy (sfrcd.S02SORULE, pfrcd.SORULE, 1  );
                memcpy (sfrcd.S02SOCOMP, pfrcd.SOCOMP, 2 );
                memcpy (sfrcd.S02SOVALU, pfrcd.SOVALU, 32 );

               fb = _Rwrited(subf, p_sfrcd, RECLENS02o, ++j);

                 if (fb->num_bytes != RECLENS02o )
                 {
                   printf("error occurred during write\n");
                   exit(3);
                 }
                 else
                 {
                   *n2 = j;
                 }
                }

               }

    }
             Panel[++pnl_lvl] =  S02PRC ;

   }

//  ###################################

void fS02PRC(_RFILE *subf, int *n, char *f, char *l)
 {

 /*
 +Write the subfile to the display by writing a record to the
 +subfile control format.
 */
    int             i;
    _RIOFB_T      *fb;

    C02_o_t       cfrcd;
    C02_o_t       *p_cfrcd;

    p_cfrcd    = &cfrcd;

    _Rformat(subf, "R02");
    fb = _Rwrite(subf, "", 0);

    for (;;)
    {
     _Rformat(subf, "C02");
     _Rindara(subf, indicator_area );

      i = 1;
      QXXITOZ (cfrcd.SRS02 , 4 , 0, i);

      memcpy (cfrcd.C02APFILE, f , 10);
      memcpy (cfrcd.C02APLIB, l , 10);

    indicator_area[I51] = IND_OFF;
    indicator_area[I52] = IND_ON;
    indicator_area[I53] = IND_OFF;
    if (n != 0)
    { indicator_area[I51] = IND_ON; }

     fb = _Rwrite(subf, p_cfrcd, RECLENC02o);

     if (fb->num_bytes != RECLENC02o )
                 {
                   printf("error occurred during write\n");
                   exit(3);
                 }


     _Rreadn(subf, "", 0, __DFT);

      //  CF3 EXIT
    if (indicator_area[I03] EQ IND_ON) { break; }

     //  CF12 Previous
    if (indicator_area[I12] EQ IND_ON)
            { indicator_area[I12] = IND_OFF; }

     //  ENTER  and F12
        pnl_lvl--;pnl_lvl--;break;
    }
 }

CDISPR needed files

You need to create these file


To create files REL and SEL

DSPFD FILE(*libl/urfile*) TYPE(*ACCPTH) OUTPUT(*OUTFILE) OUTFILE(QTEMP/REL)
DSPFD FILE(*libl/urfile*) TYPE(*select) OUTPUT(*OUTFILE) OUTFILE(QTEMP/SEL) 

DDS for  CDISPRF

     A*%%TS  SD  
     A*
     A*%%EC
     A                                      INDARA
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      CF03(03)
     A                                      CF12(12)
     A          R S01                       SFL
     A*%%TS  SD  
     A            S01FUNC        2A  B  4  3
     A  55
     AO 56                                  DSPATR(PR ND)
     A            S01APFILE R        O  4  6REFFLD(QWHFDACP/APFILE QTEMP/REL)
     A            S01APLIB  R        O  4 17REFFLD(QWHFDACP/APLIB QTEMP/REL)
     A            S01APACCP R        O  4 29REFFLD(QWHFDACP/APACCP QTEMP/REL)
     A            S01APUNIQ R        O  4 33REFFLD(QWHFDACP/APUNIQ QTEMP/REL)
     A            S01APSELO R        O  4 37REFFLD(QWHFDACP/APSELO QTEMP/REL)
     A            S01APFTYP R        O  4 41REFFLD(QWHFDACP/APFTYP QTEMP/REL)
     A            S01APJOIN R        O  4 45REFFLD(QWHFDACP/APJOIN QTEMP/REL)
     A            S01APKEYO R        O  4 48REFFLD(QWHFDACP/APKEYO QTEMP/REL)
     A            S01APKSEQ R        O  4 53REFFLD(QWHFDACP/APKSEQ QTEMP/REL)
     A            S01APKSIN R        O  4 57REFFLD(QWHFDACP/APKSIN QTEMP/REL)
     A            S01APKEYF R        O  4 61REFFLD(QWHFDACP/APKEYF QTEMP/REL)
     A          R C01                       SFLCTL(S01)
     A*%%TS  SD  
     A                                      SFLSIZ(0019)
     A                                      SFLPAG(0018)
     A                                      OVERLAY
     A  50                                  SFLEND
     A  51                                  SFLDSP
     A  52                                  SFLDSPCTL
     A  53                                  SFLCLR
     A            SRS01          4S 0H      SFLRCDNBR(CURSOR)
     A*
     A                                  1 18'FILE RELATIONS for '
     A            C01APBOF  R        O  1 39REFFLD(QWHFDACP/APBOF QTEMP/REL)
     A                                  1 51'Lib.'
     A            C01APBOL  R        O  1 56REFFLD(QWHFDACP/APBOL QTEMP/REL)
     A                                  2 32'Uni SEL         LIFO ASC Key'
     A                                  3  6'File       Library    Acc Key OMT -
     A                                      TYP  J  FIFO DSC Sgn Key'
     A          R R01
     A                                 24  3'F3-Exit'
     A                                 22  3'R - Display Select/Omit rules'
     A                                 23  3'X - Select for display'
      *
     A          R R02
     A                                 24  3'F3-Exit'
     A          R S02                       SFL
     A                                      SFLNXTCHG
     A            S02SOFLD  R        O  4  4REFFLD(QWHFDSO/SOFLD QTEMP/SEL)
     A            S02SORULE R        O  4 17REFFLD(QWHFDSO/SORULE QTEMP/SEL)
     A            S02SOCOMP R        O  4 22REFFLD(QWHFDSO/SOCOMP QTEMP/SEL)
     A            S02SOVALU R        O  4 28REFFLD(QWHFDSO/SOVALU QTEMP/SEL)

     A          R C02                       SFLCTL(S02 )
     A                                      OVERLAY
     A  50                                  SFLEND
     A  51                                  SFLDSP
     A  52                                  SFLDSPCTL
     A  53                                  SFLCLR
     A                                      SFLSIZ(0019)
     A                                      SFLPAG(0018)
     A            SRS02          4S 0H      SFLRCDNBR(CURSOR)
     A*
     A                                  1  6'FILE SELECTS   for '
     A            C02APFILE R        O  2  7REFFLD(QWHFDSO/SOFILE QTEMP/SEL)
     A                                  2 20'Lib.'
     A            C02APLIB  R        O  2 25REFFLD(QWHFDSO/SOLIB QTEMP/SEL)
     A                                  3  4'Field'
     A                                  3 28'Select/Omit Value'
     A                                  3 16'S/O'
     A                                  3 21'COMP'






#top