DSPIFS DMPIFS Display & dump IFS file

page d'accueil
Boite à outils

Cette page a été mise à jour le 14 septembre 2009
Contact

Welcome page
Tools box

Ces deux commandes permettent de consulter sur écran (DSPIFS) ou dans un spoule (DMPIFS) le contenu d'un fichier IFS. L'affichage est présenté en hexa (ASCII donc) et en clair, la conversion en EBCDIC est fournie par l'OS en fonction du code page du fichier ouvert, si la conversion est possible par l'API Open. 
La conversion Unicode n'est pas assurée par l'API. (CCSIDs 1200, 1208, 13488)
These two commands permit to consult on screen (DSPIFS) or in a spool (DMPIFS) the content of an IFS file. The display is presented in hexa (ASCII therefore) and in clear, the conversion to EBCDIC is provided by the OS according to the code page of the open file, if the conserion is available for the API Open. 
Unicode conversion is not available (CCSIDs 1200, 1208, 13488)

DSPIFS :

                                                                                                                                                               
  DSPIFSR      A   31/03/06   16:36:40   SYSTEM     JPL      jp   jpltools                   
              Afficher un fichier IFS                                               
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                 
Fichier.....                                                                       
                                                                                
                                                                                
                                                                                 
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                  
                                               
  Bonjour                                                                         
297                                                                 10,1
Quand elle est appelée, la commande attend un nom de fichier. Vous pouvez écrire à la place un nom du répertoire,  F4 affichera le contenu du dossier. Si rien n'est saisi, F4 commence de la racine de l'IFS.

Nota: mon programme utilise la procédure QSORT (Quick Sort du run-time library C) pour trier la liste. Elle est fournie dans le *BNDDIR QC2LE 

When called,  the command prompt you for a file name. You can type a directory name then F4 to show the list of directory contained files. If nothing typed, F4 starts from the IFS root.

Nota : my program uses the C run-time library QSORT procedure to sort the list. It is provided in the *BNDDIR QC2LE

                                                                                                                                                               
  DSPIFSR      C   31/03/06   16:37:06   SYSTEM     JPL      jp   jpltools                    
/jpl                                                                            
                                                                                 
                                                                                
  5=Afficher                                                                       
  S Lien                  type ...                                                
    .                                                    *dir                        
    ..                                                   *dir                        
    FirstBmp.Bmp                                         *STMF                       
    FirstPdf.pdf                                         *STMF                       
    Image.bmp                                            *STMF                       
    jpl.bmp                                              *STMF                       
    rgb.bmp                                              *STMF                       
    Second.pdf                                           *STMF                       
    Value.bmp                                            *STMF                       
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                   
                                                                                  
                                               
                                                                                  
297                                                                 7,2

texte

Retour de l'aide : la page affiche le nom de fichier complet Go back from help : screen shows the complete file name
                                                                                                                                                               
  DSPIFSR      A   31/03/06   16:37:25   SYSTEM     JPL      jp   jpltools                   
              Afficher un fichier IFS                                               
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                 
Fichier.....                                                                       
                                                                                
                                                                                
                                                                                 
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                  
                                               
                                                                                  
297                                                                 10,1

texte

La page suivante affiche le contenu hexadécimal Next screen shows hexa content
                                                                                                                                                               
  DSPIFSR      B   31/03/06   16:37:38   SYSTEM     JPL      jp   jpltools                    
/jpl/FirstPdf.pdf                                                               
      10406   Bytes                                                                  
    Déplacement         Hexa                             | Clair                  
