We will do exceptional handling in RPGLE using INFDS and INFSR. Using INFDS with INFSR catch file exception in RPGLE RPG Code in fully Free format for Coding File Information Data Strucure (INFDS) in RPGLE AS400 * File Feedback (length is 80) 99 is exception) * The INFDS contains the following feedback information: RPG Code in Fixed format for Coding File Information Data Strucure (INFDS) in RPGLE AS400 SPCL_STAT ZONED(5) POS(38) // SPECIAL statusįile CLPF1 has the following structure and recordsĬoding File Information Data Structure (INFDS) in RPGLE Coding an INFDS with File Feedback Information in RPG Fixed Format FCLPF1 IF E DISK INFDS(DS1)Ĭoding an INFDS with File Feedback Information in RPG Fully Free Format **FREE Length is 80 for File feedback information. Get Attributes Feedback (length is variable).Device-Specific Feedback (length is variable). However, in this blog, we will discuss only File Feedback information. The INFDS contains the following feedback information. This data structure will provide you the file exception/error statusįile Information data structure has pre-defined subfields which provide status information of the file exceptions/errors. We can specify the file information data structure for each file defined in the RPG program using the INFDS keyword. Introduction to File Information Data Structure Array Data Structures in RPG AS400 Introduction to Array Data Structure It is a data structure defined with the keyword DIM. File Information Data Structure in RPG AS400 The AS400 commands depend on user requirements.
0 Comments
Leave a Reply. |