How to declare the dynamic(run time) array in rpgle?
can you please give example
Answers were Sorted based on User's Feedback
Answer / royal
Dmonth S 5s 0 DIM(5)
DI S 2p 0 inz(1)
c dow i <= 10
c* eval month(i) = i
c month(i) dsply
c eval i = i + 1
c enddo
/FREE
*INLR = *ON ;
/END-FREE
this answer is not correct please give me correct code
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / karthik
Dary1 s dim(5)
Dn s 2p 0 inz(1)
c dow(n<=10)
c ary1(n) dsply
c eval n=n+1
c enddo
c seton lr
| Is This Answer Correct ? | 3 Yes | 5 No |
What is journalling and commitment control?
what will happen two jobs have same name are submitted
how do I preserve and clean the array?
How to get only unique records from a file which contains duplicate data using CPYF command ? Example : FILEA has duplicate records and FILEB is a UNIQUE defined.... and I want to get the data from FILEA to FILEB by eliminating all the duplicate records...
How to print Superscript / Subscript from RPG400
If record-format name in an externally-described file has already been defined as a file-name.how to solve this?
i)What is the command to lock a file in a program ii)2. Can you get a level check error in a CL program
how do u find whether a record is locked or not??/
Set on command is used for closed all opened files , initialize var and release resource , return cmd is used for return to calling program but my req. Is dnt close opened files and resource must released while doing transactions , how can i do this...?
how do I do concatenation in rpg iv, like I do in cl?
Can anybody tell me that why we use option(*nodebugio)in H- Spec?
Can a run time array be declare like below with no specified number of elements ? Is it possible ? DFLD_ARRAY 7 DIM() INZ(*blanks) What does this mean ? Does this mean that the number of array elements will be dynamically declared during run time ?