(File starts at 0 )                    1 1 1 1 1  1 1 1 1 1 |           1111111111    
    + 0 1 2 3 4  5 6 7 8 9  0 1 2 3 4  5 6 7 8 9 | 01234567890123456789   
                255044462D   312E3425E2   E3CFD30D0A   342030206F   |   %PDF-1.4%âãÏÓ..4 0 o    
         20     626A203C3C   202F547970   65202F466F   6E74202F53   |   bj << /Type /Font /S    
         40     7562747970   65202F5479   706531202F   4E616D6520   |   ubtype /Type1 /Name     
         60     2F4631202F   4261736546   6F6E74202F   436F757269   |   /F1 /BaseFont /Couri    
         80     6572202F45   6E636F6469   6E67202F57   696E416E73   |   er /Encoding /WinAns    
        100     69456E636F   64696E6720   3E3E20656E   646F626A0D   |   iEncoding >> endobj.    
        120     0A35203020   6F626A203C   3C202F5479   7065202F46   |   .5 0 obj << /Type /F    
        140     6F6E74202F   5375627479   7065202F54   7970653120   |   ont /Subtype /Type1     
        160     2F4E616D65   202F463220   2F42617365   466F6E7420   |   /Name /F2 /BaseFont     
        180     2F436F7572   6965722D42   6F6C64202F   456E636F64   |   /Courier-Bold /Encod    
        200     696E67202F   57696E416E   7369456E63   6F64696E67   |   ing /WinAnsiEncoding    
        220     203E3E2065   6E646F626A   0D0A362030   206F626A20   |    >> endobj..6 0 obj     
        240     3C3C202F54   797065202F   466F6E7420   2F53756274   |   << /Type /Font /Subt    
        260     797065202F   5479706531   202F4E616D   65202F4633   |   ype /Type1 /Name /F3    
        280     202F426173   65466F6E74   202F436F75   726965722D   |    /BaseFont /Courier   +  
                                                                                  
                                               
                                                                                  
297                                                                 6,2
DMPIFS  
                                                                                                                                                               
                                       Dump IFS file (DMPIFS)                               
                                                                                        
  Indiquez vos choix, puis appuyez sur ENTREE.                                     
                                                                                
  Ifs File Name  . . . . . . . . .      
                                                                                  
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                              Fin  
                     
                                                                
  Paramètre IFSFILE obligatoire.                                                  
297                                                                 5,37
La commande requiers un nom de fichier

spoule produit :

The file name is mandatory

Producted spool :


