• Subject: RE: Opdesc not working for arrays.
  • From: Paul Tuohy <tuohyp@xxxxxxx>
  • Date: Tue, 23 Jun 1998 17:38:43 +0100

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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 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].