CREATE TABLE ROB/ARRAYFILE (KEYFLD CHAR (10 ) NOT NULL WITH DEFAULT, ARY1 DEC (5 , 0) NOT NULL WITH DEFAULT, ARY2 DEC (5 , 0) NOT NULL WITH DEFAULT, ARY3 DEC (5 , 0) NOT NULL WITH DEFAULT) Table ARRAYFILE in ROB created but could not be journaled. INSERT INTO ROB/ARRAYFILE VALUES('A', 1, 2, 3) 1 rows inserted in ARRAYFILE in ROB. fARRAYFILE IF E K DISK RENAME(ARRAYFILE:ARRAYREC) f INFDS(HIYA) d MyArray s like(ary1) dim(3) d based(pMyArray) d pMyArray s * inz(%addr(ary1)) Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin "Gary Kuznitz" <docfxit@theoffice. To: Midrangefirstname.lastname@example.org la> cc: Sent by: Fax to: midrange-l-admin@mi Subject: How to Define input fields into Array drange.com 01/10/2002 03:24 PM Please respond to midrange-l Hi, I have a file that is externally describe. 24 of the fields I need to process identically and I would like to process them with an array. The array I have setup is: D MEETINGS S 5 DIM(24) Is there an easy way to re-define the input specs to get all the fields into the array? Or do I have to enter them into the array in calcs? I'm using RPGILE V4R4. TIA, Gary Kuznitz PS: I'd appreciate it if you could show me an example in code. _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-Lemail@example.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.