From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: * X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_20,INVALID_DATE, MSGID_SHORT autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,8b999ff6623b7d8c,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 1993-03-01 16:28:18 PST Path: sparky!uunet!spool.mu.edu!howland.reston.ans.net!zaphod.mps.ohio-state.edu!mane.cgrg.ohio-state.edu!arrakis!oodis01!oodis01.af.mil From: nelsonb@oodis01.af.mil (Contractor Bert Nelson) Newsgroups: comp.lang.ada Subject: Signed Numeric conversions Message-ID: <2884@oodis01.af.mil> Date: 2 Mar 93 00:28:18 GMT Sender: nelsonb@oodis01.af.mil Organization: Hill AFB, Utah Date: 1993-03-02T00:28:18+00:00 List-Id: I am trying to create a package that will handle the conversion of Cobol signed numerics e.g. S999 into integer and Ada integer back to a Cobol signed numeric, but every minute the package is becoming more and more complicated. For example a Cobol variable with a picture clause of PIC S999 might have the values 121 or -121 in it and its signed numeric value is "12A" and "12J" respectively. These would correspond with postive 121 and -121 in an Ada integer variable. Cobol Signed Numeric Ada integer 12A 121 12J -121 Does anyone have suggestions on a simple way of doing conversions from Cobol signed numerics to Ada integer and vice versa?? Bert Nelson Hill Air Force Base nelsonb@oodis01.af.mil