IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

DJDE for Mainframe file with LRECL 133 to xerox pringter


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
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
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: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Wed Mar 01, 2006 8:11 am
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

Global Moderator


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

PostPosted: Wed Mar 01, 2006 8:14 am
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: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Wed Mar 01, 2006 10:28 am
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
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: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Thu Mar 02, 2006 7:12 am
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
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: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Sat Mar 04, 2006 7:21 am
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
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: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Tue Mar 07, 2006 3:42 am
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts WER247A SORTOUT HAS INCOMPATIBLE LRECL SYNCSORT 7
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
Search our Forums:

Back to Top