Biton

[John Carr <74711.77@xxxxxxxxxxxxxx>]

Scott Asked   ' What the #$%@ is this stuff doing' ?

>Never having programmed the to opcodes, What are they?  That do they do?
>Please explain what is happening with this code.
>C                                 BITOFF     '01234567'         SS1    1
>C           60                 BITON       '0'                         SS1
>C           61                 BITON       '1'                         SS1
>  
>Scott Swaim
>scott71@hpnc.com
>http://www.qualitycorps.com

Scott

The old way of doing HEX characters in RPG.

First statement "Turns off" all bits for the 1 byte character field SS1.   
Thus making it the value of Hex 00. 

 Second statement    "If  *IN60 IFEQ *ON"    Turns on the first bit (of the
eight,  which is  denoted by 
Offset 0)  which turns field SS1 into    Hex 80 (which by the way has no
character representation).

Third statement    "If  *IN61 IFEQ *ON"   Turns on the second bit(of the
eight which is denoted by 
Offset 1)  which turns field SS1 into Hex 40(which by the way is a *BLANK
in character
representation).    

Probably SS1 is some "Real Old"  funky,  weird device type of  control
character???  Bar code, etc..

BTDT.   abeit,  aloooooong time ago.  

Note:   Looked them up on my trusty,  vintage,  1982ish  "IBM Translation
Table and Alternate
Collating Sequence Coding Sheet" - Figure 24-1       From some unnamed
manual.   Maybe RPG 1 for the Sys/370  (the original RPG/370 Jon,  which I
programmed on)    or a latter  Sys/34 or 38  RPGII or 
RPGIII  manual,  or something.

John Carr
EdgeTech

.
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---