RE: EBCDC Codes needed.

["Mark A. Manske" <mmanske@xxxxxxxxxxxxxxxxxx>]

The easiest way is to use the BOX op code in your DDS, it takes some
"practice" to see what the results will be, but it does work rather nicely
with an IPDS/AFP type printer to "design" your own forms.  I did an in-house
vendor invoice that way to box around all the normally pre-printed data.

 here is a snippet of that dds

///////SPECIAL COMPILE INSTRUCTIONS////////

 *AFPDS, 66 LONG, 80 WIDE, 60 OVERFLOW,
    PAGEROTATION=*AUTO, OUTQ=L1, SAVE=*YES

A          R BOX1
 ****________FULL PAGE BOX
A                                      BOX(.60 .36 10.70 8.0 *MEDIUM)
 ****________FULL PAGE BOX/UNDERSCORE
A                                      BOX(.60 .36 1.25 8.0 *NARROW)
 *
 ****________LEFT BOX FOR INVOICE NUMBER
A                                      BOX(.60 .36 1.25 2.0 *NARROW)
 ****________LEFT BOX FOR INVOICE NUMBER/SPLIT
A                                      BOX(.95 .36 1.25 2.0 *NARROW)
 *
 ****________RIGHT BOX FOR DATE
A                                      BOX(.60 6.5 1.25 8.0 *NARROW)
 ****________RIGHT BOX FOR DATE/SPLIT
A                                      BOX(.95 6.5 1.25 8.0 *NARROW)
.
.
.
A          R HEADER
A                                    30'Returned Goods Invoice'
A                                      CHRSIZ(1 1.5)
A                                      SKIPB(003)
A                                    25'Minter-Weisman Co.'
A                                      CHRSIZ(2 2.5)
A                                      SKIPB(005)
 ***STATIC
A                                     7'INVOICE'
A                                      CHRSIZ(1 1)
A                                      HIGHLIGHT
A                                    70'DATE'
A                                      CHRSIZ(1 1)
A                                      HIGHLIGHT

One "trick" I discovered the hard way - there appears to be a limit on the
number of box op codes per record,
so I had to split it into multiple record formats to "draw" all of the
boxes.

The web manual for DDS somewhat explains how this works, but raw
experimentation is the best teacher

HTH.

Mark A. Manske
[mailto:mmanske@minter-weisman.com]
Sr. Project Lead
Minter-Weisman


-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of jjooste@omnia.co.za
Sent: Thursday, October 12, 2000 5:40 AM
To: RPG400-L@midrange.com
Subject: EBCDC Codes needed.



First time contributing to the mailing list.

I need to write a program that draws a block (dinamic) around some text. I
don't
want to make use of "+' for the corners. Does anybode know where to find
EBCDC
Codes for the corners, eg. Eval    Char = X'??', or a better way to do it ?

It should look something like this:

     (Embedded image moved to file: pic26504.pcx)

Thnx.

Kobie

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---