Re: Doubt on prerun time array And a doubt about batch job

["Sunil R" <sunil_ramakumar@xxxxxxxxx>]

Rick,

I was trying out the preruntime array. I had leanred that there are the
keywords tofile and fromfile. So tried them out.
Tofile does write into a new file.
Was not trying for any project :)
I could get the program running by get changing the datatype as zoned.
Thanks for the tip

Buck,

I was not able to get the program running by specifing the data type as
packed. Can you please explain a little more.

Regards and thanks
Sunil.

----- Original Message -----
From: "Richard B Baird" <rbaird@esourceconsulting.com>
To: <rpg400-l@midrange.com>
Sent: Wednesday, June 26, 2002 7:27 PM
Subject: Re: Doubt on prerun time array And a doubt about batch job


>
> Sunil,
>
> first a couple of questions, and maybe your answer:
>
> 1. why are you specifying a 'tofile'.  do you want the array to be written
> to PF5?  I'm not sure, but i think that's what tofile() means.





> 2. how many records did you add to PF1?  if more than one, your program
> will bomb - too many elements - array not big enough - DIM(1)
>
> 2. I think that using a packed field as your input table file is what's
> causing your problem.   The program has no way of determining that the
> input file is packed data, since it is internally described to the
program.
> So, it just assumes character and lays in on top of the array field.
>
> Can you change PF1 to be 9S 0 instead of 9P 0?  I've tested this and it
> works fine.
>
> here is my program:
>
> FTESTING   IT   F    9        DISK
> DARE              S              9S 0 DIM(12)
> D                                     FROMFILE(TESTING)
> C     ARE(1)        DSPLY
> C     ARE(2)        DSPLY
> C     ARE(3)        DSPLY
> C     ARE(4)        DSPLY
> C     ARE(5)        DSPLY
> C     ARE(6)        DSPLY
> C     ARE(7)        DSPLY
> C     ARE(8)        DSPLY
> C     ARE(9)        DSPLY
> C     ARE(10)       DSPLY
> C     ARE(11)       DSPLY
> C     ARE(12)       DSPLY
> C                   EVAL      *INLR = *ON
>
> and my PF (TESTING)
>
> A          R TESTR
> A            DATA           9S 0
> A          K DATA
>
>
> hope this helps.
>
> Rick
>
> -----original message--------
> I have some doubts
> 1) Am I right in saying that program creates a temporary program described
> table where the values from the pf is loaded and used during the execution
> of the program.
> 2) Does the Table file have ant relation to the create Table in SQL/400.
> I was not able to declare the file directly in the Table in the d spec.
> 3) I am getting an error when I run the program with packed decimal fields
> I
> am getting junk during the transformation i.e from the File to the Table
> resulting in a decimal data error.
>   I am not getting any error if I change the fields as char.
> Also no error if I don't put any values in the pf.
> I am including the code that I had tried out. So that you can get the
> correct picture.
>
> The program
>
> FPF1       IT   F   10        DISK
> FPF5       CT   F   10        DISK
> DARE              S              9P 0 DIM(1)
> D                                     FROMFILE(PF1)
> D                                     TOFILE(PF5)
> C     ARE(1)        DSPLY
> C                   EVAL      *INLR = *ON
>
> The PF
>                 R PF
>                   FLD1           9P 0
>                 K FLD1
>
> Thankyou very much for your help
>
> Sunil
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>