Das Programm ersetzt Zeichen in einem variabel  langen Eingabebereich durch einen anderen Zei-  chensatz. Dafür bearbeitet eine Schleife in 256  Byte Stücken den Bereich und ersetzt die Zeichen  über eine sog. Translate Tabelle. A2C - Beispiel 1 (Codefragment) FHSTRIN  START          GPARMOD  31  FHSTRIN  @ENTR TYP=E,        +                 ENTRY=CSECT,  +                 AMODE=ANY,    +                 RMODE=ANY,    +                 ILCS=YES                    DROP  R@BASE                                   SFHSTRIN BREG  BASREG=(3)           B     BEG                                   BEG      DS    0H           L     R6,0(R1)           XR    R7,R7           L     R7,4(R1)           LH    R7,0(R7)           LTR   R7,R7           BZ    RETUR           LA    R8,TRITAB  TRLOOP   DS    0H           CH    R7,=H'256'           BH    IGR256           SH    R7,=H'1'           EX    7,TRAN           B     RETUR             TRAN     TR    0(0,6),0(R8)  IGR256   DS    0H           TR    0(256,R6),0(R8)           SH    R7,=H'256'           LA    R6,256(R6)           B     TRLOOP  RETUR    DS    0H           @EXIT TRITAB   DS    0F                                            DC    X'000102030405060708090A0B0C0D0E0F'           DC    X'10111213147C161718191A1B1C1D1E1F'           DC    X'202122232425262728292A2B2C2D2E2F'           DC    X'303132333435363738393A3B3C3D3E3F'           DC    X'404142434445464748494A4B4C4D4E7C'           DC    X'505152535455565758595A5B5C5D5E5F'           DC    X'606162636465666768694C6B6C6D6E6F'           DC    X'707172737475767778797A7B7C7D7E7F'           DC    X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'           DC    X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'           DC    X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'           DC    X'B0B1B2B3B4B5B6B7B8B9BA7B7C5BBEBF'           DC    X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'           DC    X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'           DC    X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'           DC    X'F0F1F2F3F4F5F6F7F8F9FA7BFC5BFE4C'  *-------------------------------------------------------------   LINKAGE SECTION.                                               *-------------------------------------------------------------   01 FELT                       PIC X(4096).                      01 FELT-LEN                   PIC 9(4) COMP.                                                                                   *-------------------------------------------------------------   PROCEDURE DIVISION USING FELT FELT-LEN.                        *-------------------------------------------------------------                                                                   FHSTRIN SECTION.                                                     IF FELT-LEN NOT = ZERO                                                                                                            INSPECT FELT (1:FELT-LEN) REPLACING ALL  X'15' BY '@'             X'4F' BY '@' X'6A' BY '<' X'BB' BY '#' X'BC' BY '@'             X'BD' BY '$' X'FB' BY '#' X'FD' BY '$' X'FF' BY '<'                                                                         END-IF                                                                                                                          MOVE 0 TO RETURN-CODE                                           GOBACK.                                                   A2C erkennt Schleife und TRT Funktion und setzt entsprechend um. Mit COBOL Mitteln entsteht so ein wesentlich besser lesbares Programm. Kontakt  Jobs (c) IT Modernisation UG zum nächsten Beispiel ... Impressum