Comments on: Load both numeric and character data using prerun time array in RPGLE http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/ Sat, 26 May 2012 02:02:48 +0000 http://wordpress.org/?v=2.6.2 By: Philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101471 Philpl1jb Tue, 10 Jan 2012 18:37:58 +0000 #comment-101471 Sorry, I don't have such a list. I suspect that fixed format dsply is more of an excepotion than a rule. DSPLY isn't used in production. Phil Sorry, I don’t have such a list.
I suspect that fixed format dsply is more of an excepotion than a rule.
DSPLY isn’t used in production.
Phil

]]> By: Pdsathishkumar http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101457 Pdsathishkumar Tue, 10 Jan 2012 11:55:17 +0000 #comment-101457 Thanks Mr. Phil and Tom, i got the answer from your coding... can you do one favor for me... i want to know, where and which place, i can use the qualified variable.... i search that, but i can't get the explanation about qualified variable.... if help clear my doubt.... Thanks Mr. Phil and Tom, i got the answer from your coding…

can you do one favor for me… i want to know, where and which place, i can use the qualified variable….
i search that, but i can’t get the explanation about qualified variable….
if help clear my doubt….

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101425 TomLiotta Mon, 09 Jan 2012 21:15:36 +0000 #comment-101425 [I]The manual said that qualified fields must be shown in the RESULT column.[/I] Actually, I think the manual reference is simply saying that qualified names may be used as the Result value. The implication to me is that qualified names can't be used for Factor 1 nor Factor 2, in fixed format. I'd say that either the code to pull the values into work fields like wrkNum and wrkChar or the switch to free-form are the only real options if DSPLY is going to be used. Tom The manual said that qualified fields must be shown in the RESULT column.

Actually, I think the manual reference is simply saying that qualified names may be used as the Result value. The implication to me is that qualified names can’t be used for Factor 1 nor Factor 2, in fixed format.

I’d say that either the code to pull the values into work fields like wrkNum and wrkChar or the switch to free-form are the only real options if DSPLY is going to be used.

Tom

]]> By: Philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101415 Philpl1jb Mon, 09 Jan 2012 15:19:00 +0000 #comment-101415 1. Arrays in rpg are from 1 to 6 not 0 to 5, so I changed the way that I was computed 2. The Dsply is a very only command today only used for debugging and qualified data structures are a fairly new addition to RPG IV. The manuals say to put the qualified subfield in the DSPLY - RESULT column .. but that didn't work. Soooooooooo then you develop a work around like I did with the WRK fields below [CODE] Farry1 it f 13 disk Darray1 s 13a dim(6) fromfile(arry1) Dparray s * inz(%addr(array1)) Darrds ds dim(6) based(parray) qualified Dnum 5p 0 Dchar 10a Di s 1p 0 inz(1) D wrkNum s 5p 0 D wrkChar s 10a C 1 do 6 i C eval wrkNum = arrds(i).num C eval wrkChar = arrds(i).char C wrkNum dsply C wrkChar dsply C enddo C eval *inlr = *on [/CODE] In RPG IV Free format, the dsply works just fine [CODE] /free dsply arrds(i).num; /end-free [/CODE] Phil 1. Arrays in rpg are from 1 to 6 not 0 to 5, so I changed the way that I was computed
2. The Dsply is a very only command today only used for debugging and qualified data structures are a fairly new addition to RPG IV. The manuals say to put the qualified subfield in the DSPLY - RESULT column .. but that didn’t work.
Soooooooooo then you develop a work around like I did with the WRK fields below

Farry1     it   f   13        disk
Darray1           s             13a   dim(6) fromfile(arry1)
Dparray           s               *   inz(%addr(array1))
Darrds            ds                  dim(6) based(parray) qualified
Dnum                             5p 0
Dchar                           10a
Di                s              1p 0 inz(1)
D wrkNum          s              5p 0
D wrkChar         s             10a
C     1             do        6             i
C                   eval      wrkNum  = arrds(i).num
C                   eval      wrkChar = arrds(i).char
C    wrkNum        dsply
C    wrkChar       dsply
C                   enddo
C                   eval      *inlr = *on

In RPG IV Free format, the dsply works just fine

 /free
                    dsply         arrds(i).num;
 /end-free

Phil

]]> By: Pdsathishkumar http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101410 Pdsathishkumar Mon, 09 Jan 2012 13:37:40 +0000 #comment-101410 [I]C dsply arrds(i).num C dsply arrds(i).char[/I] Mr. Phil, i tried your hint, but it not allow to enter. i got same error message, “Entry contains data that is not valid; only valid data is used”. i refer ILE RPG language reference book, but i can't get solution... please give any suggestion.... C dsply arrds(i).num
C dsply arrds(i).char

Mr. Phil, i tried your hint, but it not allow to enter. i got same error message,
“Entry contains data that is not valid; only valid data is used”.

i refer ILE RPG language reference book, but i can’t get solution…
please give any suggestion….

]]> By: Philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101407 Philpl1jb Mon, 09 Jan 2012 12:39:10 +0000 #comment-101407 The manual said that qualified fields must be shown in the RESULT column. Perhaps like this C dsply arrds(i).num C dsply arrds(i).char The manual said that qualified fields must be shown in the RESULT column.
Perhaps like this
C dsply arrds(i).num
C dsply arrds(i).char

]]> By: Pdsathishkumar http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101399 Pdsathishkumar Mon, 09 Jan 2012 08:13:36 +0000 #comment-101399 Farry1 it f 15 disk Darray1 s 13a dim(6) fromfile(arry1) Dparray s * inz(%addr(array1)) Darrds ds dim(6) based(parray) D qualified Dnum 5p 0 Dchar 10a Di s 1p 0 inz(1) C do 6 C arrds.num dsply C eval i=i+1 C enddo C eval *inlr = *on this is my coding, my output has show only single value repeated.... i don't know how to increase array position.. Farry1 it f 15 disk
Darray1 s 13a dim(6) fromfile(arry1)
Dparray s * inz(%addr(array1))
Darrds ds dim(6) based(parray)
D qualified
Dnum 5p 0
Dchar 10a
Di s 1p 0 inz(1)
C do 6
C arrds.num dsply
C eval i=i+1
C enddo
C eval *inlr = *on
this is my coding, my output has show only single value repeated….
i don’t know how to increase array position..

]]> By: TomLiotta http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101398 TomLiotta Mon, 09 Jan 2012 07:53:08 +0000 #comment-101398 [I]C arrds(i).num dsply[/I] Can you post that in {code} for mat please? It's difficult to determine the true statement when spaces are condensed out. Tom C arrds(i).num dsply

Can you post that in {code} for mat please? It’s difficult to determine the true statement when spaces are condensed out.

Tom

]]> By: Pdsathishkumar http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101393 Pdsathishkumar Mon, 09 Jan 2012 05:55:26 +0000 #comment-101393 found the answer from Google , [B]arrds.num dsply[/B] but i don't know, how to increase array element position... C do 6 C arrds.num dsply C eval i=i+1 C enddo found the answer from Google , arrds.num dsply
but i don’t know, how to increase array element position…

C do 6
C arrds.num dsply
C eval i=i+1
C enddo

]]> By: Philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/load-both-numeric-and-character-data-using-prerun-time-array-in-rpgle/#comment-101381 Philpl1jb Sun, 08 Jan 2012 12:46:30 +0000 #comment-101381 Google: ILE RPG language reference Search book for DSPLY You will find your answer thee. Phil Google: ILE RPG language reference
Search book for DSPLY
You will find your answer thee.
Phil

]]>