home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / addlibl.lzh / BINCVT.ARC / CPP2051.RPG < prev   
Text File  |  1985-12-02  |  1KB  |  21 lines
  1.      I/TITLE  Convert a 2-byte or 4-byte binary value to decimal.
  2.      I*       Program - CPP2051
  3.      I*       CPP for - BINCVT
  4.      IBIN         DS
  5.      I                                    B  01  020LENGTH
  6.      I                                    B  03  040B2
  7.      I                                    B  03  060B4
  8.      C           *ENTRY    PLIST
  9.      C                     PARM           BIN              Binary input
  10.      C                     PARM           VALUE  150       Decimal output
  11.      C           LENGTH    IFEQ 2                          If 2-byte value
  12.      C                     Z-ADDB2        VALUE            Convert to dec.
  13.      C                     ELSE
  14.      C           LENGTH    IFEQ 4                          If 4-byte value
  15.      C                     Z-ADDB4        VALUE            Convert to dec.
  16.      C                     ELSE                            If neither,
  17.      C                     Z-ADD0         VALUE            Then ZAP value.
  18.      C                     END
  19.      C                     END
  20.      C                     MOVE '1'       *INLR
  21.