RE: Spoolfile to PDF at V6R1

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 *************