That's correct. Signed decimal and packed fields do not survive data conversion. The best practice is that a message should be all binary and not converted or all character if it needs to be converted. Bottom line--all fields in the message should be defined in display formats (PIC X or PIC 9...).
> -----Original Message----- > From: Ruzi R [SMTP:[EMAIL PROTECTED] > Sent: Wednesday, August 27, 2003 8:50 AM > To: [EMAIL PROTECTED] > Subject: Re: SOC 7 error while displaying S99 Fields in COBOL (WMQI 2.1) > > 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 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
