Now, Get RPG Codes in all three formats only on this website on every RPGLE related programming article.

Fixed, /Free and Fully Free RPG


File information data structures (INFDS) in RPG AS400

File information data structures (INFDS)in RPG AS400
File Information Data Structure in RPG AS400, INFDS, INFSR, data structure, create, make, about, what, introduction
File Information Data Structure in RPG AS400

Introduction to File Information Data Structure

We can specify the file information data structure for each file defined in the RPG program using the INFDS keyword. This data structure will provide you the file exception/error status

File Information data structure has pre-defined subfields which provide status information of the file exceptions/errors.

The minimum length of the INFDS is 80.

INFDS Feedback information

The INFDS contains the following feedback information. However, in this blog, we will discuss only File Feedback information.

  • File Feedback (length is 80)
  • Open Feedback (length is 160)
  • Input/Output Feedback (length is 126)
  • Device-Specific Feedback (length is variable)
  • Get Attributes Feedback (length is variable)
  • File Feedback

    length is 80 for File feedback information.

    Coding an INFDS with File Feedback Information in RPG Fixed Format

    FCLPF1     IF   E             DISK    INFDS(DS1)  
    DDS1              DS
    D FILE              *FILE                                                  * File name
    D OPEN_IND                9      9N                                        * File open
    D EOF_IND                10     10N                                        * File at eof
    D STATUS            *STATUS                                                * Status code
    D OPCODE            *OPCODE                                                * Last opcode
    D ROUTINE           *ROUTINE                                               * RPG Routine
    D LIST_NUM               30     37                                         * Listing line
    D SPCL_STAT              38     42S 0                                      * SPECIAL status
    D RECORD            *RECORD                                                * Record name
    D MSGID                  46     52                                         * Error MSGID
    D SCREEN            *SIZE                                                  * Screen size
    D NLS_IN            *INP                                                   * NLS Input
    D NLS_OUT           *OUT                                                   * NLS Output
    D NLS_MODE          *MODE                                                  * NLS Mode
    

    Coding an INFDS with File Feedback Information in RPG Fully Free Format

    **FREE
    DCL-F CLPF1 DISK(*EXT) INFDS(DS1);
    
    DCL-DS DS1;
      FILE          *FILE;                  // File name
      OPEN_IND      IND        POS(9);      // File open
      EOF_IND       IND        POS(10);     // File at eof
      STATUS        *STATUS;                // Status code
      OPCODE        *OPCODE;                // Last opcode
      ROUTINE       *ROUTINE;               // RPG Routine
      LIST_NUM      CHAR(8)    POS(30);     // Listing line
      SPCL_STAT     ZONED(5)   POS(38);     // SPECIAL status
      RECORD        *RECORD;                // Record name
      MSGID         CHAR(7)    POS(46);     // Error MSGID
      SCREEN        *SIZE;                  // Screen size
      NLS_IN        *INP;                   // NLS Input
      NLS_OUT       *OUT;                   // NLS Output
      NLS_MODE      *MODE;                  // NLS Mode
    END-DS;
    

    File CLPF1 has the following structure and records

  • Structure
  • Field               File               Type                 Length  Scale
    ROLLNO              CLPF1              DECIMAL                   5       
    NAME                CLPF1              CHARACTER                20       
    AGE                 CLPF1              DECIMAL                   3       
    CLASS               CLPF1              DECIMAL                   2       
    
    
  • Records
  •  ROLLNO   NAME                  AGE   CLASS  
          1   name1                  21      1   
          2   ddf                     2      2   
    

    Coding File Information Data Structure (INFDS) in RPGLE

    RPG Code in Fixed format for Coding File Information Data Strucure (INFDS) in RPGLE AS400
          *_________________________________________________________________________                
          * The INFDS contains the following feedback information:        
    * File Feedback (length is 80) <-- This video talks about
    * Open Feedback (length is 160)
    * Input/Output Feedback (length is 126)
    * Device Specific Feedback (length is variable)
    * Get Attributes Feedback (length is variable)
    *_________________________________________________________________________
    FCLPF1 IF E DISK INFDS(DS1) D DS1 DS * File Feedback information (starts in position 1 and ends in position 80)
    * file name
    * record process
    * last operation
    * status code (>99 is exception)
    * RPG IV routine
    D FILE *FILE * File name D OPEN_IND 9 9N * File open D EOF_IND 10 10N * File at eof D STATUS *STATUS * Status code D OPCODE *OPCODE * Last opcode D ROUTINE *ROUTINE * RPG Routine D LIST_NUM 30 37 * Listing line D SPCL_STAT 38 42S 0 * SPECIAL status D RECORD *RECORD * Record name D MSGID 46 52 * Error MSGID D SCREEN *SIZE * Screen size D NLS_IN *INP * NLS Input D NLS_OUT *OUT * NLS Output D NLS_MODE *MODE * NLS Mode? C 1 SETLL CLPF1 C READ CLPF1 C DOW NOT%EOF C READ CLPF1 C ENDDO C SETON LR
    RPG Code in /Free format for Coding File Information Data Strucure (INFDS) in RPGLE AS400
                 
         FCLPF1     IF   E             DISK    INFDS(DS1)                                           
         D DS1             DS                                                                                                                                            
         D FILE              *FILE                                                  * File name     
         D OPEN_IND                9      9N                                        * File open     
         D EOF_IND                10     10N                                        * File at eof   
         D STATUS            *STATUS                                                * Status code   
         D OPCODE            *OPCODE                                                * Last opcode   
         D ROUTINE           *ROUTINE                                               * RPG Routine   
         D LIST_NUM               30     37                                         * Listing line  
         D SPCL_STAT              38     42S 0                                      * SPECIAL status
         D RECORD            *RECORD                                                * Record name   
         D MSGID                  46     52                                         * Error MSGID   
         D SCREEN            *SIZE                                                  * Screen size   
         D NLS_IN            *INP                                                   * NLS Input     
         D NLS_OUT           *OUT                                                   * NLS Output    
         D NLS_MODE          *MODE                                                  * NLS Mode?     
                                                                                                    
          /Free                                                                                     
              setll 1 clpf1;                                                                        
              read clpf1;                                                                           
              dow not%eof;                                                                          
              read clpf1;                                                                           
              enddo;                                                                                
               *INLR  = *ON;                                                                        
          /End-Free                                                                                                                                                             
    
    RPG Code in fully Free format for Coding File Information Data Strucure (INFDS) in RPGLE AS400
    **FREE
    DCL-F CLPF1 DISK(*EXT) INFDS(DS1);                                          
    DCL-DS DS1;
      FILE          *FILE;                  // File name
      OPEN_IND      IND        POS(9);      // File open
      EOF_IND       IND        POS(10);     // File at eof
      STATUS        *STATUS;                // Status code
      OPCODE        *OPCODE;                // Last opcode
      ROUTINE       *ROUTINE;               // RPG Routine
      LIST_NUM      CHAR(8)    POS(30);     // Listing line
      SPCL_STAT     ZONED(5)   POS(38);     // SPECIAL status
      RECORD        *RECORD;                // Record name
      MSGID         CHAR(7)    POS(46);     // Error MSGID
      SCREEN        *SIZE;                  // Screen size
      NLS_IN        *INP;                   // NLS Input
      NLS_OUT       *OUT;                   // NLS Output
      NLS_MODE      *MODE;                  // NLS Mode
    END-DS;                                                                               
              
    setll 1 clpf1;                                                                        
    read clpf1;                                                                           
    dow not%eof;                                                                          
      read clpf1;                                                                           
    enddo;                                                                                
    *INLR  = *ON;                                                                                                                   
    

    Output: Value in DS1 (INFDS)

    > EVAL DS1                      
      FILE OF DS1 = 'CLPF1   '      
      OPEN_IND OF DS1 = '1'         
      EOF_IND OF DS1 = '0'          
      STATUS OF DS1 = 00000.        
      OPCODE OF DS1 = 'READ F'      
      ROUTINE OF DS1 = '*DETC   '   
      LIST_NUM OF DS1 = '00000039'  
      SPCL_STAT OF DS1 = RCLP6.     
      RECORD OF DS1 = 'RCLPF1  '    
      MSGID OF DS1 = '       '      
      SCREEN OF DS1 = 0000.         
      NLS_IN OF DS1 = 00.           
      NLS_OUT OF DS1 = 00.          
    

    Using INFDS with INFSR catch file exception in RPGLE

    We will do exceptional handling in RPGLE using INFDS and INFSR.

  • Using INFDS with INFSR catch file exception in RPGLE
  • Related Post

    Post a Comment

    © AS400 and SQL Tricks. All rights reserved. Developed by Jago Desain