Dcl ds infds. AS/400: libraries (and how trees are not mandatory) (#76).

Dcl ds infds. Two byte integer. ) Database files 2. To define an externally described data structure, you can use the DCL-DS operation code and the EXT or EXTNAME keyword. (#73). Jan 19, 2023 · RE: infds in free form -- There is a wizard in RDi that will do it for you. Lines 2 – 5: I am only concerned with two subfields of the file information data structure, the ones that return the size of the configured display. May 9, 2016 · A simple example of a subfile and accompanying program written in modern fully free RPG First repository for tutorial purposes. Does that field contain the total number of records in the subfile, or the number of active records in the subfile? If I initialize a subfile with SFLINZ and SFLRNA, then display it, and the user enters a few lines of the subfile (for example, they type something in lines 1, 2, 3, and 5), then what will sfNumRecs have as a value? Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. AS/400: libraries (and how trees are not mandatory) (#76). F* File Specification FSTUDENT IF E DISK * PF FENQSUBFILECF E WORKSTN * DSPF subfile F SFILE(SFLRFMT:RRN) * SFILE keyword F INFDS(infds) * Data structure Dinfds DS DDRRN 378 379B 0 * D* Varibale declaration D RRN S 4 0 * RRN define To specify an INFDS which contains fields in the device-specific feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. May 17, 2017 · How to retrieve and update data within the Local Data Area, LDA, in a free format RPG program Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. 2 bytes in hex are like May 24, 2017 · The INFDS keyword gives the name I have decided to call the Information Data Structure. Also, define an INFDS for your file with a char (10) subfield in position 261 that will tell you which format was read. 1 and 7. With the new definition operations we can intermingle “specifications”, within reason. Specify special keywords as the first keyword of a free-form subfield definition, or left-adjusted, in the FROM field (positions 26-32) on the definition specification Mar 14, 2025 · dcl-ds msgout LikeRec(pgm0001d. Use information in the IBM i documentation database and file systems category to determine which fields you wish to include in the INFDS. ) ICF Devices 4. Oct 7, 2022 · Problem is the RR# in the INFDS for FILEA only updates the RR# in the DS of the last record that was successfully read. Thanks John Slanina -- This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options, DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Coding Data structure using keywords QUALIFIED, LIKEDS Feb 12, 2014 · Control (header) specifications with ctl-opt File specifications with dcl-f Definition specifications with dcl-s and dcl-ds Procedure specifications with dcl-pr, dcl-pi, dcl-proc, end-proc Input and Output specifications remain in fixed format, I think this is a big hint from IBM that we should no longer be using these specifications. How can I capture the RRN of the record in FILEA that the program is trying to retrieve but is locked. Specify special keywords as the first keyword of a free-form subfield definition, or left-adjusted, in the FROM field (positions 26-32) on the definition specification DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Use information in the Information Center to Define F specs in Fully Free RPGDefined F specs in Fixed RPG vs Free form RPG Here we defined F specs File statements in RPG fixed format and their respective free format. For local files in a subprocedure, the INFDS must be defined in the Definition specifications of the subprocedure. Types of Data Structure in RPG AS400 A Data Structure can be either program described or an externally described DS. The fields are all available to the program with one line of code--the reference to the externally defined data area, SCDSPFPF. DCL-DS 陳述式 第一個陳述式以 DCL-DS 開頭，後面接著資料結構的名稱; 如果沒有名稱，則為 *N ，後面接著關鍵字，最後是分號。 DCL-DS ds1 LIKEREC(Rcdfmt14:*All); Other data structures such as File Information Data structure and Program status data structure Fixed and Free format definition can be referred from the following link. all i know that it separates the indicators defined in display file from 99 program indicator. Three main techniques are RE: Determine Subfile Page -- See if this works for you. On writing articles on phones (#74). Use information in the IBM i documentation to Sep 15, 2016 · You don't want binary. Jul 13, 2022 · I came across the below code in a fully free RPG program. D INFDS DS D row 3I 0 Pos(370) D col 3I 0 Pos(372) Dcl-DS INFDS; row Int(3) Pos(370); col Int(3) Pos(372 Nov 1, 2023 · Re: INFDS() -- Or one could avoid from/to notation and use POS instead which I personally find preferable simply because no "to" calculation is required. 2) The INFDS for the printer file also does not appear to have a field containing the actual spooled file name which was opened. How Do I get the full six-digit spooled file number and spooled file name for the report? -sjl -- Example1: Using EXTNAME to code Externally Described DS in RPG In this example, the Externally described data structure DS1 is defined on a file named RPGLE14PF using EXTNAME keyword. This article explains the free-form RPG function supported on IBM i, its advantages, and how to program for H, F, D and P specs within free-form. May 1, 2019 · Line 1: The definition for the display includes the definition for the file information data structure, INFDS. My preference, if possible, is to prefix the fields in the externally defined data structure. Contribute to john-r-r-allen/hello-world development by creating an account on GitHub. 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 Sep 14, 2016 · RPG Free (INFDS) -- I'm trying to utilize more Free Form specs and am stuck on something. To calculate the starting Oct 29, 2020 · Re: Can I use RTNCSRLOC to find where a mouse clicked on a field -- IN YOUR DDS FILE A R XXX000102 SFLCTL (XXX000101) <-- CONTROL FORMAT A RRN_LIN 4S 0H <--MAKE THIS HIDDEN FIELD --------------------------------------------------------------------------- IN YOUR RPG PROGRAM DCL-F XXX0001DF WORKSTN INFDS (INFDS) DCL-DS INFDS ; RECRD BINDEC (4 DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Normally for a display file for the INFDS we declare the data structure (focusing on PAGRRN for this issue) D INFDS DS D KEY 369 369 D CURLOC 370 371B 0 D PAGRRN 378 379B 0 So I'm trying to do that in Free Form and have come up with this. so my questions are 1. D INFDS DS D row 3I 0 Pos(370) D col 3I 0 Pos(372) Dcl-DS INFDS; row Int(3) Pos(370); col Int(3) Pos(372); End-DS; Jon P Well said. Re: INFDS() -- To: rpg programming on ibm i Or one could avoid from/to notation and use POS instead which I personally find preferable simply because no "to" calculation is required. dcl-f envrsq01 disk usage (*input) keyed INFDS (infds); dcl-ds infds; library char (10) pos (93); end-ds; I need the library name for where the file is. DCL-DS ステートメント 最初のステートメントは DCL-DS で始まり、 その後にデータ構造の名前が続くか、データ構造に名前がない場合は *N が続き、 さらにその後にキーワードが続き、最後はセミコロンで終わります。 end-ds ds1; dcl-ds ds2 likeds(ds1); DIM keyword The DIM keyword defines the number of elements in an array, table, prototype parameter, array data structure, prototype return value. On how using complex solutions right in front of you is too easy (#75). Byte 369 of To specify an INFDS which contains fields in the get attributes feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. In this post I will explain what I have found, some of it may be obvious to some but If a data structure has no subfields, END-DS may be specified as part of the DCL-DS statement, immediately before the semicolon. We use DCL-F operation code for free form File statements, followed by the file name and then by zero or more keywords, and ends with a semicolon. To calculate the starting position and length of the subfields of 装置固有のフィードバック・セクションのフィールドが入る INFDS を指定するた めには、次の記入を行うことができます。 Jul 11, 2017 · 1 open the file with InfDs(InfDSk) option, and InfDSk defined with : dcl-ds InfDSk qualified ; RRN uns(10) pos(397) ; end-ds ; The record number RRN (or recno) is available with : InfDSk. It can be a literal, named constant, or bif. //DCL-F MYFILE USAGE (*INPUT) infds (FileDS); DCL-DS FileDS qualified; // File information feedback DS for file feedback FILE *FILE; //file name OPEN_IND DCL-DS DS1; SUBFIELD1 CHAR(1); END-DS; Use of Data Structure Using a data structure to subdivide the field. The file information data structure, which must be unique for each file, must be defined in the same scope as the file. The code on the SELECT statement, WHEN KEYPRESSED, is easy to interpret. why we need to separate the same from 99 program indicator. Normally for a display file for the INFDS we declare the data structure (focusing on PAGRRN for this RPG Code in Fixed format for Load-All Subfile for Enquiry screens. Using a data structure to group fields. PTFs for 7. The data structure contains a whole lot of information, but I am only interested in the RRN. In some cases, operation codes are not required such as EVAL, CALLP, DCl-SUBF, DCL-PARM are optional to use in free form RPG source. Use TESTB X'80' or TESTB '0' to test this bit. To calculate the starting position and length of the subfields of DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Aug 2, 2022 · O-specs aren’t included in free-format RPG, but you can print without needing an externally defined printer file. dcl-f myfile infds (myfile_infds); dcl-ds myfile_infds; io_rcd_fmt char (10) pos (261); end-ds; dcl-ds ds_all_fmts qualified Aug 7, 2017 · I have some doubts on indicator data structure. Declare all the hexadecimal values of the function keys and the field-exit keys as standalone fields in the D-spec initializing with the hex value. RRN Instead of using RRN, in a keyed-accessed file, I prefer CHAIN to a specific datastructure and write the DS afterwards Using the Mapped DS The code snippetts below illustrate using the mapped INFDS. well anyone plz brief me about INDARA keyword. Use information in the Information Center to Mar 28, 2022 · Here is a list of potentially related articles I wrote: WebDAV and its unknown coolness (#77). DCL-DS dsPrdmstl1 Extname ('PRDMSTL1') END-DS; Chain Feb 1, 2016 · But as usual there are many ways of doing it. The fifth one above is available only when you do a POST operation with a device Feb 28, 2022 · I have a sub procedure that I want to define a file within a sub procedure and then chain to that file and populate an external data structure based on the file being chained to. what is the use of INDDS keyword. On Making Art (especially bad art) (#72) AS/400: the intro post (#71) Some examples Jul 4, 2023 · Suppose , my program processes a file , but before processing the file, how can I check if the file is locked (I want to check this because I dont want the program to crash in case of a file lock) Mar 19, 2015 · 1) The INFDS for the printer file does not give the full six-digit spooled file number, only a 4-digit spooled file number. You want Int (5). Use information in the Information Center to Re: Selective Copy of members in RPG -- Define a qualified data structure with data-structure subfields in position 1 for all the formats in the file. Use information in the IBM i Information Center database and file systems category to determine which fields you wish to include in the INFDS. It has two subfields, the first for the value of the maximum number of rows that can be displayed by this display file, line 4, and the second for maximum number of columns, line 5. The Nov 4, 2015 · The INFDS is defined with the file, line 1, and I have given it the totally unimaginative name of "FileDs". You define a data structure in free form by specifying the DCL-DS operation code followed by the data structure name and keywords. In DDS Ctl Record SFLPAGELST 4S 0H SFLRCDNBR (CURSOR) In RPG Src Dcl-f VarShpInqF Workstn InfDS (DspInfDS) Dcl-Ds DspInfDS; SflPageRrN Int (5) Pos (378); End-ds; // Init SubFile Control SflClear = True; Write ListCtl; SflClear = False; SflPageLst = 1; After Exfmt If SflPageRrN = 0; SflPageLst = 1; Else; SflPageLst = SflPageRrN; EndIf . FCLPF1A IF E K DISK INFDS(DS1) INFSR(*pssr) usropn D DS1 DS * File Feedback information (starts in position 1 and ends in position 80) * file name Data Structure in as400 : Types of data structures in as/400 are-PROGRAMME STATUS DATASTRUCTURE, FILE INFORMATION DATASTRUCTURE,MULTIPLE OCCURENCE DATASTRUCTURE, INDICATOR DATA STRUCTURE, DATA AREA DATA STRUCTURE, PROGRAM DESCRIBED DATA STRUCTURE, EXTERNALLY DESCRIBED DATASTRUCTURE. So my old D-specs would likely have been: D INFDS DS D 369A D row 3U 0 D col 3U 0 On Nov 2, 2023, at 4:02 PM, VERNON HAMBERG Owner via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx> wrote: Jon, have to love how "intuitive - NOT" it is to code like this - D INFDS DS D row 370 370U 0 D col 371 371U 0 instead of dcl-ds Dec 10, 2024 · File information data structure via SQL -- Hello, I can I replace this statements with SQL in RGPLE Free ? dcl-f envrsq01 disk usage (*input) keyed INFDS (infds); dcl-ds infds; library char (10) pos (93); end-ds; I need the library name for where the file is. There's another INT (10) subfield called "SPOOL_NUM" with the comment "6 digit Spoon Nbr". Furthermore, the INFDS must be defined with the same storage type, automatic or static Nov 15, 2024 · This document has an example of retrieving the cursor location from the Information Data Structure in ILE RPG IV. DCL-DS INFDS; KEY CHAR(1) POS(369); CURLOC BINDEC(2) POS(370 Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. I have searched the net but could find an example for this kind of DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. There are actually 5 different layouts used by INFDS: 1. The EXT keyword specifies that the data structure definition is stored in an external file. Function key representations are also mapped externally. DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. The support is intended to allow RPG to be easier to write and understand for programmers who are familiar with other high-level languages. To calculate the starting position and length of the subfields of Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. To specify an INFDS which contains fields in the get attributes feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. Jun 23, 2020 · Re: infds in free form -- Notice in the example here that the INT (5) at position 123 is called "SPOOL_NUM_OLD". You need a variable to place your content which should be printed. 2. Aug 6, 2021 · Nice programming examples in RPG FREE language, IBM iSeries AS/400 - IBMi Rpg free, AS400 IBM To specify an INFDS which contains fields in the device-specific feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. To calculate the starting DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Use information in the Information Center to Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. Look in Source>New>D-Specification Taking that option, choosing "File information data structure" as the type, and selecting all the options outputted this for me. msgctl: *output) Inz; Notice that I have both Infds and Indds This way I don't have to expend limited indicators for things that don't need them, like function keys. It has been many years since I coded a D spec D row 3I 0 Pos (370) D col 3I 0 Pos (372) Dcl-DS INFDS; row Int (3) Pos (370); col Int (3) Pos (372); End-DS; Jon P On Nov 1, 2023, at 11:29 AM, Buck Calabro <kc2hiz@xxxxxxxxx<mailto:kc2hiz@xxxxxxxxx>> wrote: On 11/1/2023 10:42 AM, Daniel Gross wrote: Hi Douglas, your are right - but you have to think in hexadecimal. In this blog, we will discuss the coding example of using the PREFIX keyword to rename all the fields of and externally described data structure in RPGLE Fixed, /Free and Fully free format Coding for Rename all fields using PREFIX in an Externally described data structure DCL-F MYFILE PRINTER (132) INFDS (PRTFBK); DCL-DS PRTFBK; CUR_LINE INT (5) POS (367); // Current line num CUR_PAGE INT (10) POS (369); // Current page cnt // If the first bit of PRT_FLAGS is on, the spooled file has been // deleted. Define Externally described disk file without a key and open for Input Fixed Re: RPG Free (INFDS) -- "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 09/14/2016 05:01:55 PM: Should be as follows: DCL-DS INFDS; KEY CHAR(1) POS(369); CURLOC INT(5) POS(370); PAGRRN INT(5) POS(378); END-DS; Sincerely, Dave Clark Nov 24, 2021 · Nice programming examples in RPG FREE language, IBM iSeries AS/400 - IBMi Rpg free, AS400 IBM Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Use information in the Information Center to determine which fields you wish to include in the INFDS. Mar 12, 2014 · With the new RPG all free we have been liberated from using the fixed format specifications. Lines 3 – 6: This is the data structure's definition. Use information in the Information Center to Ground Rules-Enhanced RPG Compiler /Free and /End-Free are no longer needed. CurLocRow Uns (3) Pos (370); CurLocCol Uns (3) Pos (371); End-DS; Mit freundlichen Grüßen / Best regards Birgitta Hauser Feb 19, 2014 · Define a standalone variable - dcl-s Define a data structure - dcl-ds and end-ds Define a data structure subfield - dcl-subf Define a constant - dcl-c I am going to give examples of the way I would have coded various type of variables using the fixed formal D-spec and how I am coding the same thing using the new free format definition statements. DIM(numeric) The numeric should have zero decimal positions. Define a qualified data structure with data-structure subfields in position 1 for all the formats in the file. ) Dspf Attribute information Most of the layout is the same, but each has a small section specific to it. Jon, have to love how "intuitive - NOT" it is to code like this - D INFDS DS D row 370 370U 0 D col 371 371U 0 instead of dcl-ds infds; row uint (3) pos (370); col uint (3) pos (371); end-ds; Best good cheer! Vern On Thu, 2 Nov, 2023 at 2:25 PM, Jon Paris <jon. Use information in the Information Center to DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. Feb 12, 2020 · Lets start with a reasonably mixed RPGLE code example which is older style column based RPG400 for its variable definitions but then uplifts to RPGLE /FREE DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. So my old D-specs would likely have been: D INFDS DS D 369A D row 3U 0 D col 3U 0 On Nov 2, 2023, at 4:02 PM, VERNON HAMBERG Owner via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx> wrote: Jon, have to love how "intuitive - NOT" it is to code like this - D INFDS DS D row 370 370U 0 D col 371 371U 0 instead of dcl-ds Aug 27, 2021 · FILE INFORMATION DATA STRUCTURE (INFDS) * ------------------------------------------------------------------- * FILE INFORMATION DATA DCL-DS statement The first statement begins with DCL-DS, followed by the name of the data structure or *N if it does not have a name, followed by keywords, and finally a semicolon. dcl-ds line len(132) end-ds; Now you can fill the line and print the content like this: line = 'Line ' + %char(i); write qsysprt line; To specify an INFDS which contains fields in the get attributes feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. dcl-f myfile infds (myfile_infds); dcl-ds myfile_infds; io_rcd_fmt char (10) pos (261); end-ds; dcl-ds ds_all_fmts qualified; fmt1 likerec (fmt1) pos (1); fmt2 Apr 5, 2002 · Thanks John, Steve, but the actual layout is not what is at issue here. I decided to see what I could do with a simple program that has one input file and a display file, which contains a subfile. Fully free RPG source statements begin with the operation codes such as DCL-OPT, DCL-F, DCL-C, DCL-S, DCL-DS, DCL-PROC etc. To specify an INFDS which contains fields in the device-specific feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. paris@xxxxxxxxxxxxxx> wrote: To: rpg programming on ibm i You're right Buzz - sorry. Use information in the Information Center to Apr 18, 2023 · Now, regarding that field sfNumRecs at position 380. Sep 15, 2016 · In either way, use UNS instead of the B data type: DCL-DS INFDS; Key Char (1) Pos (369); CurLoc Uns (5) Pos (370); PagRRN Uns (5) Pos (378); END-DS; Also I'd split the positions 370/371 into 2 Sub-Fields (one for columns and the other one for rows) DCL-DS INFDS; . In this case of course there should be no danger of screwing up the "to" position but I like consistency. dcl-ds Infds; Key Char (1) Pos (369); CurLoc Int (5) Pos (370); PagRRN Int (5) Pos (378); end-ds; On Wed, Sep 14, 2016 at 2:01 PM, <SReeves@xxxxxxxxxxxxxxxxxx> wrote: I'm trying to utilize more Free Form specs and am stuck on something. ) Dspf I/O information 5. The DSPDS represents the display file INFDS. You define a data structure in fixed form by specifying DS in positions 24 through 25 on a definition specification. A free-form statement ends with a Semicolon. PRT_FLAGS CHAR (1) POS (373); // Print Flags PRT_MAJOR CHAR (2) POS (401); // Major ret code PRT_MINOR CHAR (2) POS Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. 2 provide the ability to code free-form RPG starting in column 1 and going to the end of the line. Being a one-time COBOL hack I tended to use a "Filler" approach to this kind of stuff. Use information in the IBM i documentation to RPG Code in Fixed format for Indicator data structure in RPG AS400 FRPGLE11DSPCF E WORKSTN INDDS(Inds1) D inds1 DS D ISEXITPRESSED 3 3N C EXFMT RCDFMT1 C IF ISEXITPRESSED C EVAL *INLR = *ON C RETURN C ENDIF Jul 6, 2014 · Declare the INFDS and define the AID byte with a variable name (say ‘FKEY’). sentencia DCL-DS La primera sentencia empieza por DCL-DS, seguida del nombre de la estructura de datos o *N si no tiene un nombre, seguida de palabras clave y, finalmente, un punto y coma. Mar 5, 2014 · Defining procedures in RPG programs using the new free format definitions just got a whole lot easier May 31, 2023 · I have the following data structure in an old program D P1PARM DS 256 D P1ADFR 1 15 D P1ADTO 16 30 D P1MSNR 31 37 0 D P1NSNR 38 44 0 D P1YEAR 45 48 0 D P1COMP 59 62 D P1FAC 63 67 D P1PPSR 68 74 0 D P1PTNS 75 79 I want to use this in a new program but want to convert this into free format , can someone help me with the syntax. An article written from a phone, in Emacs. ) Printer files 3. For global files, the INFDS must be defined in the main source section. The line length is specified as a parameter of the printer keyword, in our case 132 characters. dcl-ds *N; *N char (2) inz ('PR'); //STR0037123 - start *N char (2) inz ('ER'); *N char (2) inz ('MP'); *N To specify an INFDS which contains fields in the get attributes feedback section, you can make the following entries: Specify the INFDS keyword on the file description specification with the name of the file information data structure Specify the file information data structure and the subfields you wish to use on a definition specification. 1pxxiv pph z7s0gnn vmyob 64cvli uda pv ace a5fpy 2ksa