HP3000-L Archives

May 2000, 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: Q:How to you find the ASCII value.
From:
Tom <[log in to unmask]>
Reply To:
Tom <[log in to unmask]>
Date:
Thu, 4 May 2000 21:43:33 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (18 lines) 
   05  CHAR-FIELDS.
       07  CHAR-1            PIC X.
       07  CHAR-2            PIC X.
   05  NUMB-FIELD REDEFINES CHAR-FIELDS PIC S9(4) COMP.

    .
    .
    .

   0090-CONVERT-TO-ASCII.
       MOVE ZERO TO NUMB-FIELD.
       MOVE "A" TO CHAR-2.
       DISPLAY NUMB-FIELD.

   0095-CONVER-TO-NUMB.
       MOVE 65 TO NUMB-FIELD.
       DISPLAY CHAR-2.

ATOM RSS1 RSS2