The s99 field implies that the data in the sending field is a valid numeric field with the last byte containing a valid numeric sign.
If my assembler isn't toooo rusty. What happens behind the the curtain is that the compiler generates instructions to convert the Zone Decimal field to pack (which doesn't do a validate) and does a ZAP instruction which takes the field down the hardware path where the numeric portion get interrogated. That is where, I believe, the S0C7 is generated. SO.....the sending fiels must be a combination of the following F0-F9, C0-C9, D0-D9 there is another range but I don't havv a green card available.
I will take a further step in saying, and now I am streaching my brain, that the conversion from display format to the packed format to verify the numeric portion DOES NOT care what is in the hig order signifigant sign portion of the display characters. It just moves the digit portion. (eg SDSDSD) until it gets to the last byte where it retrieves it's sign from. So all the signs can be whatever except the last one which must be a C or D or F and the digits portion in ALL the Zone Decimal must be 0-9.
DID I PASS THE TECH INTERVIEW?????????????????????????????????? (tee hee hee)
bobbee
From: Ruzi R <[EMAIL PROTECTED]> Reply-To: MQSeries List <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Subject: Re: SOC 7 error while displaying S99 Fields in COBOL (WMQI 2.1) Date: Wed, 27 Aug 2003 08:50:26 -0700
Someone correct me if I am wrong It has been in the back of my mind that the S9 and COMP-3 fields have to be changed ,before they are MQPUTed, to flat PIC 9 s without the assumed sign and COMP-3, and that the assumed sign to be coded as a one byte separate filed -- for conversion purposes. No?
Ruzi --- Juni Per <[EMAIL PROTECTED]> wrote: > > Hi , > > I have the following COBOL copy book imported into > WMQI(2.1 WinNT) > > 06 TESTVARIABLES. > 07 TESTINPUT. > 08 INTEGERNOSIGN PIC 99. > 08 INTEGERSIGNED PIC S99. > 08 DECIMALNOSIGN PIC 99V99. > 08 DECIMALSIGNED PIC S99V99. > 08 COMP3NOSIGN PIC 99V99 COMP-3. > 08 COMP3SIGNED PIC S99V99 COMP-3. > > > > I assign the following values to them in a compute > node > > SET "OutputRoot"."MRM"."INTEGERNOSIGN" = 12; > > SET "OutputRoot"."MRM"."INTEGERSIGNED" = -12; > > SET "OutputRoot"."MRM"."DECIMALNOSIGN" = 1234; > > SET "OutputRoot"."MRM"."DECIMALSIGNED" = -1234; > > SET "OutputRoot"."MRM"."COMP3NOSIGN" = 5678; > > SET "OutputRoot"."MRM"."COMP3SIGNED" = -678; > > Now when a COBOL program on mainframe reads this > message and moves into the same copybook and > displays the fields , I get an SOC 7 error for the > S99 field.WHat could be the problem. Pls respond. > > > > THanks in ADvance > > > > > --------------------------------- > Do you Yahoo!? > SBC Yahoo! DSL - Now only $29.95 per month!
Instructions for managing your mailing list subscription are provided in the Listserv General Users Guide available at http://www.lsoft.com Archive: http://vm.akh-wien.ac.at/MQSeries.archive
_________________________________________________________________ Enter for your chance to IM with Bon Jovi, Seal, Bow Wow, or Mary J Blige using MSN Messenger http://entertainment.msn.com/imastar
Instructions for managing your mailing list subscription are provided in the Listserv General Users Guide available at http://www.lsoft.com Archive: http://vm.akh-wien.ac.at/MQSeries.archive
