quote:

Originally posted by susannah:
Please update your signature so we know what version and what platform you're on.

1) print 2 copies of a what? a report?, is it PDF or HTML? PDF

Example: I have a list of 10 serial numbers. I have one form. I want to print two copies of the form for each serial, but I don't want to set the # of copies needed from the printer screen each time. I want to put this to code in the job.

WebFocus Developer Studio 7.1.4

Thanks
-s

DEFINE FILE filename
CNTR1/I1=1;
CNTR2/I1=2;
ROWCNTR/I4=ROWCNTR+1;
END
TABLE FILE filename
PRINT CNTR1 LASTNAME FIRSTNAME TELEPHONE
      CNTR2 LASTNAME FIRSTNAME TELEPHONE
BY ROWCNTR
ON TABLE HOLD FORMAT ALPHA
END
-RUN
?HOLD HOLD

APP FI ALTMAS DISK altmas.mas
-RUN
-WRITE ALTMAS FILENAME=HOLD,SUFFIX=FIX
-WRITE ALTMAS SEGNAME=ROWS,SEGTYPE=S0
-WRITE ALTMAS FIELDNAME=ROWCNTR,ALIAS=PLNTNM,FORMAT=I4,ACTUAL=I4,$
-WRITE ALTMAS SEGNAME=SERIAL,SEGTYPE=S0,PARENT=ROWS,OCCURS=2,$
-WRITE ALTMAS FIELDNAME=CNTR,ALIAS=CNTR,FORMAT=I1,ACTUAL=A1,$
-WRITE ALTMAS FIELDNAME=SERIAL,ALIAS=SRL,FORMAT=I8,ACTUAL=A8,$
-WRITE ALTMAS FIELDNAME=LASTNAME,ALIAS=LNM,FORMAT=A25,ACTUAL=A25,$
-WRITE ALTMAS FIELDNAME=FIRSTNAME,ALIAS=FNM,FORMAT=A20,ACTUAL=A20,$
-WRITE ALTMAS FIELDNAME=TELEPHONE,ALIAS=TEL,FORMAT=A10,ACTUAL=A10,$
APP FI ALTMAS DISK hold.ftm
TABLE FILE ALTMAS
PRINT LASTNAME FIRSTNAME TELEPHONE
BY SERIAL
BY CNTR PAGE-BREAK
whatever
END

 
DEFINE FILE CAR
IND/I10 WITH MODEL = IND + 1;
BLANK/A1 WITH MODEL = '';
END
-RUN

TABLE FILE CAR
PRINT MODEL
IND
BLANK
ON TABLE HOLD AS TMP_FILE FORMAT FOCUS
END
-RUN

EX -LINES 4 EDAPUT MASTER,blank_mas,CV,FILE
FILENAME=BLANK_MAS, SUFFIX=FIX,$
SEGNAME=BLANK_MAS, $
  FIELD=FIELD1 ,ALIAS=  ,A1 ,A1 ,$

FILEDEF BLANK_MAS DISK blank_mas.mas (RECFM F LRECL 1

DEFINE FILE BLANK_MAS
CNT/I3 WITH FIELD1 = CNT + 1;
BLANK/A1 WITH FIELD1 = '';
END
-RUN

-* 8 - ORDER OF DUPLICATION
TABLE FILE BLANK_MAS
PRINT
FIELD1 NOPRINT
BLANK
WHERE CNT LE 8
BY BLANK NOPRINT
ON TABLE HOLD AS TMP_MAS1 FORMAT FOCUS INDEX BLANK
END
-RUN

JOIN BLANK IN TMP_FILE TAG T1 TO MULTIPLE BLANK IN TMP_MAS1 TAG T2 AS JJJ

TABLE FILE TMP_FILE
PRINT
*
END
-EXIT