RE: Passing numeric fields to COBOL program

Gary, does this problem occur when you are passing the parameter from a 
command line? If so, the problem is that the number you are passing is 
signed where as the program is expecting packed, hence you key the number 
as a hex value.

Paul Tuohy

-----Original Message-----
From:   Gary Lehman [SMTP:Gary_Lehman@mail.mchcp.org]
Sent:   09 June 1998 16:13
To:     'MIDRANGE-L@MIDRANGE.COM'
Subject:        Passing numeric fields to COBOL program

Does anyone know why you have to pass a numeric field(ex such as a date) in
hex format?  I'm trying to pass an 8 digit instead of 6 like we've always
done, but I never had anyone explain to me why hex format is used.  Does it
have anything to do with packing data?

Gary Lehman
Programmer Analyst
Missouri Consolidated Health Care Plan
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---

begin 600 WINMAIL.DAT
M>)\^(A(7`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$(@ <`
M& ```$E032Y-:6-R;W-O9G0@36%I;"Y.;W1E`#$(`0V ! `"`````@`"``$$
MD 8`P $```$````0`````P``, (````+``\.``````(!_P\!````30``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````$U)1%)!3D=%+4Q 34E$4D%.1T4N0T]-
M`%--5% `34E$4D%.1T4M3$!-241204Y'12Y#3TT`````'@`", $````%````
M4TU44 `````>``,P`0```!@```!-241204Y'12U,0$U)1%)!3D=%+D-/30`#
M`!4,`0````,`_@\&````'@`!, $````:````)TU)1%)!3D=%+4Q 34E$4D%.
M1T4N0T]-)P````(!"S !````'0```%--5% Z34E$4D%.1T4M3$!-241204Y'
M12Y#3TT``````P``.0`````+`$ Z`0```!X`]E\!````& ```$U)1%)!3D=%
M+4Q 34E$4D%.1T4N0T]-``(!]U\!````30````````"!*Q^DOJ,0&9UN`-T!
M#U0"`````$U)1%)!3D=%+4Q 34E$4D%.1T4N0T]-`%--5% `34E$4D%.1T4M
M3$!-241204Y'12Y#3TT``````P#]7P$````#`/]?``````(!]@\!````! ``
M``````(93P$$@ $`+ ```%)%.B!087-S:6YG(&YU;65R:6,@9FEE;&1S('1O
M($-/0D],('!R;V=R86T`&@\!!8 #``X```#.!P8`"@```",`$ `#`!L!`2" 
M`P`.````S@<&``H````?`"<``P`N`0$)@ $`(0```# U.#4Q,C$P1D0Y,T)$
M,3%!-C<T,39#,C4R13(V0S9&``4'`0.0!@`4"P``(0````L``@`!````"P`C
M```````#`"8```````L`*0```````P`N```````#`#8``````$ `.0!@/L-!
M_Y.]`1X`< `!````+ ```%)%.B!087-S:6YG(&YU;65R:6,@9FEE;&1S('1O
M($-/0D],('!R;V=R86T``@%Q``$````6`````;V3_T&IKX$68O_X$=& :M&S
MO:*6#@``'@`># $````%````4TU44 `````>`!\,`0````\```!T=6]H>7! 
M:6)M+FYE= ```P`&$""?2C,#``<0B0,``!X`"! !````90```$=!4EDL1$]%
M4U1(25-04D]"3$5-3T-#55)72$5.64]505)%4$%34TE.1U1(15!!4D%-151%
M4D923TU!0T]-34%.1$Q)3D4_24933RQ42$504D]"3$5-25-42$%45$A%3E5-
M0D4``````@$)$ $```#J!P``Y@<``)P2``!,6D9U-PWJ0 ,`"@!R8W!G,3(U
M<C(,8&,Q`S !!PM@;I$.$# S,P\69F4/DD\!]P*D`V,"`&-H"L!SA&5T`M%P
M<G$R``"2*@JA;F\24" P`="%`= V#Z P-3 T%"'S`= 4$#1]!VT"@P!0`]3[
M$?\3"V(3X110$[(8]!30KP<3`H "D0CF.PEO,!K?^F4.,#4<"ATA'-\=Z1OT
M_QX2''\@3R -'X\=OQP/$&#\,C@EVB;Q)J\GN1OT)^*_)D\J'RG=*5\GCRM4
M.0Y0'RZD, $H(S ``H)S='GJ; >0: G@= ``$U #\%!D8W1L"K%<,EAAF&1J
M=3%P!1!G: 5"SQ8R# $/4@'0-3<(T G PS)@`S!S;F5X%S 'L!<%L # `G-S
M`%!S8C)+%% Q8&$3\%QK">!POPN0,C\RHPA@,I +@&4QH/YV.? !0#.;## T
M9"@`-.<_-] $H N -1 H`#5V8F']%Q!D`B V,#76,= SD#RQ_" Q,3,.4#<O
M.#\Y3P!1_SJ,`* T;ST?/BXQ) _ /Z]_0+]!SPY0.G]$+T4_/DPS>P*"$Q!C
M-O!-X3.0/M!T$FDZ("!$`1!A=6P5!4!0"L!A"<!A<&@<($8"(3:T)4!F:2UU
M#Y X3$%I4G-(OS*C8CT+('()4%22%J!4DG<T^R5!%P!P`=!/LC._3$]-7V]2
M$%#0!1 ","U1< -A.@@@5&]:@%-U8FH%!9!T6H!$871E.OTVM#92/U-/5%]5
M;U9Y,<#_/L,.(4WA.T8.4%>O6+]9QN92.A$7`2!(/K$$D#:T_S507$]=7UYO
M7WPYGV"/#Y#+;- (T&(*L'0X2ZX/D#]'P&,?9"9M8&4P"U!Y+^]1@%^ "Q%E
MI7,VM"@`9I__9Z]HOU]_5H]BCV\_<$Y:HGM:1%MY.7,?,S\#,&T3.0]V_W@/
M9!=^D$1O8W7_!X ", 7044 :`7S"?"!\8/MTL0& ;EL``& )\$_@@8!W`@$V
M<&$B90#P@8 Q@'!)'H!<=@B0=VL+@&3_;J"%(@3P!T 080% #@!T@O<^HH:%
M`A!O!4(7(1+R6Y &;0M16Y @0SI<7/59T&]1(6U1< ,0!Y"),"9-#> #8'-O
M`8 @3]<!( W@A'!<BN9%`, #$/HN3;!T@E 7$'Q@-;%JTHYX`4 ^H@20>3<P
M>_!GAZ*-M0CA<WB-XH.!;N\QT!KPC(10=&,#(!+S`(#Y!9!L=D+!2( .<#9P
MD0+_`9 `()&2A7&!P0'!D0$6X)\/< ``2( ,T &0("X:$O^0^ Y0D;)0L'RP
MDB^3/Y1/OP_ 2( %@97OEO^8#VQNH-U(@&R5KYIOFW4IE'PE0,>93YXOFV1B
M("@"D9]/_Y%#7""<_Z&_HL^CWY%P-5#_I2*1_Z:/IY^4?"@`I2^JK_^KOZS/
MD7![\*FOKS^P3[%4/PKY`S!\'WTO?K\U97M',0K >2P@3; 'D71HM00`(!=P
M;P)@B) @@8!;@9 %P'<QT .@>0A@(/\*P!. "K $$#[BNU"],HF16Q<@!) @
M`U*]`" %H&T'`X$UL&K2/R!)9B#_BI"ZX+W3N[6[<;M06X"]P[^1P ;0OH&\
MWKMQ`)!G-?#_-;"\@;TA38# 9HF#NW$V`*^$X+= /N(*L&-(4&2ZX.^\D8L@
MPE-(4'G!JL1AF\"Q,=!X('8'0 I0+@J%WPJ%MA2VW[?O!4![4.!0H.%:D'5O
M:'G)+\HS:M#_M!+*C\N?```/5S5S-C 2\I!B:VUKLR,@7X(`HP,06W%A?2W3
MTD^XL9\+@ = != 'D$@`9V73T__)F[9V9EUR@,[_=!]U+VJ??VNO;+]MS[I$
MT4]:0PR"("&ZHB!,96@#@EM34$U44#JZHE_AI$ MB_-M%M -\"X%L&==_]5_
MUH1R&]>_V,_9WW8?N3__WT4,,-%>!F ",.#T`I'17C&-\"!*=37P/Q Y.>/=
MT%P0.C$SR9;L#](A!UJA[9_1Y2=-2412@$%.1T4M3$#SMN N0T]-)_ _[)I:
M];_R+]'E4."]=,'Q!G%COJ I")!L9+LQ;XD`3T+\3TS$QN0OMK+.O\_/ZB__
MN<S-S_S?_>_,8X%P!Y$-L/N\T.]A:P(1O'''8+S2%N!?4#'Z8;U2OO'Y>RC(
MD7-7#G!18,@S9%N!*<$@;K\*A<B"@_);@+_@O_ GB;#]_L!YO9,&-OR W= ^
MT-10OX?0_' Q<#ZQO!# $#:_D7-(4+QP92=0,88@</!YUG,(]4VQ9;K@8ML@
MO_#_P>!E0@7!-; $E<6!_%/Z8;^^4 5#"6C!(DL@&P`N"A#_!$-0``CV!>($
MD;M1"K1-L+^\<% `46#&(C[B"'%AO^"?S5SA60CUB57YD2!!U''_#= 3!HI 
MU-#;$$M0B0!-P+^*D-M "')Q(U"P46!#PJ+64&XQ"/4KU4A\6I"[8K_!,^]P
MBD#H(']1[W!3&.&7N_'30C[B3,50="$<F//Z< ?08FT+X0:AA4 0T?_4T[K@
M98"_<;S1%D"+\OI2]_.Y(* >!"Z_(<D6(":&`/]+4,(@^E*[4]M ,7 AQ(B0
MX2*/+5-50B.?'^?O4(\E.+ZS)@\G'RU53B@_;1R743#@,7!I&B' (&C_VQ#Z
M( ZP[W ^T(_ `F##T1\ET^]P*V,"(#7P<B]O=X3@40#Z8'):@ APA2!D?RV;
M&^GWP-)6(>+3.,F6?08`-G$VL ```P`0$ `````#`!$0``````,`@!#_____
M0 `',,!K/\#^D[T!0 `(,,!K/\#^D[T!"P``@ @@!@``````P ```````$8`
M`````X4````````#``* "" &``````# ````````1@`````0A0````````,`
M!8 (( 8``````, ```````!&`````%*%``"W#0``'@`E@ @@!@``````P ``
M`````$8`````5(4```$````$````."XP``,`)H (( 8``````, ```````!&
M``````&%````````"P`O@ @@!@``````P ```````$8`````#H4````````#
M`#" "" &``````# ````````1@`````1A0````````,`,H (( 8``````, `
M``````!&`````!B%````````'@!!@ @@!@``````P ```````$8`````-H4`
M``$````!`````````!X`0H (( 8``````, ```````!&`````#>%```!````
M`0`````````>`$. "" &``````# ````````1@`````XA0```0````$`````
A````'@`]``$````%````4D4Z( `````#``TT_3<``-K"
`
end

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---