I am tring to create a fex that will send the output to impact printer and I am not having
very much luck. Not sure if in need to create each line as a print string with special characters?


Any help would greatly help...
Don

You don't say much about how you are trying to do this so I donn't have much to go on. By itself, a simple fex (TABLE FILE/PRINT/END) will not send anything to a printer. It will only return to a browser or helper application such as Acrobat Reader or Excel. You have a couple of options - ReportCaster is the tool commonly used for print distribution, but is separately licensed. The other option is to HOLD and then issue some operating system sommand such as LPR or DOS PRINT or something similar. You don't include any operating system specifications in your profile so can't help much further than that.

What i trying to do is run the following fex which will create a
output file that i need to send to a impact printer that would print
a multi-part form.

I know that sending the PDF as we have done will not work.


-*********************************************************************
-* *
-* COPYRIGHT (C) 2004 THE HERTZ CORPORATION *
-* ALL RIGHTS RESERVED.[UNPUBLISHED] *
-* THE INFORMATION CONTAINED HEREIN IS CONFIDENTIAL AND *
-* PROPRIETARY TO THE HERTZ CORPORATION AND MAY NOT BE *
-* DUPLICATED, DISCLOSED TO THIRD PARTIES OR USED FOR ANY *
-* PURPOSE NOT EXPRESSLY AUTHORIZED BY IT. ANY UNAUTHORIZED *
-* USE, DUPLICATION OR DISCLOSURE IS PROHIBITED BY LAW. *
-* *
-*********************************************************************
-* PROCEDURE NAME: pamv1snap.fex *
-* CREATION DATE: November 2008 1 *
-*********************************************************************
-* MASSACHUSETTS REGISTRY OF MOTOR VEHICLES RMV-1 SNAP FORM *
-*********************************************************************
-* Date SR#/TT# Pgmr Description of Modification *
-*---------- ----------- --------- ----------------------------------*
-*
-*********************************************************************
-DEFAULT &YEAR = 9;
-DEFAULT &BATCH = 11021;
-*DEFAULT &BATCH = 9/13916,12809,21958
-*********************************************************************
-SET &MR_FULL_FEXNAME = 'MODELLIS';
-MRNOEDIT -INCLUDE NSTOPFOS
-*********************************************************************
-*SETTING THE DATE *
-*********************************************************************
-SET &RUNDATE = AYMD(&YYMD, -0,'I8YYMD');
-*-TYPE &RUNDATE
-*-EXIT
-*********************************************************************
JOIN
POVEH.POVEH.VEH_MANUF_CODE IN POVEH TO MULTIPLE MDC.MDC.MDC_CODE IN MDC AS J1
END
JOIN
POVEH.POVEH.VEH_REGIS_AREA AND POVEH.POVEH.VEH_COUNTRY_CODE IN POVEH
TO MULTIPLE AREA.AREA.ARA_AREA_NMBR AND AREA.AREA.ARA_COUNTRY_CODE IN AREA
AS J0
END
JOIN
POVEH.POVEH.VEH_COUNTRY_CODE AND POVEH.POVEH.VEH_MANUF_CODE
AND POVEH.POVEH.VEH_ORDERING_DEALER_CODE IN POVEH TO MULTIPLE
DLR.DLR.DLR_COUNTRY_CODE AND DLR.DLR.DLR_MANUF_CODE AND DLR.DLR.DLR_DEALER_CODE
IN DLR AS J2
END
JOIN
POVEH.POVEH.VEH_COUNTRY_CODE AND POVEH.POVEH.VEH_MANUF_CODE
AND POVEH.POVEH.VEH_MODEL_YEAR AND POVEH.POVEH.VEH_ASAP_MODEL_CODE IN POVEH
TO MULTIPLE ASAP.ASAP.ASP_COUNTRY_CODE AND ASAP.ASAP.ASP_MANUF_CODE
AND ASAP.ASAP.ASP_MODEL_YR AND ASAP.ASAP.ASP_CODE IN ASAP AS J3
END
-*********************************************************************
TABLE FILE POVEH
PRINT
ASP_VEH_CLASSIF
DLR_NAME
ASP_DESC
ASP_DOORS
ASP_TOT_SEATS
ASP_ENG_CYL
ARA_MSO_TO_STREET
ARA_MSO_TO_CITY
ARA_MSO_TO_STATE
ARA_MSO_TO_ZIP
VEH_ORDER_ITEM_NMBR
MDC_MFG_DESCRIPTION
VEH_ASAP_MODEL_GRP
VEH_MODEL_YEAR
VEH_VIN_ID_NMBR
VEH_MANUF_CODE
VEH_MANUF_MODEL
VEH_MSO_BATCH_CODE
VEH_MSO_BATCH_MODEL_YEAR
VEH_ORDER_AREA_NMBR
VEH_ORDER_AREA_COUNTER
VEH_PO_INSERVICE_MONTH
VEH_REGIS_STATE
VEH_HERTZ_UNIT_NMBR
VEH_MSO_INVOICE
VEH_MSO_RECV_DATE
WHERE ( VEH_COUNTRY_CODE EQ 'US');
WHERE ( VEH_REGIS_STATE EQ 'PA');
WHERE ( VEH_MSO_BATCH_MODEL_YEAR EQ &YEAR);
WHERE VEH_MSO_BATCH_CODE IN (&BATCH);
WHERE ( VEH_HERTZ_CANCEL_DATE EQ 0);
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE HOLD AS pamv1sna
-*ON TABLE PCHOLD AS XXXXXXXX FORMAT WP
END
-RUN
-*-EXIT
-*********************************************************************
-* *
-*********************************************************************
DEFINE FILE pamv1sna
S/A1 = ' ';
BANK/A25 = 'BNY MELLON TRUST CO. N.A.';
CT1/A34 = 'CT SERVICES, 20 OAK HOLLOW STE 350';
CT3/A10 = 'SOUTHFIELD';
CT4/A2 = 'MI';
CT5/A5 = '48033';
AGENCY/A18 = 'HERTZ VEHICLES LLC';
XX/A2 = 'XX';
FEIN/A11 = '250-659-306';
AGENT#/A8 = '86-12734';
MILEAGE/A3 = '1 5';
HADD/A58 = '14501 HERTZ QUAIL SPRINGS PARKWAY, OKLAHOMA CITY, OK 73134';
TITLEFEE/A5 = '22 50';
LIENFEE/A4 = '5 00';
EXREASON/A2 = '2';
EXEMPT#/A8 = '82185644';
INSURANCE/A15 = 'SELF INSURED';
POLICY#/A4 = 'SI-5';
PEDATE/A7 = '04/1975';
AGENT/A25 = 'THE HERTZ CORPORATION';
-*
MAKE/A10 = IF MDC_MFG_DESCRIPTION EQ 'CHEV-T-K' THEN 'CHEVY'
ELSE IF MDC_MFG_DESCRIPTION EQ 'CHEV-T-V' THEN 'CHEVY'
ELSE IF MDC_MFG_DESCRIPTION EQ 'CHRY-TRUCK' THEN 'CHRYSLER'
ELSE IF MDC_MFG_DESCRIPTION EQ 'BUICK T-V' THEN 'BUICK'
ELSE IF MDC_MFG_DESCRIPTION EQ 'GMC TRUCK' THEN 'GMC'
ELSE IF MDC_MFG_DESCRIPTION EQ 'FORDTRK' THEN 'FORD'
ELSE IF MDC_MFG_DESCRIPTION EQ 'PONTIAC TK' THEN 'PONTIAC'
ELSE IF MDC_MFG_DESCRIPTION EQ 'SATURN TRK' THEN 'SATURN'
ELSE IF MDC_MFG_DESCRIPTION EQ 'TOYOTA GST' THEN 'TOYOTA'
ELSE MDC_MFG_DESCRIPTION;
BODY/A10 = IF ASP_DOORS EQ '2' THEN 'CPE'
ELSE IF ASP_DOORS EQ '4' THEN 'SDN'
ELSE IF ASP_VEH_CLASSIF EQ 'SUV' THEN 'SUV'
ELSE IF ASP_VEH_CLASSIF EQ 'TRK' THEN 'TRK'
ELSE IF ASP_VEH_CLASSIF EQ 'VAN' THEN 'VAN'
ELSE ' ';
MODEL/A4 = EDIT(VEH_MANUF_MODEL, '9999$$$$');
DATE1/I8YYMD = &RUNDATE;
JDATE1/I7 = JULDAT(DATE1, 'I7');
GDATE1/I8 = GREGDT(JDATE1, 'I8');
RPT_CY/A4 = EDIT(GDATE1, '9999$$$$');
RPT_MM/A2 = EDIT(GDATE1, '$$$$99$$');
RPT_DD/A2 = EDIT(GDATE1, '$$$$$$99');
RPT_DATE/A10 = RPT_CY || ('/' | RPT_MM | '/' | RPT_DD);
-*
T_BATCH_CODE/A6 = EDIT(VEH_MSO_BATCH_CODE, '$$$99999');
-*
BATCH/A12 = EDIT(VEH_MSO_BATCH_MODEL_YEAR, '99') | ('-' | EDIT(VEH_MSO_BATCH_CODE, '$$$999999'));
-*
DATE2/I8YYMD = VEH_PO_INSERVICE_MONTH;
JDATE2/I7 = JULDAT(DATE2, 'I7');
GDATE2/I8 = GREGDT(JDATE2, 'I8');
RPT_CY1/A4 = EDIT(GDATE2, '9999$$$$');
RPT_MM1/A2 = EDIT(GDATE2, '$$$$99$$');
RPT_DD1/A2 = EDIT(GDATE2, '$$$$$$99');
RPT_DATE1/A28 = RPT_MM1 || ('/' | RPT_DD1 | '/' | RPT_CY1);
-*
DATE3/I8YYMD = VEH_MSO_RECV_DATE;
JDATE3/I7 = JULDAT(DATE3, 'I7');
GDATE3/I8 = GREGDT(JDATE3, 'I8');
RPT_CY3/A4 = EDIT(GDATE3, '9999$$$$');
RPT_MM3/A2 = EDIT(GDATE3, '$$$$99$$');
RPT_DD3/A2 = EDIT(GDATE3, '$$$$$$99');
RPT_DATE3/A28 = RPT_MM3 || ('/' | RPT_DD3 | '/' | RPT_CY3);
T_ORDER_FLD/A25 = EDIT(VEH_ORDER_AREA_NMBR, '$$9999') || ('-' | EDIT(VEH_ORDER_AREA_COUNTER, '$$$$9999') | ' (' | EDIT(VEH_ORDER_AREA_NMBR, '$$9999') | ')');
LAST6/A6 = EDIT(VEH_VIN_ID_NMBR, '$$$$$$$$$$$999999');
END
-*********************************************************************
-* *
-*********************************************************************
TABLE FILE pamv1sna
PRINT
VEH_MSO_BATCH_MODEL_YEAR AS '' NOPRINT
BY VEH_MSO_BATCH_CODE NOPRINT
BY LAST6 NOPRINT
ON LAST6 SUBHEAD
"- <30>"- <30>"- "
"- "
"- "
"- "
"- "
"- <5>"- "
"- 10"
"- "
"- "
"- <101>"- "
"- "
"- XX<5>"- "
"- "
"- <5>"- 20"
"- "
"- "
"- "
"- <105>"- "
"- "
"- <90>"- "
"- "
"- 30<106>"- "
"- <78>"- <107>" -X<14>" -X<15>" -X<10>" -X<10>" -X<25>" -"
"- 40"
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- 50"
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- 60"
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- "
"- <20>"- "
"- "
"- <65>"- "
"- "
"- "
ON LAST6 PAGE-BREAK
-*WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE SET EMPTYREPORT ON
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,GRID=OFF,FONT='COURIER',SIZE=9,COLOR='BLACK',BACKCOLOR='NONE',STYLE=NORMAL,$
LEFTMARGIN = 0,$
TOPMARGIN = 0.125,$
TYPE=TITLE,STYLE=BOLD,$
TYPE=TABFOOTING,STYLE=BOLD,$
TYPE=SUBHEAD,BY=2,STYLE=BOLD,$
TYPE=SUBHEAD,BY=2,LINE=04,OBJECT=FIELD,ITEM=2,SIZE=09,STYLE=BOLD,COLOR='BLACK',$
TYPE=SUBHEAD,BY=2,LINE=16,OBJECT=TEXT,ITEM=1,SIZE=14,STYLE=BOLD,COLOR='WHITE',$
TYPE=SUBHEAD,BY=2,LINE=34,OBJECT=TEXT,ITEM=1,SIZE=14,STYLE=BOLD,COLOR='WHITE',$
TYPE=SUBHEAD,BY=2,LINE=35,OBJECT=TEXT,ITEM=1,SIZE=14,STYLE=BOLD,COLOR='WHITE',$
TYPE=SUBHEAD,BY=2,LINE=36,OBJECT=TEXT,ITEM=1,SIZE=14,STYLE=BOLD,COLOR='WHITE',$
TYPE=SUBHEAD,BY=2,LINE=37,OBJECT=TEXT,ITEM=1,SIZE=14,STYLE=BOLD,COLOR='WHITE',$
TYPE=SUBHEAD,BY=2,LINE=38,OBJECT=TEXT,ITEM=1,SIZE=14,STYLE=BOLD,COLOR='WHITE',$
TYPE=REPORT,PAGESIZE=LETTER,$
-*TYPE=REPORT,IMAGE=/opt/ibiprod/ibi/apps/fos/R-1310b.gif,POSITION=(0.250000 0.152778),SIZE=(8.000000 11.00000),$
ENDSTYLE
END

Version 7.17

I would look at the DOS Print commands like Darin said

I remember sending a report to a printer years ago, we had print control chars embededed in the report, and I think we used DOS copy to the LPT port. This was with PCL.

What is the line printer ?

Last time I used one, 10-15 years ago on MF, they were pretty simple. Controlling came down to your CR, LF and FF.

The printer is a OKIDATA printer.

You never explained how it was you were expecting the output of your fex to get to the printer. There is nothing in your code to send it there. As was mentioned earlier, you're probably going to have to hold your file (in WP or TXT format) and then use some OS command (you also never mention what your OS is) to send it to a printer that is reachable FROM THE PLATFORM WHERE THE PROCEDURE IS RUN. If this is Dev Studio (local project), that means from your PC. Otherwise it is the platform where you WF server exists.