RPG program to generate MI-program 'cipher'

[leif@xxxxxxx]

sorry everybody (especially Njal). There were a few problems with the RPG
program.
Here is better version.

This is also a useful skeleton for othe MI-programs


     E                    MI      1  20 80
     I            DS
     I                                    B   1   40#SRCLN
     I I            'CIPHER    QGPL'          5  24 #PGMLB
     I                                       25  74 #TEXT
     I I            '*NONE'                  75  94 #SRCFL
     I                                       95 104 #MBR
     I                                      105 117 #CHGDT
     I                                      105 105 #CENT
     I                                      106 107 #YY
     I                                      108 111 #MMDD
     I                                      112 117 #HMS
     I                                      118 137 #PRTFL
     I                                    B 138 1410#STRPG
     I                                      142 151 #AUT
     I                                      152 327 #OP
     I                                    B 328 3310#NOOPT
     C                     CALL 'QPRCRTPG'
     C                     PARM           MI
     C                     PARM 1600      #SRCLN
     C                     PARM           #PGMLB
     C                     PARM 'Cipher'  #TEXT
     C                     PARM           #SRCFL
     C                     PARM           #MBR
     C                     PARM           #CHGDT
     C                     PARM ' '       #PRTFL
     C                     PARM 0         #STRPG
     C                     PARM '*USE'    #AUT
     C                     PARM ' '       #OP
     C                     PARM 0         #NOOPT
     C                     MOVE *ON       *INLR
**
DCL SPCPTR .KEY PARM;
DCL SPCPTR .TXT PARM;
DCL SPCPTR .DES PARM;
DCL OL *ENTRY (.KEY, .TXT, .DES) PARM EXT MIN(3);
DCL DD KEY CHAR(8) BAS(.KEY);
DCL DD TXT CHAR(8) BAS(.TXT);
DCL DD DES CHAR(8) BAS(.DES);

DCL DD CONTROL CHAR(32);
    DCL DD FUNCTION CHAR(2) DEF(CONTROL) POS(1) INIT(X'0002');
    DCL DD TXT-SIZE  BIN(2) DEF(CONTROL) POS(3) INIT(8);
    DCL DD OPTION   CHAR(1) DEF(CONTROL) POS(5) INIT(X'00');
    DCL DD CTRL-KEY CHAR(8) DEF(CONTROL) POS(6);

ENTRY * (*ENTRY) EXT;
    CPYBLA  CTRL-KEY, KEY;
    CIPHER .DES, CONTROL, .TXT;
    RTX     *;

PEND;


Leif Svalgaard

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---