Re: RPG program to generate MI-program 'cipher'

This was a response to a request for a program that would
DES encrypt data. It takes three 8-char parms: a key, a text,
and the encrypted result.

----- Original Message -----
From: Colin Williams <Williamsc@technocrats.co.uk>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, May 27, 1999 2:17 AM
Subject: RE: RPG program to generate MI-program 'cipher'


> Sorry, but what will this program actually do?
>
> -----Original Message-----
> From: leif@ibm.net [mailto:leif@ibm.net]
> Sent: Thursday, May 27, 1999 12:50 AM
> To: MIDRANGE-L@midrange.com
> Subject: RPG program to generate MI-program 'cipher'
>
>
> 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
> +---
> +---
> | 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
> +---
>

+---
| 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
+---