jump to navigation

Convert any iSeries database file to CSV format July 2, 2006

Here is a utility that will convert any iSeries database file to CSV (Comma Seperated Values) format with a delimiter of your choice. You can choose the delimiter
because it is very possible to have a comma in a description. So choose wisely.

I was forced to write this utility and here is why. I had a project to transfer data files from the iSeries 400 to a server that was running California Software Baby 400 system.

Seems simple enough just use the CPYFRMSTMF command or the CPYFRMIMPF right?
Yeah I thought so too. Well as I tried to use these commands as I have used them before and they work just fine if you have a good database file. But IBM did not think of everything
that programmers can do to a database file.

In my case I ran across (and not in just one file) packed numeric data. So what is the problem you ask? The data length of these packed fields were 1 bytes and 2 bytes. Why would you pack a 1 byte numeric field or even a 2 byte numeric field? The above mentioned command did not stop but they did not work either. Can you guess what they did? ……. Ok times up, they took those fields and extended them by 1 byte so the 1 byte packed became 2 bytes and the 2 bytes became 3 bytes. No matter what I did I could not get the file converted correctly on iSeries.

So either I can write a 100 or so programs (which I decided not to do) or write a utility to do all the work for me. Which is what I did and I am sharing this with whoever wants to use it. Feel free to use it and to make what ever changes you need for your use.

All the work is done in QTEMP. The process creates a work file call CVFILEO and a
temporary library with QRPGLESRC and a temporary program called CVPGM. The temp library is the use name with a ‘@’ in front of it. Example: if the user name is kfoland
the library name will be @kfoland.

So we have one work file called CVFILEO.
One command called CVF2CSV. Compiled to call CV0CL.
Two CL programs CV0CL and CV1CL.
Two RPGLE programs CV1 and CV2.

The simple process is as follows:

1. Delete temp files
2. Create duplicate object CVFILEO into QTEMP
3. Display field description on the incoming file into a file called CVFILE
4. Call CV1 to get the record length and call CV1CL to build the flat file with the given
record length.
5. Create the temp library.
6. Create QRPGLESRC in the temp library
7. Add the physical file member CVPGM to QRPGLESRC in the temp library
8. Call CV2 to read the incoming file and to create the temp program CVPGM.
9. Compile CVPGM
10. Call CVPGM
11. Copy the flat file from QTEMP to the out going file.

To get started, compile the file, command and the programs.

Prompt up the command and fill out the parms or just call CV0VL with the following parms.

PARM(&FILE &LIBR &TFILE &TLIBR &DEM)

where

&FILE = database file to be converted
&LIBR = library were the database file is located
&TFILE = name you want for the converted file
&TLIBR = library where the converted file will be
&DEM = the delimiter you want to use. Choose wisely

After the process runs you can check out the temp library and the program that was created in QSYS as the library will get deleted at the beginning of the process. You can change this if you want to delete the library at the end of the process. The process will delete any files or libraries in QTEMP as it runs.

