FDSPATRD CF  E                    WORKSTN
     E                    T      16  16  1
     IWSATR       DS
     I                                        1   1 Z
     I                                        2   2 D
     IBINDS       DS
     I                                    B   1   20BIN
     I                                        2   2 C
     C                     MOVE '12345'   ENTREE
     C                     MOVE 'ABCDE'   SORTIE
     C                     EXFMTFMT
     C           *IN03     DOWEQ*OFF
     C                     MOVE SATR1     WSATR
     C                     EXSR CALATR
     C                     MOVE WATR      ATR1
     C                     MOVE SATR2     WSATR
     C                     EXSR CALATR
     C                     MOVE WATR      ATR2
     C                     EXFMTFMT
     C                     ENDDO
     C                     MOVE *ON       *INLR
      *****************************************************************
     C           CALATR    BEGSR
     C*
     C                     Z-ADD1         H       20
     C                     MOVE X'20'     C
      * ZONE (HORS TEXTE)
     C           Z         LOKUPT,H                      50
     C           *IN50     IFEQ '1'
     C                     SUB  1         H
     C                     MULT 16        H
     C                     Z-ADDH         BIN
      * DIGIT
     C                     Z-ADD1         H
     C           D         LOKUPT,H                      50
     C           *IN50     IFEQ '1'
     C                     SUB  1         H
     C                     ADD  H         BIN
     C                     ENDIF
     C                     ENDIF
     C                     MOVE C         WATR    1
     C                     ENDSR
**
0123456789ABCDEF