DMPIFS 2006/03/31 /jpl/firstpdf.pdf
255044462D312E3425E2E3cFD30D0A342030206F626A203c3c202F54797065202F466F6E74202F53756274797065202F5479 %PDF-1.4%âãÏÓ..4 0 obj << /Type /Font /Subtype /Ty
706531202F4E616D65202F4631202F42617365466F6E74202F436F7572696572202F456E636F64696E67202F57696E416E73 pe1 /Name /F1 /BaseFont /Courier /Encoding /WinAns
69456E636F64696E67203E3E20656E646F626A0D0A352030206F626A203c3c202F54797065202F466F6E74202F5375627479 iEncoding >> endobj. 5 0 obj << /Type /Font /Subty
7065202F5479706531202F4E616D65202F4632202F42617365466F6E74202F436F75726965722D426F6c64202F456E636F64 pe /Type1 /Name /F2 /BaseFont /Courier-Bold /Encod
696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A362030206F626A203c3c202F54797065202F ing /WinAnsiEncoding >> endobj 6 0 obj << /Type /
466F6E74202F53756274797065202F5479706531202F4E616D65202F4633202F42617365466F6E74202F436F75726965722D Font /Subtype /Type1 /Name /F3 /BaseFont /Courier-
4F626c69717565202F456E636F64696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A37203020 Oblique /Encoding /WinAnsiEncoding >> endobj 7 0
6F626A203c3c202F54797065202F466F6E74202F53756274797065202F5479706531202F4E616D65202F4634202F42617365 obj << /Type /Font /Subtype /Type1 /Name /F4 /Base
466F6E74202F436F75726965722D426F6c644F626c69717565202F456E636F64696E67202F57696E416E7369456E636F6469 Font /Courier-BoldOblique /Encoding /WinAnsiEncodi
6E67203E3E20656E646F626A0D0A382030206F626A203c3c202F54797065202F466F6E74202F53756274797065202F547970 ng >> endobj..8 0 obj << /Type /Font /Subtype /Typ
6531202F4E616D65202F4635202F42617365466F6E74202F48656c766574696361202F456E636F64696E67202F57696E416E e1 /Name /F5 /BaseFont /Helvetica /Encoding /WinAn
7369456E636F64696E67203E3E20656E646F626A0D0A392030206F626A203c3c202F54797065202F466F6E74202F53756274 siEncoding >> endobj 9 0 obj << /Type /Font /Subt
797065202F5479706531202F4E616D65202F4636202F42617365466F6E74202F48656c7665746963612D426F6c64202F456E ype /Type1 /Name /F6 /BaseFont /Helvetica-Bold /En
636F64696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A31302030206F626A203c3c202F5479 coding /WinAnsiEncoding >> endobj 10 0 obj << /Ty
7065202F466F6E74202F53756274797065202F5479706531202F4E616D65202F4637202F42617365466F6E74202F48656c76 pe /Font /Subtype /Type1 /Name /F7 /BaseFont /Helv
65746963612D4F626c69717565202F456E636F64696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A etica-Oblique /Encoding /WinAnsiEncoding >> endobj
0D0A31312030206F626A203c3c202F54797065202F466F6E74202F53756274797065202F5479706531202F4E616D65202F46 ..11 0 obj << /Type /Font /Subtype /Type1 /Name /F
38202F42617365466F6E74202F48656c7665746963612D426F6c644F626c69717565202F456E636F64696E67202F57696E41 8 /BaseFont /Helvetica-BoldOblique /Encoding /WinA
6E7369456E636F64696E67203E3E20656E646F626A0D0A31322030206F626A203c3c202F54797065202F466F6E74202F5375 nsiEncoding >> endobj 12 0 obj << /Type /Font /Su
6274797065202F5479706531202F4E616D65202F4639202F42617365466F6E74202F54696D65732D526F6D616E202F456E63 btype /Type1 /Name /F9 /BaseFont /Times-Roman /Enc
6F64696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A31332030206F626A203c3c202F547970 oding /WinAnsiEncoding >> endobj 13 0 obj << /Typ
65202F466F6E74202F53756274797065202F5479706531202F4E616D65202F463130202F42617365466F6E74202F54696D65 e /Font /Subtype /Type1 /Name /F10 /BaseFont /Time
732D426F6c64202F456E636F64696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A3134203020 s-Bold /Encoding /WinAnsiEncoding >> endobj 14 0
6F626A203c3c202F54797065202F466F6E74202F53756274797065202F5479706531202F4E616D65202F463131202F426173 obj << /Type /Font /Subtype /Type1 /Name /F11 /Bas
65466F6E74202F54696D65732D4974616c6963202F456E636F64696E67202F57696E416E7369456E636F64696E67203E3E20 eFont /Times-Italic /Encoding /WinAnsiEncoding >>
656E646F626A0D0A31352030206F626A203c3c202F54797065202F466F6E74202F53756274797065202F5479706531202F4E endobj..15 0 obj << /Type /Font /Subtype /Type1 /N
616D65202F463132202F42617365466F6E74202F54696D65732D426F6c644974616c6963202F456E636F64696E67202F5769 ame /F12 /BaseFont /Times-BoldItalic /Encoding /Wi
6E416E7369456E636F64696E67203E3E20656E646F626A0D0A31362030206F626A203c3c202F54797065202F466F6E74202F nAnsiEncoding >> endobj 16 0 obj << /Type /Font /
53756274797065202F5479706531202F4E616D65202F463133202F42617365466F6E74202F53796D626F6c202F456E636F64 Subtype /Type1 /Name /F13 /BaseFont /Symbol /Encod
696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A31372030206F626A203c3c202F5479706520 ing /WinAnsiEncoding >> endobj 17 0 obj << /Type
2F466F6E74202F53756274797065202F5479706531202F4E616D65202F463134202F42617365466F6E74202F5A6170664469 /Font /Subtype /Type1 /Name /F14 /BaseFont /ZapfDi
6E6762617473202F456E636F64696E67202F57696E416E7369456E636F64696E67203E3E20656E646F626A0D0A3138203020 ngbats /Encoding /WinAnsiEncoding >> endobj 18 0
6F626A203c3c202F50726F63536574205B2F504446202F496D616765435D202F466F6E74203c3c202F463120342030205220 obj << /ProcSet [/PDF /ImageC] /Font << /F1 4 0 R
2F4632203520302052202F4633203620302052202F4634203720302052202F4635203820302052202F463620392030205220 /F2 5 0 R /F3 6 0 R /F4 7 0 R /F5 8 0 R /F6 9 0 R
2F463720313020302052202F463820313120302052202F463920313220302052202F46313020313320302052202F46313120 /F7 10 0 R /F8 11 0 R /F9 12 0 R /F10 13 0 R /F11
313420302052202F46313220313520302052202F46313320313620302052202F46313420313720302052203E3E203E3E2065 14 0 R /F12 15 0 R /F13 16 0 R /F14 17 0 R >> >> e
6E646F626A0D0A322030206F626A203c3c202F506172656E74203120302052202F5469746c65202850616765203129202F4E ndobj..2 0 obj << /Parent 1 0 R /Title (Page 1) /N
65787420323020302052202F44657374205B313920302052202F58595A20302038343020305D203E3E20656E646F626A0D0A ext 20 0 R /Dest [19 0 R /XYZ 0 840 0] >> endobj
.../...
25454F460D0A________________________________________________________________________________________ %EOF..
====end of dmpifs====

 Yes, I am able to make a PDF file, but this is an other story. This will appears soon in my toolbox.

