Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. OrganizationIsRandom

    Unpacking comp-3, generically

    Hi Glenn, Yes, the skeleton program you provided definitely helped me structure my program properly and use the reference modification/navigate the decimal point. Looking at it now - it's not as complex as I first thought thanks to everyones advice. Getting more and more used to this verbose...
  2. OrganizationIsRandom

    Unpacking comp-3, generically

    Hi Guys, Sorry for the slow reply. the first VSAM contains the records like so: KEY DATA CLAUAP1H, N0002640000000000000... CLAUAP2H, N0002640000000000000... etc... the second VSAM contains key start pos length data type in this position CLBC0009, 0046 0003 S999V99...
  3. OrganizationIsRandom

    Unpacking comp-3, generically

    After taking these posts into consideration I think my main problem is that the input packed decimal is in a character string. I need to move this to an S9 of the appropriate size, which can vary from record to record, so that it becomes 'unpacked', and then move the unpacked S9 to my...
  4. OrganizationIsRandom

    Unpacking comp-3, generically

    Hi PHV. Thanks for the quick reply - I'm pretty much brand new at COBOL so very much learning as I go. Could you explain what the -(9)9.9(9) is?
  5. OrganizationIsRandom

    Unpacking comp-3, generically

    I should have mentioned that I have a separate VSAM file that contains the PIC description of the field i'm reading in. So say my current read in data is 'xxx' then I also have a variable telling me that it's pic is 'PIX x(3)' cheers!
  6. OrganizationIsRandom

    Unpacking comp-3, generically

    Good evening folks. This is a real peach.... Consider this problem: an input string from a VSAM file is a packed decimal of one of the following forms: S9...9V9...9 S9...9V9(#) S9(#)V9...9 S9(#)V9(#) where # is 1 to 9 and s9...9 will at most be nine 9's. What I'm trying to do is unpack this...

Part and Inventory Search

Back
Top