This has help me so I hope it can help others as well.

  1. /********************************************/
  2. /* COMMAND NAME IS CVF2CSV                                   */
  3. /* This command will call CV0CL to convert a database file*/
  4. /* to CSV format with your choice of delimiter                 */
  5. /********************************************/
  6.  
  7.              CMD        PROMPT(‘Convert File to CSV Format’)
  8.              PARM       KWD(FROMFILE) TYPE(*CHAR) LEN(10) +
  9.                           PROMPT(‘Enter File to Convert’)
  10.              PARM       KWD(FROMLIBR) TYPE(*CHAR) LEN(10) +
  11.                           PROMPT(‘Enter Library for Input File’)
  12.              PARM       KWD(TOFILE) TYPE(*CHAR) LEN(10) +
  13.                           PROMPT(‘Converted File Name’)
  14.              PARM       KWD(TOLIBR) TYPE(*CHAR) LEN(10) +
  15.                           PROMPT(‘Library for Converted File’)
  16.              PARM       KWD(DELIMITER) TYPE(*CHAR) LEN(1) DFT(‘~’) +
  17.                           PROMPT(‘Delimiter’)
  1. /******************************************/
  2. /* CL name is cv0cl                                                  */
  3. /* CL to run the process to convert a file passed to csv */
  4. /* file format                                                          */
  5. /******************************************/
  6.  
  7.              PGM        PARM(&FILE &LIBR &TFILE &TLIBR &DEM)
  8.              DCL        VAR(&LIBR)   TYPE(*CHAR) LEN(10)
  9.              DCL        VAR(&FILE)   TYPE(*CHAR) LEN(10)
  10.              DCL        VAR(&TLIBR)  TYPE(*CHAR) LEN(10)
  11.              DCL        VAR(&TFILE)  TYPE(*CHAR) LEN(10)
  12.              DCL        VAR(&USER)   TYPE(*CHAR) LEN(10)
  13.              DCL        VAR(&WLIBR)  TYPE(*CHAR) LEN(10)
  14.              DCL        VAR(&DEM)    TYPE(*CHAR) LEN(1)
  15.              DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(5)
  16.              DCL        VAR(&MSGID)  TYPE(*CHAR) LEN(7)
  17.              DCL        VAR(&MSG)    TYPE(*CHAR) LEN(100)
  18.              DCL        VAR(&MSGF)   TYPE(*CHAR) LEN(10)
  19.              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))
  20.              RTVJOBA    USER(&USER)
  21.              CHKOBJ     OBJ(&LIBR/&FILE) OBJTYPE(*FILE)
  22.              DLTF       FILE(QTEMP/CVFILE)
  23.              MONMSG     MSGID(CPF0000)
  24.              DLTF       FILE(QTEMP/CVFLAT)
  25.              MONMSG     MSGID(CPF0000)
  26.              DLTF       FILE(QTEMP/CVFILEO)
  27.              MONMSG     MSGID(CPF0000)
  28.              CRTDUPOBJ  OBJ(CVFILEO) FROMLIB(KFOLAND) OBJTYPE(*FILE) +
  29.                           TOLIB(QTEMP)
  30.              DSPFFD     FILE(&LIBR/&FILE) OUTPUT(*OUTFILE) +
  31.                           OUTFILE(QTEMP/CVFILE)
  32.              OVRDBF     FILE(CVFILE) TOFILE(QTEMP/CVFILE)
  33.              OVRDBF     FILE(CVFILEO) TOFILE(QTEMP/CVFILEO)
  34.              CALL       PGM(CV1) PARM(&LENGTH)
  35.              IF         COND(&LENGTH *NE ‘00000′) THEN(DO)
  36.              CHGVAR     VAR(&WLIBR) VALUE(‘@’ *TCAT %SUBSTRING(&USER +
  37.                           1 9))
  38.  
  39. /* create the temp library for the temp program             */
  40.  
  41.              DLTLIB     LIB(&WLIBR)
  42.              MONMSG     MSGID(CPF0000)
  43.              CRTLIB     LIB(&WLIBR)
  44.              CRTSRCPF   FILE(&WLIBR/QRPGLESRC) RCDLEN(112)
  45.              ADDPFM     FILE(&WLIBR/QRPGLESRC) MBR(cvpgm) +
  46.                           TEXT(‘Convert program’) SRCTYPE(RPGLE)
  47.              OVRDBF     FILE(cvpgm) TOFILE(&WLIBR/QRPGLESRC) +
  48.                           MBR(cvpgm)
  49.              OVRDBF     FILE(CVFLAT) TOFILE(QTEMP/CVFLAT)
  50.              CALL       PGM(CV2) PARM(&FILE &LENGTH &DEM)
  51.              DLTOVR     FILE(*ALL)
  52.              OVRDBF     FILE(&FILE) TOFILE(&LIBR/&FILE)
  53.              CRTBNDRPG  PGM(&WLIBR/CVPGM) SRCFILE(&WLIBR/QRPGLESRC) +
  54.                           OUTPUT(*PRINT)
  55.              OVRDBF     FILE(&FILE) TOFILE(&LIBR/&FILE)
  56.              OVRDBF     FILE(CVFLAT) TOFILE(QTEMP/CVFLAT)
  57.              CALL       PGM(&WLIBR/cvpgm)
  58.              DLTOVR     FILE(*ALL)
  59.              CPYF       FROMFILE(QTEMP/CVFLAT) TOFILE(&TLIBR/&TFILE) +
  60.                           MBROPT(*REPLACE) CRTFILE(*YES)
  61.              ENDDO
  62.              GOTO       CMDLBL(ENDPGM)
  63.              /*                                                      */
  64.              /*—————————————*/
  65.              /* NORMAL PROGRAM EXIT                      */
  66.              /*—————————————*/
  67.              /*                                                      */
  68.  
  69.  EXIT:       GOTO       CMDLBL(ENDPGM)
  70.              /*                                                      */
  71.              /*—————————————*/
  72.              /*  ERROR HANDLING ROUTINE                 */
  73.              /*—————————————*/
  74.              /*                                                      */
  75.  
  76.  ERROR:      RCVMSG     MSGDTA(&MSG) MSGID(&MSGID) MSGF(&MSGF)
  77.              MONMSG     MSGID(CPF0000)
  78.              SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGF) MSGDTA(&MSG) +
  79.                           MSGTYPE(*ESCAPE)
  80.              MONMSG     MSGID(CPF0000)
  81.              GOTO       CMDLBL(ENDPGM)
  82.              /*                                                      */
  83.              /*                                                      */
  84.  
  85.  ENDPGM:     ENDPGM
  1. H OPTION(*Srcstmt : *Nodebugio)
  2.      A********************************************
  3.      A* program name IS cv1                                                *
  4.      A* figure the record length of the file being converted        * 
  5.      A********************************************
  6.      A*
  7.      fCvfile    IF   e             Disk    Usropn
  8.      fCvfileo   o    e             Disk
  9.      A*
  10.      d @Total          s              5  0
  11.      d @FIELDS         s              5  0
  12.      d @Start          s              5  0
  13.      d @Length         s              5
  14.      A*   
  15.      c     *Entry        Plist
  16.      c                   Parm                    @Length
  17.      A* Open AND READ the file AND figure the new length
  18.      A* after ALL the packed FIELDS are unpacked
  19.      c                   Open      Cvfile
  20.      c                   DoU       %Eof(Cvfile)
  21.      c                   READ      Cvfile
  22.      c                   IF        NOT %Eof(Cvfile)
  23.      c
  24.      A*   
  25.      c                   Eval      @FIELDS = Whnfld
  26.      A* IF packed then USE the unpacked length
  27.      c                   IF        Whfldt = ‘P’
  28.      c                   Eval      Whfldb = Whfldd
  29.      c                   EndIf
  30.      c                   IF        Whfldt = ‘A’
  31.      c                   Eval      @Total = @Total + 2
  32.      c                   EndIf
  33.      c                   IF        Whfldp <> *Zeros
  34.      c                   Eval      @Total = @Total + 2
  35.      c                   EndIf
  36.      A* ADD TO get the new total record length
  37.      c                   Eval      @Total = @Total + Whfldb
  38.      A*   
  39.      A*   
  40.      c                   EndIf
  41.      c                   EndDo
  42.      A*
  43.      c                   Close     Cvfile
  44.      c                   Eval      @Total = @Total + @FIELDS
  45.      c                   Move      @Total        @Length
  46.      c                   IF        @Total <> *Zeros
  47.      A* CREATE the flat file
  48.      c                   Call      ‘CV1CL’
  49.      C                   Parm                    @Total
  50.      A*   
  51.      c                   EndIf
  52.      A*   
  53.      c                   Eval      @Start = 0
  54.      A* Open AND READ the file AND output info TO work file
  55.      c                   Open      Cvfile
  56.      c                   DoU       %Eof(Cvfile)
  57.      c                   READ      Cvfile
  58.      c                   IF        NOT %Eof(Cvfile)
  59.      A*   
  60.      A* IF packed then USE the unpacked length
  61.      c                   IF        Whfldt = ‘P’
  62.      c                   Eval      Whfldb = Whfldd
  63.      c                   Eval      Whfldt = ‘S’
  64.      c                   EndIf
  65.      A*   
  66.      c                   IF        @Start = *Zeros
  67.      c                   Eval      @Start  = 1
  68.      c                   Eval      Cvstart = 1
  69.      c                   Eval      Cvend   = Whfldb
  70.      c                   Else
  71.      c                   Eval      Cvstart = Cvend + 1
  72.      c                   Eval      Cvend   = Cvend + Whfldb
  73.      c                   EndIf
  74.      A*   
  75.      c                   Eval      Cvfname  = Whfile
  76.      c                   Eval      Cvfield  = Whfldi
  77.      c                   Eval      Cvtype   = Whfldt
  78.      c                   Eval      Cvlength = Whfldb
  79.      c                   Eval      Cvdec    = Whfldp
  80.      c                   Eval      Cvformat = Whname
  81.      c                   WRITE     Cvrec
  82.      A*   
  83.      A*
  84.      c                   EndIf
  85.      c                   EndDo
  86.      c                   Close     Cvfile
  87.      A*   
  88.      A*   
  89.      c                   Eval      *Inlr = *ON
  1. /*****************************************************/
  2. /* cl name is cv1cl                                  */
  3. /* cl to build a temp flat file based on parms sent  */
  4. /* into the program                                  */
  5. /*****************************************************/
  6.  
  7.              PGM        PARM(&LENGTH)
  8.              DCL        VAR(&LENGTH) TYPE(*DEC) LEN(5 0)
  9.              DLTF       FILE(QTEMP/CVFLAT)
  10.              MONMSG     MSGID(CPF0000)
  11.              CRTPF      FILE(QTEMP/CVFLAT) RCDLEN(&LENGTH)
  12.  END:        ENDPGM
  1. H OPTION(*Srcstmt : *Nodebugio)
  2.      A**********************************************************************
  3.      A* program name IS cv2                                                *
  4.      A* this program will WRITE the program needed TO convert the file     *
  5.      A* TO CSV format                                                      *
  6.      A**********************************************************************
  7.      A*
  8.      fCvfileo   IF   e             Disk      Prefix(x_) Usropn
  9.      fCvpgm     uf a f  114        Disk
  10.      A*
  11.      d Rspec           Ds
  12.      d  Rrec                        112
  13.      A*
  14.      d @File           s             10
  15.      d @Length         s              5
  16.      d @Dem            s              1
  17.      d @Char5          s              5
  18.      d @Char2          s              2
  19.      d @Cvfield        s                   LIKE(x_Cvfield)
  20.      A*   
  21.      A* output the first d spec record
  22.      c                   Eval      %Subst(Rrec:18:1)   = ‘d’
  23.      c                   Eval      %Subst(Rrec:20:18)  = ‘Key             S ‘
  24.      c                   Eval      %Subst(Rrec:50:2)   = ‘10′
  25.      c                   Except    Drecadd
  26.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  27.      A* output the first d spec record
  28.      c                   Eval      %Subst(Rrec:20:18)  = ‘FlatDs          Ds’
  29.      c                   Except    Drecadd
  30.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  31.      A*   
  32.      A* open the file AND output the rest of the d spec
  33.      c                   Open      Cvfileo
  34.      c                   DoU       %Eof(Cvfileo)
  35.      c                   READ      Cvfileo
  36.      c                   IF        NOT %Eof(Cvfileo)
  37.      A*   
  38.      c                   IF        x_Cvtype = ‘A’
  39.      c                   Eval      %Subst(Rrec:51:13) = ‘1a   Inz(’‘"’‘)’
  40.      c                   Except    Drecadd
  41.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  42.      c                   EndIf
  43.      A* IF there IS a decimal then increase the length BY 2
  44.      A* this IS TO allow FOR the decimal IN the flat file
  45.      A* AND FOR the sign
  46.      c                   IF        x_Cvdec > *Zeros
  47.      c                   Eval      x_Cvlength = x_Cvlength + 2
  48.      c**                 Eval      %Subst(Rrec:56:9) = ‘Inz      ‘
  49.      c                   EndIf
  50.      A* the FIELD name IN the program can NOT be the same
  51.      A* AS the file name.
  52.      c                   IF        x_Cvfield = x_Cvformat
  53.      c                   Eval      x_Cvfield = ‘xx        ‘
  54.      c                   EndIf
  55.      A*   
  56.      c                   Move      x_Cvlength    @Char5
  57.      c                   Eval      %Subst(Rrec:19:18)  = x_Cvfield
  58.      c                   Eval      %Subst(Rrec:47:5)  = @Char5
  59.      c*                  Eval      %Subst(Rrec:52:1)  = x_Cvtype
  60.      c                   Eval      %Subst(Rrec:52:1)  = ‘a’
  61.       *   
  62.      c*                  IF        x_Cvtype = ‘S’
  63.      c*                  Move      x_Cvdec       @Char2
  64.      c*                  Eval      %Subst(Rrec:53:2)  = @Char2
  65.      c*                  Else
  66.      c                   Eval      %Subst(Rrec:53:2)  = ‘  ‘
  67.      c*                  EndIf
  68.      A*   
  69.      c                   Except    Drecadd
  70.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  71.      A*   
  72.      c                   IF        x_Cvtype = ‘A’
  73.      c                   Eval      %Subst(Rrec:51:13) = ‘1a   Inz(’‘"’‘)’
  74.      c                   Except    Drecadd
  75.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  76.      c                   EndIf
  77.      A* SET the delimiter
  78.      c                   Eval      %Subst(Rrec:51:13) = ‘1a   Inz(’‘ ‘‘)’
  79.      c                   Eval      %Subst(Rrec:61:1) = @Dem
  80.      c                   Except    Drecadd
  81.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  82.      A*   
  83.      c                   EndIf
  84.      c                   EndDo
  85.      A* close the file FOR the c spce
  86.      c                   Close     Cvfileo
  87.      A****************************************************************************
  88.      A*   
  89.      A* output the first c spec record
  90.      c                   Eval      %Subst(Rrec:18:1)   = ‘c’
  91.      c                   Eval      %Subst(Rrec:38:3)  = ‘DoU’
  92.      c                   Eval      %Subst(Rrec:48:16)  = ‘%Eof(          )’
  93.      c                   Eval      %Subst(Rrec:53:10)  = @File
  94.      A*   
  95.      c                   Except    Crecadd
  96.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  97.      A*   
  98.      c                   Eval      %Subst(Rrec:38:18)  = ‘                  ‘
  99.      c                   Eval      %Subst(Rrec:38:4)  = ‘Read’
  100.      c                   Eval      %Subst(Rrec:48:10)  = @File
  101.      A*   
  102.      c                   Except    Crecadd
  103.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  104.      A*   
  105.      c                   Eval      %Subst(Rrec:38:18)  = ‘                  ‘
  106.      c                   Eval      %Subst(Rrec:38:3)  = ‘If ‘
  107.      c                   Eval      %Subst(Rrec:48:20)  = ‘Not %Eof(          )’
  108.      c                   Eval      %Subst(Rrec:57:10)  = @File
  109.      A*   
  110.      c                   Except    Crecadd
  111.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  112.      A*   
  113.      A* open the file AND output the rest of the c specs
  114.      c                   Open      Cvfileo
  115.      c                   DoU       %Eof(Cvfileo)
  116.      c                   READ      Cvfileo
  117.      c                   IF        NOT %Eof(Cvfileo)
  118.      A* save FIELD name
  119.      c                   Eval      @Cvfield = x_Cvfield
  120.      A* the FIELD name IN the program can NOT be the same
  121.      A* AS the file name.
  122.      c                   IF        x_Cvfield = x_Cvfname
  123.      c                   Eval      x_Cvfield = ‘xx        ‘
  124.      c                   EndIf
  125.      A*   
  126.      A* SET up the KEY AND the chain TO CHECK FOR decimals
  127.      c                   IF        x_Cvdec > *Zeros
  128.      A*
  129.      c                   Eval      %Subst(Rrec:38:6)   = ‘Clear ‘
  130.      c                   Eval      %Subst(Rrec:62:10)  = ‘Key       ’
  131.      c                   Except    Crecadd
  132.      c                   Eval      %Subst(Rrec:38:6)   = ‘MoveL ‘
  133.      c                   Eval      %Subst(Rrec:48:1)   = ””
  134.      c                   Eval      %Subst(Rrec:49:10)  = %subst(x_Cvfield:1:10)
  135.      c                   Eval      %Subst(Rrec:59:1)   = ””
  136.      c                   Eval      %Subst(Rrec:62:10)  = ‘Key       ’
  137.      c                   Except    Crecadd
  138.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  139.      A*   
  140.      A* do the chain
  141.      c                   Eval      %Subst(Rrec:24:10)  = ‘Key       ’
  142.      c                   Eval      %Subst(Rrec:38:6)   = ‘Chain ‘
  143.      c                   Eval      %Subst(Rrec:48:7)   = ‘Cvfileo’
  144.      c                   Except    Crecadd
  145.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  146.      c                   Eval      %Subst(Rrec:38:6)   = ‘If    ‘
  147.      c                   Eval      %Subst(Rrec:48:17)  = ‘Z_Cvdec <> *Zeros’
  148.      c                   Except    Crecadd
  149.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  150.      c                   Eval      %Subst(Rrec:38:6)   = ‘Eval  ‘
  151.      c***************    Eval      %Subst(Rrec:48:2)   = ‘x_’
  152.      c                   Eval      %Subst(Rrec:48:10)  = x_Cvfield
  153.      c                   Eval      %Subst(Rrec:60:9)   = ‘= %Editc(’
  154.      c                   Eval      %Subst(Rrec:69:2)   = ‘x_’
  155.      c                   Eval      %Subst(Rrec:71:10)  = x_Cvfield
  156.      c                   Eval      %Subst(Rrec:81:5)   = ‘:’‘P’‘)’
  157.      c                   Except    Crecadd
  158.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  159.      c                   Eval      %Subst(Rrec:38:6)   = ‘Else  ‘
  160.      c                   Except    Crecadd
  161.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  162.      A*   
  163.      c                   EndIf
  164.      A*   
  165.      c                   Eval      %Subst(Rrec:38:6)   = ‘Move  ‘
  166.      c                   Eval      %Subst(Rrec:48:2)   = ‘x_’
  167.      c                   Eval      %Subst(Rrec:50:10)  = @Cvfield
  168.      c                   Eval      %Subst(Rrec:62:10)  = x_Cvfield
  169.      c                   Except    Crecadd
  170.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  171.      A*
  172.      c                   IF        x_Cvdec > *Zeros
  173.      A*
  174.      c                   Eval      %Subst(Rrec:38:6)   = ‘EndIf ‘
  175.      c                   Except    Crecadd
  176.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  177.      c                   EndIf
  178.      A*   
  179.      c                   EndIf
  180.      c                   EndDo
  181.      A* close the file
  182.      c                   Close     Cvfileo
  183.      A*   
  184.      c                   Eval      %Subst(Rrec:38:6)   = ‘Except’
  185.      c                   Eval      %Subst(Rrec:48:7)   = ‘Flatout’
  186.      c                   Except    Crecadd
  187.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  188.      A*   
  189.      c                   Eval      %Subst(Rrec:38:5)   = ‘EndIf’
  190.      c                   Except    Crecadd
  191.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  192.      A*   
  193.      c                   Eval      %Subst(Rrec:38:5)   = ‘EndDo’
  194.      c                   Except    Crecadd
  195.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  196.      A*   
  197.      c                   Eval      %Subst(Rrec:38:4)   = ‘Eval’
  198.      c                   Eval      %Subst(Rrec:48:11)  = ‘*Inlr = *On’
  199.      c                   Except    Crecadd
  200.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  201.      A****************************************************************************
  202.      A*   
  203.      A* output the o specs
  204.      c                   Eval      %Subst(Rrec:18:1)   = ‘o’
  205.      c                   Eval      %Subst(Rrec:19:10)  = ‘Cvflat    ‘
  206.      c                   Eval      %Subst(Rrec:29:4)  = ‘eadd’
  207.      c                   Eval      %Subst(Rrec:42:7)  = ‘Flatout’
  208.      c                   Except    Orecadd
  209.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  210.      A*   
  211.      c                   Eval      %Subst(Rrec:19:10)  = ‘          ‘
  212.      c                   Eval      %Subst(Rrec:29:4)  = ‘    ‘
  213.      c                   Eval      %Subst(Rrec:42:7)  = ‘Flatds ‘
  214.      c                   Except    Orecadd
  215.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  216.      A*   
  217.      c                   Eval      *Inlr = *ON
  218.      A*******************************************************
  219.      A* first time processing                               *
  220.      A*******************************************************
  221.      c     *Inzsr        Begsr
  222.  
  223.      c     *Entry        Plist
  224.      c                   Parm                    @File
  225.      c                   Parm                    @Length
  226.      c                   Parm                    @Dem
  227.      A*
  228.      A* output the h spec record
  229.      c                   Eval      %Subst(Rrec:18:1)  = ‘h’
  230.      c*                  Eval      %Subst(Rrec:20:29) =
  231.      c*                            ‘Option(*Srcstmt : *Nodebugio)’
  232.      c                   Except    Hrecadd
  233.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  234.      A*
  235.      A* open the file AND CHECK FOR formant name
  236.      c                   Open      Cvfileo
  237.      c                   READ      Cvfileo
  238.      c                   Close     Cvfileo
  239.      A* output the f spec record
  240.      c                   Eval      %Subst(Rrec:18:1)  = ‘f’
  241.      c                   Eval      %Subst(Rrec:19:10) = @File
  242.      c                   Eval      %Subst(Rrec:29:6) = ‘if   e’
  243.      c                   Eval      %Subst(Rrec:48:4) = ‘Disk’
  244.      c                   Eval      %Subst(Rrec:56:10) = ‘Prefix(x_)’
  245.      c                   Except    Frecadd
  246.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  247.      A*
  248.      c                   IF        x_Cvfname = x_Cvformat
  249.      c                   Eval      %Subst(Rrec:56:7)  = ‘Rename(’
  250.      c                   Eval      %Subst(Rrec:63:10) = x_Cvformat
  251.      c                   Eval      %Subst(Rrec:73:3)  = ‘:x)’
  252.      c                   Except    Frecadd
  253.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  254.      c                   EndIf
  255.      A*
  256.      A* output the f spec record
  257.      c                   Eval      %Subst(Rrec:18:1)  = ‘f’
  258.      c                   Eval      %Subst(Rrec:19:10) = ‘Cvflat    ‘
  259.      c                   Eval      %Subst(Rrec:29:6) = ‘uf a f’
  260.      c                   Eval      %Subst(Rrec:35:5) = @Length
  261.      c                   Eval      %Subst(Rrec:48:4) = ‘Disk’
  262.      c                   Except    Frecadd
  263.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  264.      A* output the last  f spec record
  265.      c                   Eval      %Subst(Rrec:18:1)  = ‘f’
  266.      c                   Eval      %Subst(Rrec:19:10) = ‘Cvfileo   ’
  267.      c                   Eval      %Subst(Rrec:29:6) = ‘if   e’
  268.      c                   Eval      %Subst(Rrec:46:6) = ‘k Disk’
  269.      c                   Eval      %Subst(Rrec:56:10) = ‘Prefix(z_)’
  270.      c                   Except    Frecadd
  271.      c                   Eval      %Subst(Rrec:19:93) = *Blanks
  272.      A*
  273.      A*
  274.      c     #Inzsr        Endsr
  275.      A*
  276.      oCvpgm     eadd         Hrecadd
  277.      o                       Rrec
  278.      A*
  279.      o          eadd         Frecadd
  280.      o                       Rrec
  281.      A*
  282.      o          eadd         Drecadd
  283.      o                       Rrec
  284.      A*
  285.      o          eadd         Crecadd
  286.      o                       Rrec
  287.      A*
  288.      o          eadd         Orecadd
  289.      o                       Rrec
  1. A* FILE NAME CVFILEO
  2.      A* CONVERSION WORK FILE
  3.      A*
  4.      A          R CVREC
  5.      A*
  6.      A            CVFNAME       10A         TEXT(‘FILE  NAME’)
  7.      A            CVFIELD       10A         TEXT(‘FIELD NAME’)
  8.      A            CVTYPE         1A         TEXT(‘FIELD TYPE’)
  9.      A            CVSTART        5S 0       TEXT(‘FIELD START’)
  10.      A            CVEND          5S 0       TEXT(‘FIELD END  ‘)
  11.      A            CVLENGTH       5S 0       TEXT(‘FIELD LENGTH’)
  12.      A            CVDEC          2S 0       TEXT(‘FIELD DEC   ’)
  13.      A            CVFORMAT      10A         TEXT(‘FIELD FORMAT’)
  14.      A*
  15.      A          K CVFIELD


Possible Related Links
  • Tip: Converting String to Number in QUERY/400
  • PHP on iSeries
  • Post a Classified Ad

    • Input-Output Strategies May 15, 2006

    I came across an interesting and thought provoking post by Max Harris on his blog From Here to Modernity, where  questions about I-O Strategies (when dealing with a critical table) evoked responses from more than 90 iSeries professionals.

    Four options were presented as follows:

    1. Replacing F-specs in RPG program with SQL in all the programs or modules that use the table ( Embedded SQL ).
    2. Move I-O to a SRVPGM and have a procedure return the record format.
    3. Move I-O to a SRVPGM and have several procedures which return various data structures.
    4. Move I-O to a SRVPGM and have field getters and field setters (JAVA).

    We all know that first option is not very efficient, but read the post and related comments and arrive at your own conclusion.


    Possible Related Links
  • For Sale
  • Jobs
  • Advertise

    • QSHELL on iSeries April 14, 2006

    Ever wondered about QSHELL? It is a UNIX shell on iSeries. To access QSHELL, type in STRQSH on the command line. But before you go any further, head out to Thibault Dambrine’s tutorial : Exploring iSeries QSHELL: Concepts & Tutorial.

    This tutorial explains in simple language the syntax of Unix commands, where to find help, how permissions work, and the basics of how to write a QShell script.

    Some background on QSHELL: To be fully Java compliant, IBM needed to supply a JDK (Java Development Kit) on its iSeries eServer that could run standard Java commands such as Java, Javac or Javadoc, the same way other (UNIX) systems could. There was only one snag, OS/400 was NOT  ’a flavor of’ UNIX. The OS/400 IBM team resolved this hurdle by supplying a new ‘UNIX style shell‘ on the iSeries and appropriately named it ‘QSHELL‘.


    Possible Related Links
  • iSeries RPG programming links
  • PHP on iSeries
  • FOR SALE: IBM iSeries Model 825

    • Open Source iSeries Toolkit April 11, 2006

    While searching for an open source software for my other project, I came across Open Source iSeries Toolkit. For those of you new to Open Source Software, it is a program in which the source code is available to the general public for use and/or modification from its original design free of charge. Open source code is typically created as a collaborative effort in which programmers improve upon the code and share the changes within the community. Open source sprouted in the technological community as a response to proprietary software owned by corporations. Learn more about it at opensource.org.

    iSeries Toolkit is a bag of utilities that support Dynamic SQL, Messaging, IFS file access, User spaces, User indexes, Dynamic Native File Access, XML, and Source Generation. These RPGIV ILE and Java tools work on most recent releases of the iSeries and AS/400.

    Get Involved

    Apart from being a user of this toolkit, you can get involved as a developer. You can actually help developing the iSeries Toolkit by either fixing the bugs reported or adding / enhancing the utilities by checking the features requested. This open source project has a very active community that is constantly working on improving the toolkit. You can download the toolkit and try it yourself.

    Here are some of the features requested:

    Are you ready to accept these challenging tasks?

    If you have any comments or opinions, please click on "Comment" link below this article.


    Possible Related Links
  • How to register for iSeries forums
  • Convert any iSeries database file to CSV format
  • iSeries Users Group Forums are now open

    • iSeries RPG programming links April 8, 2006

    I am sure every RPG programmer is aware of  Scott Klement’s Club Tech iSeries Programming Tips Newsletter, but do you know, he has few other goodies in his bag?

    For rookie iSeries RPG programmers, he has a tutorial titled How to Learn RPG.

    For iSeries programmers, who want to experiment with pointers, try having Fun with RPG pointers.

    Learn about Reading and Writing from Integrated File System or if you are internet-inclined try Sockets and TCP Programming.


    Possible Related Links
  • iSeries Users Group Forums are now open
  • Home
  • Introduction

    • iSeries Interview Questions April 1, 2006

    *** The intention of these interview questions is to challenge my readers. I never intended to give out the answers. Those who seek answers, please use Google search for your quest. Google is your friend. Good Luck!

    iSeries has evolved a lot since 1988, but interview questions have remained practically unchanged. Here are few of them which I came across on a forum. This post is also in the General forum. Feel free to contribute the answers to these questions either here in the comments area or in the forums area.

    1. How do you know if a record exists without  doing a READ and CHAIN?
    2. What will be your approach in going either for OPNQRYF or Logical files. Which one to go for?
    3. How do you call procedures in ILE?
    4. What is the syntax of passing parameters to a procedure by value?
    5.  How do you code file / field renames in ILE RPG?
    6. In ProgramB  there is a SBMJOB, which is a call to program C  .There is also a CALL to program D from B. How would you check the program C has been executed in D?
    7. How do you find whether a record is locked or not?
    8. What is the difference between RPG/400 and RPG4
    9. How do you find whether a job is a batch job or interactive?
    10. What you have to do in the display file when you are using message subfile?
    11. How to set on/off a group of indicators in a single statement?
    12. How can you determine the number of characters in a variable?
    13. Let’s consider a variable X of length 20. Move value ‘ABC’ to it.How to determine how many characters does X have?
    14. Suppose you have 3 members in a database file. How to read records from all the members without using CL (OVRDBF) i.e. Entire process should be handled exclusively in a RPG program?
    15. How do you do indexing in a physical file?
    16. Can an indexed file be accessed in arrival sequence in RPG?
    17. When will DUMP & DEBUG  be ignored?
    18. what is the necessary command needed before OPNQRYF and why?
    19. Can you copy the records created by the OPNQRYF to other files and how?
    20. What are different ways to pass data between programs and which one is the efficient way?
    21. What are the necessary keywords required to code a message subfile?
    22. What is the purpose of FRCDTA keyword? 
    23. What is the purpose of PUTOVR keyword?
    24. What is journalling and commitment control?
    25. What is the purpose of Panel Groups?
    26. How can a screen field that has changed since the last output operation be detected?
    27. What would be the effect on the field where reverse image, underline and high intensity?
    28. Can more than one subfile record be displayed on one line?


    Possible Related Links
  • iSeries Users Group Forums are now open
  • Input-Output Strategies
  • How to register for iSeries forums

    • A treasure of iSeries APIs March 15, 2006

    While  Googling for Retrieve Job Information API ( QUSRJOBI ), I stumbled upon Collin Willam’s  informative AS400 Blog. His blog is a treasure of information for all things iSeries and much more. This blog is worth residing on MMUG’s blogroll. Read more about Retrieve Job Information and other APIs here.


    Possible Related Links
  • QSHELL on iSeries
  • iSeries RPG programming links
  • PHP on iSeries