DMPIFS  

Versionning 

last version : How to upload to my 400

CHGPFM FILE(JPLTOOLS) MBR(DMPIFS ) SRCTYPE(CMD ) EXPDATE(*NONE) SHARE(*NO) TEXT('Dump an IFS file ')
CHGPFM FILE(JPLTOOLS) MBR(DMPIFSC ) SRCTYPE(CLLE ) EXPDATE(*NONE) SHARE(*NO) TEXT('Vidage d''un fichier IFS ')
CHGPFM FILE(JPLTOOLS) MBR(DMPIFSR ) SRCTYPE(RPGLE ) EXPDATE(*NONE) SHARE(*NO) TEXT('Vidage d''un fichier IFS ')
CHGPFM FILE(JPLTOOLS) MBR(DSPIFS ) SRCTYPE(CMD ) EXPDATE(*NONE) SHARE(*NO) TEXT('Dump an IFS file ')
CHGPFM FILE(JPLTOOLS) MBR(DSPIFSFM ) SRCTYPE(DSPF ) EXPDATE(*NONE) SHARE(*NO) TEXT('Afficher un fichier IFS ')
CHGPFM FILE(JPLTOOLS) MBR(DSPIFSR ) SRCTYPE(RPGLE ) EXPDATE(*NONE) SHARE(*NO) TEXT('Afficher un fichier IFS ')

CRTCMD CMD(DMPIFS) PGM(*LIBL/DMPIFSc) SRCFILE(JPLTOOLS) SRCMBR(DMPIFS) THDSAFE(*YES) REPLACE(*YES)
CRTBNDCL PGM(DMPIFSC) SRCFILE(JPLTOOLS) DFTACTGRP(*NO) ACTGRP(*CALLER) USRPRF(*USER) REPLACE(*YES) DBGVIEW(*ALL)
CHGPGM PGM(DMPIFSC) USRPRF(*OWNER)
CRTRPGMOD MODULE(DMPIFSR) SRCFILE(JPLTOOLS) OPTION(*NODEBUGIO *SRCSTMT *SECLVL *SHOWCPY *EXPDDS) DBGVIEW(*ALL)
CRTPGM PGM(DMPIFSR) BNDDIR(QC2LE) ACTGRP(JPLTOOLS) USRPRF(*USER) OPTION(*DUPPROC *DUPVAR)

CRTCMD CMD(DSPIFS) PGM(*LIBL/dspifsr) SRCFILE(JPLTOOLS) SRCMBR(DSPIFS) THDSAFE(*YES) REPLACE(*YES)
CRTDSPF FILE(DSPIFSFM) SRCFILE(JPLTOOLS) SRCMBR(DSPIFSFM) RSTDSP(*YES) REPLACE(*YES)
CRTRPGMOD MODULE(DSPIFSR) SRCFILE(JPLTOOLS) OPTION(*NODEBUGIO *SRCSTMT *SECLVL *SHOWCPY *EXPDDS) DBGVIEW(*ALL)
CRTPGM PGM(DSPIFSR) BNDDIR(QC2LE) ACTGRP(JPLTOOLS) USRPRF(*USER) OPTION(*DUPPROC *DUPVAR)


The source code is provided as an open source tool under the GNU General Public License, version 2.  In summary, this license specifies:

By clicking the download link you acknowledge and agree to the terms of the license.

Download the (zipped) SAVF containing the JPLTOOLS : the source file, the message file, the bnddir

THIS TOOLBOX IS PROVIDED ''AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PROVIDER OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS TOOLBOX, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.