|
Existing spooled files need to be 'reprinted.' You need to CPYSPLF
specifying *FCFC to a 133-wide database file. The *FCFC includes
space/skip instructions in position 1 of the resulting database file.
Then override the print file to the IFS as a PDF, then read the file
with a program that knows what the codes mean and reprint the doc.
Doncha just -love- those TLAs?
I'm including the code of one program we use. The "stutter" parameter
is used to insert a blank page between every original page when we want
to print backside overlays from a spooled file that never planned for
them. Of course, now you can use the "Constant Back" option on the
OVRPRTF, but that option didn't exist when the program was written.
And, yes, it's RPG-II. Reading a Primary file. And printing with
Output specs. And using the RPG Cycle. But that's what RPG was
-designed- for! And the program still works as written, so we don't
have any need to re-write it. So there.
If you want, I think I can find a printer control tape layout to go with
the program...
Paul E Musselman
IT Technical Support
General Cable Corporation
(859) 572-8030 phone
(859) 760-8030 cell
*************** Beginning of data **********************
0001.00 H
0002.00 FDATA133 IP F 133 DISK
0003.00 FQPRINT O F 132 OF PRINTER
0004.00 IDATA133 AA 30
0005.00 I 1 1 FCFC
0006.00 I 2 133 TEXT
0007.00 C *ENTRY PLIST
0008.00 C PARM STUTTR 1
0009.00 **
0010.00 C *IN,30 IFEQ '1'
0011.00 C FCFC IFEQ ' '
0012.00 C EXCPTBLANK
0013.00 C ENDIF
0014.00 C FCFC IFEQ '0'
0015.00 C EXCPTZERO
0016.00 C ENDIF
0017.00 C FCFC IFEQ '-'
0018.00 C EXCPTDASH
0019.00 C ENDIF
0020.00 C FCFC IFEQ '+'
0021.00 C EXCPTPLUS
0022.00 C ENDIF
0023.00 **
0024.00 C FCFC IFEQ '1'
0025.00 C EXCPTCHAN01
0026.00 C PHASE IFEQ '1'
0027.00 C STUTTR IFEQ 'Y'
'STUTTER' PRINT 2
0028.00 C EXCPTLINE PAGE
BREAKS AND A
0029.00 C EXCPTCHAN01
BLANK LINE WHERE
0030.00 C ENDIF 1
INDICATED
0031.00 C ENDIF
0032.00 C MOVE '1' PHASE 1
0033.00 C ENDIF
0034.00 **
0035.00 C FCFC IFEQ '2'
0036.00 C EXCPTCHAN02
0037.00 C ENDIF
0038.00 C FCFC IFEQ '3'
0039.00 C EXCPTCHAN03
0040.00 C ENDIF
0041.00 C FCFC IFEQ '4'
0042.00 C EXCPTCHAN04
0043.00 C ENDIF
0044.00 C FCFC IFEQ '5'
0045.00 C EXCPTCHAN05
0046.00 C ENDIF
0047.00 C FCFC IFEQ '6'
0048.00 C EXCPTCHAN06
0049.00 C ENDIF
0050.00 C FCFC IFEQ '7'
0051.00 C EXCPTCHAN07
0052.00 C ENDIF
0053.00 C FCFC IFEQ '8'
0054.00 C EXCPTCHAN08
0055.00 C ENDIF
0056.00 C FCFC IFEQ '9'
0057.00 C EXCPTCHAN09
0058.00 C ENDIF
0059.00 C FCFC IFEQ 'A'
0060.00 C EXCPTCHAN10
0061.00 C ENDIF
0062.00 C FCFC IFEQ 'B'
0063.00 C EXCPTCHAN11
0064.00 C ENDIF
0065.00 C FCFC IFEQ 'C'
0066.00 C EXCPTCHAN12
0067.00 C ENDIF
0068.00 C*
0069.00 C FCFC IFEQ X'89'
0070.00 C EXCPTAFTLIN
0071.00 C ENDIF
0072.00 C FCFC IFEQ X'09'
0073.00 C EXCPTAFTSP1
0074.00 C ENDIF
0075.00 C FCFC IFEQ X'11'
0076.00 C EXCPTAFTSP2
0077.00 C ENDIF
0078.00 C FCFC IFEQ X'19'
0079.00 C EXCPTAFTSPQ
0080.00 C ENDIF
0081.00 C*
0082.00 C ENDIF
*IN,30 IFEQ '1'
0083.00 **
0084.00 CLR STUTTR IFEQ 'Y' MAKE
SURE LAST PAGE
0085.00 CLR EXCPTCHAN01 GETS
AN OVERLAY
0086.00 C** EXCPTLINE
0087.00 CLR ENDIF
0088.00 **
0089.00 OQPRINT E 1 BLANK
0090.00 O TEXT B 132
0091.00 OQPRINT E 1 LINE
0092.00 O 1 ' '
0093.00 OQPRINT E 2 ZERO
0094.00 O TEXT B 132
0095.00 OQPRINT E 3 DASH
0096.00 O TEXT B 132
0097.00 OQPRINT E 0 PLUS
0098.00 O TEXT B 132
0099.00 OQPRINT E 01 CHAN01
0100.00 O TEXT B 132
0101.00 OQPRINT E 02 CHAN02
0102.00 O TEXT B 132
0103.00 OQPRINT E 03 CHAN03
0104.00 O TEXT B 132
0105.00 OQPRINT E 04 CHAN04
0106.00 O TEXT B 132
0107.00 OQPRINT E 05 CHAN05
0108.00 O TEXT B 132
0109.00 OQPRINT E 06 CHAN06
0110.00 O TEXT B 132
0111.00 OQPRINT E 07 CHAN07
0112.00 O TEXT B 132
0113.00 OQPRINT E 08 CHAN08
0114.00 O TEXT B 132
0115.00 OQPRINT E 09 CHAN09
0116.00 O TEXT B 132
0117.00 OQPRINT E 10 CHAN10
0118.00 O TEXT B 132
0119.00 OQPRINT E 11 CHAN11
0120.00 O TEXT B 132
0121.00 OQPRINT E 12 CHAN12
0122.00 O TEXT B 132
0123.00 O*
0124.00 OQPRINT E 01 AFTLIN
0125.00 O TEXT B 132
0126.00 OQPRINT E 1 AFTSP1
0127.00 O TEXT B 132
0128.00 OQPRINT E 2 AFTSP2
0129.00 O TEXT B 132
0130.00 OQPRINT E 1 AFTSPQ
0131.00 O TEXT B 132
****************** End of data *************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
