|
1.
e.g. with proc report
DATA test;
INFILE CARDS;
INPUT ccn @@;
DO i=1 TO 100; OUTPUT; END;
LABEL ccn="Credit Card No.";
FORMAT ccn 8.;
CARDS;
221 566
234 788
456 930
;
RUN;
ODS LISTING;
PROC REPORT NOWD LS=80 PANEL=8 SPACING=2;
COLUMN ccn;
DEFINE ccn / DISPLAY;
RUN;
3.
Look in the help for "zoned decimal data".
You have to use the ZDw.d format.
"Giulio Belrango" <giuliobelrango@home.com> wrote:
>I'm working in a IBM OS/390 environment, and I need some help with a few
>questions and situations.
>
>1) I would like to print a report like a credit card number, printing from
>the top to bottom and left to right across the page.
>i.e.
>Credit Credit Credit
>Card No. Card No. Card No.
>221 566
>234 788
>456 930
>
>3) In COBOL Fielda Pic S9(1).
>When I
>Move -1 to Fielda I get 'D9'
>Move 0 to Fielda I get 'C0'
>I can't seem to get the same results with my Put statement.
>I used 'D9'x and 'C0'x to get arround this.
>What format should I be using.
* --------------------------------- +
! Ingenieurbuero Grueninger !
! Andreas Grueninger !
! Uhlbergstr. 15 !
! 72631 Aichtal (Germany) !
! email: grueninger@ibgrueninger.de !
+ --------------------------------- ;
| 
