Ü XLATE (Translate)

·         This opcode is used for character to character translation by the protocol specified in factor-1.

 

Example


Columns . . . :    6  80               Browse                                AMINEM/QRPGLESRC
SEU==>                                                                              OP_XLATE
FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 DUP               S             26A   DIM(1)                                    130131
0002.00 D                                     PERRCD(1)                                 130131
0003.00 D                                     CTDATA                                    130131
0004.00 DLO               S             26A   DIM(1)                                    130131
0005.00 D                                     PERRCD(1)                                 130131
0006.00 D                                     CTDATA                                    130131
0007.00 Dupperstring      S             20    INZ('IROBO EROSION')                      130131
0008.00 Dlowerstring      S             20    INZ(*BLANKS)                              130131
0009.00                                                                                 130130
0010.00 C     UP(1):LO(1)   XLATE     upperstring   lowerstring                         130131
0011.00 C     upperstring   DSPLY                                                       130131
0012.00 C     lowerstring   DSPLY                                                       130131
0013.00                                                                                 130130
0014.00 C                   SETON                                        LR             130130
0015.00 DATA UP                                                                         130131
0016.00 FGHIJKLMNOPQRSTUVWXYZ                                                           130131
0017.00 DATA LO                                                                         130131
0018.00 fghijklmnopqrstuvwxyz                                                           130131
****************** End of data *******************************************************


 

OUTPUT

 

DSPLY  IROBO EROSION                

DSPLY  irobo erosion                

 











User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy