HP3000-L Archives

May 2002, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: DISPLAY and MOVE of S9(99) BINARY
From:
Michael Berkowitz <[log in to unmask]>
Reply To:
Michael Berkowitz <[log in to unmask]>
Date:
Tue, 7 May 2002 12:36:10 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (100 lines) 
mary DeGallo writes



Hi everybody!


   I have  following definitions on HP3000 .


   01  VAR1 PIC S9(9) BINARY.

   01  VAR2 PIC 9(9).

  .....
        MOVE VAR1 TO VAR2.

     what is expected?
     I am getting ZEROs.
     Why would it be?
     How can I display, access, save my Binary numbers
     and COMP numbers.

  -------------------------------------------------------------
Well let's try it out.

:COB85XLG TESTITS.MB.DEV

PAGE 0001  COBOL II/iX HP31500A.04.20  [85] Copyright Hewlett-Packard CO.
1987


 00001 COBCNTL  000100*  The following are defaults for Compatibility mode
compiler.
 00002 COBCNTL  000200*CONTROL
LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,WARN
 00003 COBCNTL  000300*CONTROL
LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC16,INDEX16
 00004 COBCNTL  000400*
 00005 COBCNTL  000500*  The following are defaults for Native compiler.
 00006 COBCNTL  000600*
 00007 COBCNTL  000700*CONTROL
LIST,SOURCE,NOCODE,NOCROSSREF,ERRORS=100,NOVERBS,WARN
 00008 COBCNTL  000800*CONTROL
LINES=60,NOMAP,MIXED,QUOTE=",NOSTDWARN,SYNC32,INDEX32
 00009 COBCNTL  000900*CONTROL NOVALIDATE,OPTIMIZE=0
 00010 COBCNTL  001000*
 00011 COBCNTL  001100*   For any other options, redirect COBCNTL.PUB.SYS by
using
 00012 COBCNTL  001200*   a file equation.
 00013 COBCNTL  001300*
 00014          001000 IDENTIFICATION DIVISION.
 00015          001100 PROGRAM-ID.  TESTIT.
 00016          001200 DATA DIVISION.
 00017          001300 WORKING-STORAGE SECTION.
 00018          001400 77  VAR1 PIC S9(9) BINARY.
 00019          001500 77  VAR2 PIC 9(9).
 00020          001600 PROCEDURE DIVISION.
 00021          001700 000-BEGIN.
 00022          001800     COMPUTE VAR1 = 515243.
 00023          001900     MOVE VAR1 TO VAR2.
 00024          002000     DISPLAY VAR2.
 00025          002100     COMPUTE VAR1 = 1000000000.
 00026          002200     MOVE VAR1 TO VAR2.
 00027          002300     DISPLAY VAR2.
 00028          002400     COMPUTE VAR1 = 1234567890.
 00029          002500     MOVE VAR1 TO VAR2.
 00030          002600     DISPLAY VAR2.
 00031          002700     STOP RUN.


0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)

    DATA AREA IS       38 BYTES.
    CPU TIME = 0:00:00.  WALL TIME = 0:00:00.

END OF PROGRAM
END OF COMPILE
HP Link Editor/iX (HP30315A.06.21) Copyright Hewlett-Packard Co 1986

LinkEd> link

END OF LINK

000515243
000000000
234567890

END OF PROGRAM
:
As you can see I get zeros only if the last 9 digits of my binary field
contain zeros, otherwise I have the last 9 digits of whatever var1 has when
moved to var2.

Mike Berkowitz
Guess? Inc.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2