Date:         Tue, 18 Jul 1995 14:40:24 -0700
Reply-To:     The NOMAD2 Discussion List
Sender:       The NOMAD2 Discussion List
From:         Bradley Beebe
Subject:      Floating Point

LISTSERV Subscribers,

I am having trouble reading data from a TSO file into my NOMAD database
in VM.  The problem is that the TSO data is stored as a floating point
number and is converted to a 8 character decimal number(which I need)
by a COBOL Sub-routine.  I am running Quick Job to extract the data
from the TSO file and then transfer the file over to VM where it is
loaded into the database.  The format of the file is as follows:

C1C2C3F4 F2F560F0 F5F04040 40404040 D9E3F9F9 F0F0F1F9 F9C1C2C3 F4F2F560 F0F5F0
 A B C 4  2 5 - 0  5 0               R T 9 9  0 0 1 9  9 A B C  4 2 5 -  0 5 0
40 40404040 40404040 41100000 C5C1F9F9 D5
                      " " " "  E A 9 9  N

The 41100000 is defined as FS 9(8) and is converted by a COBOL
Sub-routine in IMS to 1.000000.  The COBOL program is similar to
the following:

//FLOATNDY JOB (SGDA,D,,,E521),BLACK,CLASS=A,
//             NOTIFY=RRM460,MSGCLASS=H
/*ROUTE  PRINT RFINS2
//*
//*****************************************************
//*                                            13JUL95
//*
//* COMPILE, LINK, AND TEST OF COB II PROG TO
//* INVOKE THE FLOATDIS ROUTINE.
//*
//* NOTE: FLOATDIS IS AMODE, RMODE 24.
//*       FLOATDIS IS IN THE LIBRARY: SPDLIB.
//*       (SPDLIB IS ALREADY PART OF THE LINK STEP'S //SYSLIB
//*        IN THE COB2UCL PROC.)
//*****************************************************
//*
//CBL      EXEC COB2UCL,
//             PROG=RBLACKND,
//             LDLIB='R.TESTLIB',
//             LKEDOPT='LET'
//*
//COB2.SYSIN DD  *
000100 ID DIVISION.
000200 PROGRAM-ID. RBLACKND
000300 AUTHOR. RICH BLACK.
000400 DATE-WRITTEN. JULY  1995.
000500 DATE-COMPILED.
000600*REMARKS.
000700*
000800*     TEST FLOATDIS ROUTINE FROM COBOL II
001000*
001100 ENVIRONMENT DIVISION.
001200 CONFIGURATION SECTION.
001300 SOURCE-COMPUTER. IBM-3090.
001400 OBJECT-COMPUTER. IBM-3090.
001500 INPUT-OUTPUT SECTION.
001600 FILE-CONTROL.
001700
001800 DATA DIVISION.
001900 FILE SECTION.
002000
002100 WORKING-STORAGE SECTION.
002200
002400 01  FLOAT-QTY               COMP-1.
002400 01  FLOAT-QTY-X REDEFINES FLOAT-QTY    PIC X(4).
002400
002400 01  DISPLAY-QTY             PIC  X(8).
002400
003200*
003300 PROCEDURE DIVISION.
003400 PROGRAM-DRIVER.
003500******************************************************************
003600*PROGRAM DRIVER
003700*    FUNCTION IS -
003800*       CONTROL PROGRAM FLOW

I have tried to load the data as a real number, but have been
unsuccessful.  I have also tried to call the COBOL Sub-routine
from Quick Job with no success.  Any ideas on how to load this
non-standard data into a VM Nomad database???

Thanks for any suggestions.

Regards,
Brad Beebe
Sector Finance Systems Support
SPS
back to index