Re: Help on trying to convert DS to free format for use in a *pssr

[Thomas Burrows <thomas.burrows.1957@xxxxxxxxx>]

 DCL-F MYFILE DISK(*EXT) INFDS(FILEFBK); DCL-DS FILEFBK; 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;

On Fri, Jun 30, 2023 at 1:00 AM Thomas Burrows <
thomas.burrows.1957@xxxxxxxxx> wrote:

>    - Using INFDS with INFSR to catch file exception in RPG AS400
>    <https://www.as400andsqltricks.com/2021/12/Using%20INFDS%20with%20INFSR%20catch%20file%20exception%20in%20RPGLE.html>
>
> I am trying to put in INFSR just to prove I can do it.
> Not sure about the "D File    *file"
>
> 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?
> Here is what I have in my code.
>
>  dcl-f SFL004DF workstn infds(Info) Sfile(Sfl1:Rrn1)
>                                     Sfile(Sfl2: Rrn2);
>
>  dcl-ds    info;
>     list_num         char(07)    pos(30);
>     spcl_stat        packed(4:0) pos(38);
>     msgid             char(07)    pos(46);
>     Cfkey             char(01)    pos(369);
>     open_ind     ??(9:9);
>     eof_ind        ??(9:9);
>     statue    *status;
>     optcode   *optcode;
>     routine   *routine;
>     record    *record;
>     screen    *size;
>     nls_in    *input;
>     nls_out   *output;
>     nls_mode  *mode;
>  end-ds;
>
>
> 33     dcl-ds    info;
> 34        list_num     char(07)    pos(30);
> 35        spcl_stat    packed(4:0) pos(38);
> 36        msgid        char(07)    pos(46);
> 37        Cfkey        char(01)    pos(369);
> 38        open_ind     ind(9:9);
> ==>                       abcde
> 3308 20 a      003800  Keyword name is not valid; the keyword is ignored.
> 39        eof_ind      ind(9:9);
> ==>                       abcde
> 3308 20 a      003900  Keyword name is not valid; the keyword is ignored.
> same error twice. I know that
>
> 45        nls_in    *input;
> ==>                 aaaaaa
> 3308 20 a      004500  Keyword name is not valid; the keyword is ignored.
>
>
> 46        nls_out   *output;
>
> ==>                 aaaaaaa
>
> 3308 20 a      004600  Keyword name is not valid; the keyword is ignored.
>
> 47        nls_mode  *mode;
>
> 48     end-ds;
>
>
> If anyone wants to look at the  code on PUB400.COM
>
> user profile is COBOLKID
> pw bear1963
>
> library is cobolkid1
>
> and in QRPGLESRC  member SFL004RG
>
> Original code is from Kevin Vandever. But I am going through and
> converting the F and D specs to free format.
>
> And want to add some error routine ability.
>
> Not finding any examples on the internet of free format for
>
>  dcl-f SFL004DF workstn infds(Info) Sfile(Sfl1:Rrn1)
>                                     Sfile(Sfl2: Rrn2);
>
>
> Will not even go into if the MONITOR command is a better way to go. Which
> I think might be the way, but I want to solve the problem both ways.
>
>
>
> Thomas