|
David, the following snip is from the ILE RPG/400 Programmer's Guide for V3R7. Section 2.6.3.2 Using Operational Descriptors. I don't know if it has changed for V4, but according to this, it shouldn't work for data structures either! Paul Tuohy -----Original Message----- From: David Morris [SMTP:dmorris@plumcreek.com] Sent: 18 June 1998 21:55 To: RPG400-L@midrange.com Subject: Opdesc not working for arrays. RPGIV Fans and Experts, Is the following a bug, feature or? I have found that when a parameter is declared as *VARSIZE and is an array opdesc will not work. Passing a datastructure over the array works. DPrc PR 1A OPDESC .. DFldLst DS D Fld 10A DIM(4) .. DPrc PI 1A OPDESC D Fld 10A DIM(3275) Field names. D CONST OPTIONS(*VARSIZE) .. The following works: C EVAL ErrFlg = Prc(FldLst) .. The following does not work: C EVAL ErrFlg = Prc(Fld) Thanks, David Morris ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * begin 600 WINMAIL.DAT M>)\^(BP0`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$(@ <` M& ```$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`0V ! `"`````@`"``$$ MD 8`L $```$````0`````P``, (````+``\.``````(!_P\!````20`````` M``"!*Q^DOJ,0&9UN`-T!#U0"`````%)01S0P,"U,0&UI9')A;F=E+F-O;0!3 M3510`%)01S0P,"U,0&UI9')A;F=E+F-O;0`````>``(P`0````4```!33510 M`````!X``S !````%@```%)01S0P,"U,0&UI9')A;F=E+F-O;0````,`%0P! M`````P#^#P8````>``$P`0```!@````G4E!'-# P+4Q ;6ED<F%N9V4N8V]M M)P`"`0LP`0```!L```!33510.E)01S0P,"U,0$U)1%)!3D=%+D-/30```P`` M.0`````+`$ Z`0```!X`]E\!````%@```%)01S0P,"U,0&UI9')A;F=E+F-O M;0````(!]U\!````20````````"!*Q^DOJ,0&9UN`-T!#U0"`````%)01S0P M,"U,0&UI9')A;F=E+F-O;0!33510`%)01S0P,"U,0&UI9')A;F=E+F-O;0`` M```#`/U?`0````,`_U\``````@'V#P$````$`````````EE2`02 `0`C```` M4D4Z($]P9&5S8R!N;W0@=V]R:VEN9R!F;W(@87)R87ES+@`H# $%@ ,`#@`` M`,X'!@`7`!$`)@`K``(`5@$!(( #``X```#.!P8`%P`1`"4`-P`"`&$!`0F M`0`A````-#E".$)%.39#,3E%0D0Q,4$V-S0Q-D,R-3)%,C9#-D8`2 <!`Y & M`,P,```A````"P`"``$````+`",```````,`)@``````"P`I```````#`"X` M``````,`-@``````0 `Y`,#!>F+%GKT!'@!P``$````C````4D4Z($]P9&5S M8R!N;W0@=V]R:VEN9R!F;W(@87)R87ES+@```@%Q``$````6`````;V>Q6)I M-BU)B J]$=* :NTN8>\V"P``'@`># $````%````4TU44 `````>`!\,`0`` M``\```!T=6]H>7! :6)M+FYE= ```P`&$#'Y!$T#``<0'P0``!X`"! !```` M90```$1!5DE$+%1(149/3$Q/5TE.1U-.25!)4T923TU42$5)3$524$<O-# P M4%)/1U)!34U%4E-'54E$149/4E8S4C=314-424].,C8S,E5324Y'3U!%4D%4 M24].04Q$15-#4DE05$\``````@$)$ $```"K"0``IPD``* <``!,6D9U8DX7 M<0,`"@!R8W!G,3(U<C(,8&,Q`S !!PM@;I$.$# S,P\69F4/DD\!]P*D`V," M`&-H"L!SA&5T`M%P<G$R``"2*@JA;F\24" P`="%`= V#Z P-3 T%"'S`= 4 M$#1]!VT"@P!0`]3[$?\3"V(3X110$[(8]!30KP<3`H "D0CF.PEO,!K?^F4. M,#4<"ATA'-\=Z1OT_QX2''\@3R -'X\=OQP/$&#\,C@EVB;Q)J\GN1OT)^*_ M)D\J'RG=*5\GCRM4.0Y0'RZD, $H(S ``H)S='GJ; >0: G@= ``$U #\%!D M8W1L"K%<,EAAF&1J=3%P!1!G: 5"SQ8R# $/4@'0-3<(T G PS)@`S!S;F5X M%S 'L!<%L # `G-S`%!S8C)+%% Q8&$3\%QK">!POPN0,C\RHPA@,I +@&4Q MH/YV.? !0#.;## T9"@`-.<_-] $H N -1 H`#5V8F']%Q!D`B V,#76,= S MD#RQ_" Q,3,.4#<O.#\Y3P!1_SJ,`* T;ST?/BXQ) _ /Z]_0+]!SPY0.G]$ M+T4_/DPS>P*"$Q!C-O!-X3.0/M!T$FDZ("!$`1!A=6P5!4!0"L!A"<!A<&@< M($8"(3:T)4!F:2UU#Y X3$%I4G-(OS*C8CT+('()4%22%J!4DG<T^R5!%P!P M`=!/LC._3$]-7V]2$%#0!1 ","U1< -A.@@@5&]:@%-U8FH%!9!T6H!$871E M.OTVM#92/U-/5%]5;U9Y,<#_/L,.(4WA.T8.4%>O6+]9QN92.A$7`2!(/K$$ MD#:T_S507$]=7UYO7WPYGV"/#Y#+;- (T&(*L'0X2ZX/D#]'P&,?9"9M8&4P M"U!Y+^]1@%^ "Q%EI7,VM"@`9I__9Z]HOU]_5H]BCV\_<$Y:HGM:1%MY.7,? M,S\#,&T3.0]V_W@/9!=^D$1O8W7_!X ", 7044 :`7S"?"!\8/MTL0& ;EL` M`& )\$_@@8!W`@$V<&$B90#P@8 Q@'!)'H!<=@B0=VL+@&3_;J"%(@3P!T 0 M80% #@!T@O<^HH:%`A!O!4(7(1+R6Y &;0M16Y @0SI<7/59T&]1(6U1< ,0 M!Y"),"9-#> #8'-O`8 @3]<!( W@A'!<BN9%`, #$/HN3;!T@E 7$'Q@-;%J MTHYX`4 ^H@20>3<P>_!GAZ*-M0CA<WB-XH.!;N\QT!KPC(10=&,#(!+S`(#Y M!9!L=D+!2( .<#9PD0+_`9 `()&2A7&!P0'!D0$6X)\/< ``2( ,T &0("X: M$O^0^ Y0D;)0L'RPDB^3/Y1/OP_ 2( %@97OEO^8#VQNH-U(@&R5KYIOFW4I ME'PE0,>93YXOFV1B("@"D9]/_Y%#7""<_Z&_HL^CWY%P-5#_I2*1_Z:/IY^4 M?"@`I2^JK_^KOZS/D7![\*FOKS^P3[%4_PKY`S!\&G9/?P\UL C!-8*'-C!; M<(4@9"P@=#'0^B "$&P)``/P/O$UX 4@_B $`+L@`V&ZXP*1`*"Z%8A)3$4' M\%!'+Q10WS8PB54'@'RP%X!UCD&[P'@@1W5\0+S#NA6#\2#05C-2-[SJ+@91 M?& &:0(@1Q N-BXS+M@R(%4`D#[Q3X3@40#?PC('0%!1!/0%L'/ ",'@W$D@ M3;&_!@5 :WP1O!#^9KP0!4 6X 0@%M$/< F U<"4-+K08FJP( #0!:'_/M/$ MD+KA! "ZT,<!,< (8%9LCX#%Z'<%L&O DV1O6X";P+?Q#G!T"' 'D67[4 "/ MH2$*A0J%4.!0H%J0^;\P:'D*A;84MMRW'[@C_GO-+,\6:M"T$L^?T*\``(</ M5[H5$O)B:VUKLR,<(%^"``,06W%A?2W=V$)/N!$+@,/Q30>02 #_Q[#80\ZK MMG9F77* TV]T'_]U+VJ?:Z]LOVW/N:75SEI#/PR"NG0%T 6P!1 $(%M38$U4 M4#ID!&#F0D!/"U"!H 4`">!K+@6@;?Y=V>_:]'(;W"_=/]Y/=A__N)^YI0PP MU<X&8 (PY60"D3/5SGF12G4U\#\0.3GQXD R,3H>H,ZF\#^Z41]:H?'/NA6] MX;XA+4Q _FWK`%$`QZ'H`O1O\,I:]=_V7[H5PV !``3P(!-0RP2//N+ H@K M40!Y<R[H7_^VLM,OU#_N7[DLTC\`/P%/\]%SO>%)5E%P#;'(H(.0:"!%>,-Q M=,FPS2Q)[\=0NOR;P,AP9[K0$%!;@.7,82# L#\@Q8$6X% Q_Q#0\X UL+KP M6X#+$#'0_^#_F\ $48F@%R \@+P2H.'_L <:\<B@QU J5D%24_Q)6KW "%*\ M(17 _D0+X/_\]!9PNU#]1\'@4-$6D K$_\NRS <+X&51NN,0E,LB_J<[!"46 M`T19T/TP%JM04@D6JC%!%@%/4$1%M%-#!"4N_K86%$;*4.9,,7 6J413%:M1 M<,I0#Q:L%JM/D!AR1$E-*/PT*1D?%B\7-,60%[\8R@<<'R2?'CLS,C<U*?\D MWQ:IB=#?X#6PP^ .$/ZG#R.5*B\K/PP@0T].4])4&*%422R!* ]F'Q_V5+L+ M%-,Z!"\%/P9/T7J_,)\QKS*]+"0K;PP@10]PODPX5>9 &G _`" 3/5G!_&,H M&G0MWR[L3;#,@1&V_S 6'[HW?SB/.9\ZUCMW"%#_US )#>7*'[I%OT;/1]]( M[_])_TL/3!]-+TX_3T]07U%O_U)_4X]4GU6O5K]7SUC?6>__6O]<#UT?7B]? M/V!/85]B;_]C?V2/99]FKV>_:,]IWVKO_VO_;0]N'V\O<#]Q3W)?<V__=']U MCW:?=Z]XOWG/>M][[_]\_WX/?Q^ +X$_@D_-%H/?_X3OA?^'#X@?B2^*/XM/ MC%__C6^.?X^/D)^1KY*_D\^4W_^5[Y;_F ^9'YHOFS^<3YU?_YYOGW^@CZ&? MHJ^COZ3/I=__IN^G_ZD/JA^K+ZP_K4^N7_>O;[!_S88JL@^S'[0OM3]_M8*Q MIR[@O"&\(;KRO>9$?;P@8P(`PQ#"4=>RPR),^;P@="$,(/8@N\#Z\/A@^\B1 M_4!EQK 6IK:8*1'94FW(4'/Q@ \0>=^ S>!MV]?!R4(B]]_H`B(2,;H1MPS0 MND'$0F+SH+MZ9N4Q7<ES(-^P&K&\PV6]9DT`04I/4D1/34]_^%L(0^V0^R#& MT!#0NSXG.[^ZO?8G$"#_X HB8F\Z9!#19KT%V302,5%U_<R =+CA#H#A,-^ M)!&VF/_ 0>%@Y\#[, \!O;$*(L'3]S4`W] ]\"\0X0C "Y!$L/XZ$O%$8<.< MNP^UG]$/TA]_TR_3D_NPUL:\TM>H,Z9]!@#6L=;P``,`$! ``````P`1$ `` M```#`( 0_____T `!S `-@9&Q9Z]`4 `"# `-@9&Q9Z]`0L``( (( 8````` M`, ```````!&``````.%`````````P`"@ @@!@``````P ```````$8````` M$(4````````#``6 "" &``````# ````````1@````!2A0``MPT``!X`)8 ( M( 8``````, ```````!&`````%2%```!````! ```#@N, `#`": "" &```` M``# ````````1@`````!A0````````L`+X (( 8``````, ```````!&```` M``Z%`````````P`P@ @@!@``````P ```````$8`````$84````````#`#* M"" &``````# ````````1@`````8A0```````!X`08 (( 8``````, ````` M``!&`````#:%```!`````0`````````>`$* "" &``````# ````````1@`` M```WA0```0````$`````````'@!#@ @@!@``````P ```````$8`````.(4` K``$````!`````````!X`/0`!````!0```%)%.B ``````P`--/TW``!H?X4` ` end * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.