Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
DJDE for Mainframe file with LRECL 133 to xerox pringter

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
manoahr20

New User


Joined: 28 Feb 2006
Posts: 6
Location: USA

PostPosted: Tue Feb 28, 2006 7:47 pm    Post subject: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

Hi Folks,

Please let me know how to use FONT and FONTINDEX to handle different fonts. I got 133 record length and I need a different font for first 3 address lines and need different fonts for other detail lines ...etc.

I got the list of fonts and I am not sure exactly to handle the fonts at line level. I am using the following DJDE..

Code:
  $DJDE RTEXT=('$REPORT=INVOICE TITLE=DEDUCTIBLE REIM           
  $DJDE TOF=4,BOF=60;FONTINDEX=(0,ZERO),DATA=(1,133),COPIES=1;   
  $DJDE OTEXT=('       ****  LOAD LANDSCAPE   ****',1,WAIT),;   
  $DJDE OTEXT=('       ****  THIS JOB IS DONE ****',END,WAIT),; 
  $DJDE FONTS=(K05F0L),SHI=NO,;                                 
  $DJDE BEGIN=(1.5 IN,1.5 IN),DUPLEX=NO,;                       
  $DJDE ASSIGN=(1,3),ASSIGN=(4,25),ASSIGN=(3,49),;               
  $DJDE RTEXT=('DISTRIBUTION INSTRUCTIONS:                       
  $DJDE RTEXT=('  JOB NUMBER 99999                               
  $DJDE RTEXT=('  DEDUCTIBLE REIMBURSEMENT INVOICES             
  $DJDE RTEXT=('  HOLD THESE DOCUMENTS AT PRNTR FOR MAILING     
  $DJDE END;                                                     


Your help is highly appreciated.

Thanks
Raja
<<E-Mail ID Removed>> Read Forum Rules.
Back to top
View user's profile Send private message

dneufarth

Active User


Joined: 27 Apr 2005
Posts: 255
Location: Cincinnati OH USA

PostPosted: Wed Mar 01, 2006 8:11 am    Post subject: Re: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

If I recall correctly, the first byte of the record (fontindex n) contains the relative number of the font specified in the font=(font1,font2,...). Each line is printed in the font relative to the index.

The actual length of the record becomes 134

pos 1 is print control character (ansi or machine code)
pos 2 id the font index
pos 3 thru 134 is the actual data to be printed
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Wed Mar 01, 2006 8:14 am    Post subject: Re: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

I looks to me like this line:

$DJDE TOF=4,BOF=60;FONTINDEX=(0,ZERO),DATA=(1,133),COPIES=1;

defines that there is a font index table, and that it starts in the first position of the data (offset=0) and starts from 0.

and that this line:

$DJDE FONTS=(K05F0L),SHI=NO,;

defines the order of the fonts to match the index.
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 255
Location: Cincinnati OH USA

PostPosted: Wed Mar 01, 2006 10:28 am    Post subject:
Reply with quote

Superk is on to something; faulty memory on my part.

$DJDE TOF=4,BOF=60;FONTINDEX=(0,ZERO),DATA=(1,133),COPIES=1;
indicates that pos 1 is the fontindex number, pos 2 is the print control character and pos 3 - 134 is the print line data

$DJDE FONTS=(K05F0L),SHI=NO,;
should become
$DJDE FONTS=(font1,font2,font3,font4,...,fontn),SHI=NO,;
Back to top
View user's profile Send private message
manoahr20

New User


Joined: 28 Feb 2006
Posts: 6
Location: USA

PostPosted: Wed Mar 01, 2006 7:25 pm    Post subject: Re: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

Please forget about my code and tell me how to change for few lines of report. I gave my sample code only. This code is not working for font switching.

I have a record length of 133. First byte is for carriage controls. Data is 132 length. I want to have one font for first 5 lines and the rest of the lines, I want another font. Again to change the font at the bottom of the report for totals.

Please suggest me a code for this using FONTINDEX or whatever in DJDE.


Customer Name
Customer Address
Address
City
State and zip

Report line1
line2...


Total amount due..$99,999,999.99


---
I need to have a font for the first address line and the other fonts for the rest of the report. Again the top font for the totals.

Please help with some sample code.

Thanks
Raj
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 255
Location: Cincinnati OH USA

PostPosted: Thu Mar 02, 2006 7:12 am    Post subject:
Reply with quote

I think I did.

Change DJDE statements so there is a fontlist FONTS=(f1,f2)

then each print record must specify the font by number (0 or 1 OR 1 or 2) in pos 1, PCC in 2 and print data in 3-134

see what happens, make changes and try again. you may have to reverse the font number field and the PCC field

I don't have the Xerox manuals to help you any further with the exact keywords and parameters. Do you? Look up the JDE keywords or ask your laser print analyst/support person.
Back to top
View user's profile Send private message
manoahr20

New User


Joined: 28 Feb 2006
Posts: 6
Location: USA

PostPosted: Sat Mar 04, 2006 3:01 am    Post subject: Re: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

HI Dave,

Thanks for your reply. I got the JDE and got the fonts to work. But, if I use multiple font lines on the same page, the lines are getting truncated for data.

Do you have anything about not to truncate data?. Please revert.
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 255
Location: Cincinnati OH USA

PostPosted: Sat Mar 04, 2006 7:21 am    Post subject:
Reply with quote

fonts are probably too large to get all characters on a single line to fit page width

try creating print lines using each font with data like

Code:
*...+....1....+....2....+...3....+....4....+....5....+...6....+....7....+....8....+...9....+....A


that will give you an idea of how many characters each font will allow per line; trim data portion accordingly depending on whether you print portrait|landscape

using fontindex plays havoc with column alignment also
Back to top
View user's profile Send private message
manoahr20

New User


Joined: 28 Feb 2006
Posts: 6
Location: USA

PostPosted: Mon Mar 06, 2006 7:34 pm    Post subject: Re: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

Hi dneufarth,

I dont think that will work as I expect variable data over there. If the data element got only few CHARs, it is shrinking. If data element got more CHARs, it is expanding.

I am not sure whether some commands in JSL as:

LINE OVERPRINT=MERGE ........ or any other specification will work.


Thanks for your input.
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 255
Location: Cincinnati OH USA

PostPosted: Tue Mar 07, 2006 3:42 am    Post subject:
Reply with quote

is it a variable width font? if so, spaces will indeed be smaller along with 'i', 'l' and similar 'thin' characters

try fixed width fonts
Back to top
View user's profile Send private message
hari_haran

New User


Joined: 27 May 2007
Posts: 1
Location: india

PostPosted: Mon Jun 04, 2007 5:28 pm    Post subject: Re: DJDE for Mainframe file with LRECL 133 to xerox pringter
Reply with quote

can anyone tell me where i can get different font type and the corresponding code (to be mentioned in DJDE FONTstatement)?
Thanks,
Hari
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
No new posts Moving a PS file as body of a mail! Vignesh Sid JCL & VSAM 4 Tue Nov 21, 2017 9:23 pm
No new posts unable to set RC = 4 when empty file migusd SYNCSORT 1 Tue Nov 21, 2017 1:21 am
No new posts Mainframe Blocks to Tracks conversion upendrasri JCL & VSAM 1 Sat Nov 18, 2017 10:52 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us