Information Systems:JetForm
JetForm
JetForm (often referred to as JetForms, which is incorrect) is an application that runs on a PC. The i sends data to it, which is then inserted into a preprogrammed form (invoice, purchase order, narcotic control form…).
Although the output from the application programs on the i is defined as a printer file, it is actually a data stream, and is sent to an out queue that is not attached to a printer, but points to a PC via IP address.
Within this data stream, can be indicated if the form is to be printed, faxed, or emailed.
Configure
On a command line in ASW, key in GO PRTCTL and press enter.
*PL/480B* Printer control tasks 1/06/15 14:08:29 PRTCTL
Select one of the following: Application SoftWare
Release: XX1:480
1. Work with Printer control printer files
2. Work with Printer control printer groups
3. Printer control output simulator
5. Work with Printer control selection fields
6. Initialise printer file controls
7. Work with JetForm Control file
8. Work with JetForm printers
10. Work with printer file overrides
Selection or command (C) IBS 1989-2002
===> _____________________________________________________________
F3=Exit F4=Prompt F9=Retrieve F12=Cancel
F13=Information Assistant F16=System main menu
Option 7 – Work with JetForm Control file
*PL/480B* JetForm control file maintenance 1/06/15 14:11:31 ASGD9551
------------------------------------------------------------------------------
Platform............ 2
Platform Win NT Platform Win 9x
Pipe outqueue....... JFPIPE Folder path level 0. ___________
Folder path level 1. ___________
Character identifier Folder path level 2. ___________
Graphic char set.... Folder path level 3. ___________
Code page........... Series no..........
CCSID table name.... Q037BF850
CCSID table library. QUSRSYS
Circumflex character ^
Dollar character.... $
Env in job name Y/N. N
Cmp in job name Y/N. N
The options for ‘Platform’ are 1 for AS/400, 2 for Windows NT, or 3 for Windows NT/9x - Folder .
‘Pipe outqueue’ is where the data to go to JetForms is sent. Instead of pointing to a printer, it goes to the IP address of the PC running JetForms.
Change Output Queue (CHGOUTQ)
Output queue . . . . . . . . . . > JFPIPE Name
Library . . . . . . . . . . . > QUSRSYS Name, *LIBL, *CURLIB
Maximum spooled file size:
Number of pages . . . . . . . *NONE Number
Starting time . . . . . . . . Time
Ending time . . . . . . . . . Time
Order of files on queue . . . . *FIFO *SAME, *JOBNBR, *FIFO
Remote system . . . . . . . . . *INTNETADR Character value, *SAME...
Remote printer queue . . . . . . 'JFSRVR' Character value, *SAME...
Writers to autostart . . . . . . 1 1-10, *SAME, *NONE
Queue for writer messages . . . QSYSOPR Name, *SAME
Library . . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB
Connection type . . . . . . . . *IP *SAME, *SNA, *IP, *IPX...
Destination type . . . . . . . . *OTHER *SAME, *OS400, *OS400V2...
Host print transform . . . . . . *YES *SAME, *YES, *NO
Manufacturer type and model . . *IBM42011 *SAME, *IBM2380, *IBM2381, ...
Workstation customizing object JFWSCST Name, *SAME, *NONE
Library . . . . . . . . . . . A450AP Name, *LIBL, *CURLIB
Image configuration . . . . . . *NONE *SAME, *NONE, *IMGA01...
Internet address . . . . . . . . '172.30.18.4 '
Destination options . . . . . . 'xautoq xaix'
Print separator page . . . . . . *NO *SAME, *YES, *NO
User defined option . . . . . . *NONE Option, *SAME, *NONE
User defined object:
Object . . . . . . . . . . . . *NONE Name, *SAME, *NONE
Library . . . . . . . . . . Name, *LIBL, *CURLIB
Object type . . . . . . . . . *DTAARA, *DTAQ, *FILE...
User driver program . . . . . . *NONE Name, *SAME, *NONE
Library . . . . . . . . . . . Name, *LIBL, *CURLIB
Spooled file ASP . . . . . . . . *SYSTEM *SAME, *SYSTEM, *OUTQASP
Text 'description' . . . . . . . 'Jet Forms
'
Additional Parameters
Display any file . . . . . . . . *NO *SAME, *NO, *YES, *OWNER
Job separators . . . . . . . . . 0 0-9, *SAME, *MSG
Operator controlled . . . . . . *YES *SAME, *YES, *NO
Data queue . . . . . . . . . . . *NONE Name, *SAME, *NONE
Library . . . . . . . . . . . Name, *LIBL, *CURLIB
Authority to check . . . . . . . *DTAAUT *SAME, *OWNER, *DTAAUT
Option 8 - Work with JetForm printers
*PL/480B* JetForm printers maintenance 1/06/15 15:38:26 ASGD95701
-------------------------------------------------------------------------------
Printer Text Default
_ CNCINV03A Default output queue for printer CNCINV03A N
_ CRXINV01A Default output queue for printer CRXINV01A N
_ CRXINV02B Default output queue for printer CRXINV02B N
_ CSPINV04A Default output queue for printer CSPINV04A N
_ DCOFFICE DC Office printer N
_ ELAHO Default output queue for printer ELAHO N
_ FRGINV13A Default output queue for printer FRGINV13A N
_ FRSINV04A Default output queue for printer FRSINV04A N
_ FRUINV12A Default output queue for printer FRUINV12A N
_ HBAINV03A Default output queue for printer HBAINV03A N
_ HHCINV05A Default output queue for printer HHCINV05A N
_ HKOETHLER Henrys Jetform queue N
_ INVPRT02 Default output queue for printer INVPRT02 N
_ LEX420 Lexmark 420 - executive area N
_ LP05 Lp05 in accounting & buying office N
_ L90INV08A Default output queue for printer L90INV08A N
_ L90INV08B Default output queue for printer L90INV08B N
_ NARINV09A Default output queue for printer NARINV09A N
_ OTCINV02A Default output queue for printer OTCINV02A N
_ RECPTRSRV Default output queue for printer RECPTRSRV N
_ RTNCOPIER Returns Canon Copier N
_ RXINV06A Pharms laser printer N
_ SA1INV11A Default output queue for printer SA1INV11A N
_ SA2INV01A Default output queue for printer SA2INV01A N
_ STEIN Xerox 255 Y
_ TESTINV Laser printer in pilot area N
_ TOBINV10A Default output queue for printer TOBINV10A N
_ TRNG4PRT Training room printer N
_ U90INV07A Default output queue for printer U90INV07A N
-------------------------------------------------------------------------------
Printer
__________
This shows all printers that Jetforms can use, and that STEIN is the default printer – meaning that if a valid printer is not requested, the form will print there.
‘Printers’ added here have to have out queues defined – they will be created if necessary. But those out queues are never actually used. The names are included in the data that is sent to JetForms via the outq JFPIPE, and the PC will send the created form to that printer.
Define Output Types by Program
On a command line in ASW, key in 81 and press enter. Find and select ‘Document output formats’.
*PL/480B* Document output format maintenance 1/06/15 13:59:20 GDMD1431 ------------------------------------------------------------------------------- Program Description Format _ DIR352 Bill of lading printout 1 _ DIR571 Request for quote 1 _ DIR745 Print MSDS with freight doc. 2 _ DIR751 Master MSDS print program 2 _ DIR752 MSDS letter printout 2 _ DIR754 TREM card printout 2 _ DIR756 Label printout 2 _ DMR190 Invoice copy 3 _ DMR312 Sales order confirmation 1 _ DMR322 Pick list 1 _ DMR337 Transport note 1 2 DMR344 Invoice 3 _ DMR361 Surcharge report: REPA report 1 _ DMR362 Surcharge report: Glass 1 _ DMR363 Surcharge report: Ecotax 1 ------------------------------------------------------------------------------- Program __________
Options for ‘format’ are –
1 Landscape 2 Portrait 3 JetForm
Formats 1 and 2 will print from the System i. Format 3 will send a data stream to the PC running JetForms.
Data Sent to JetForms
Although defined as a printer file, what is sent to JetForms is a data file. The first line(s) indicate(s) the form definition to be used, and what is to be done with it. In these examples, ‘DMR344J’ is an invoice to be generated.
Print on STEIN
^JOB DMR344J -C01 -Z"STEIN"
Email to sheilav@unipharm.com
^JOB DMR344E -emto=sheilav@unipharm.com -emsub="*VA/480B*: INVOICE"
Fax to 604 276 5265
^JOB DMR344F -C01 -Z"STEIN"
^FAX FROM_COMPANY "uniPHARM Wholesale Drugs Ltd."
^FAX FROM_FAX_NUM "604-270-8537"
^FAX FROM_NAME "uniPHARM Wholesale Drugs Ltd."
^FAX TO_FAX_NUM "9 604 276 5265"
^FAX TO_COMPANY "SHEILA VENESS (STAFF)"
^FAX TO_NAME "SHEILA VENESS (STAFF)"
Display Spooled File File . . . . . : DMR344JET Page/Line 1/1 Control . . . . . _______ Columns 1 - 130 Find . . . . . . ___________________________ *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+. ^JOB DMR344J -C01 -Z"STEIN" ^GLOBAL DFREMA ^GLOBAL SUPPADDR ^PAGE 01 ^GLOBAL PAGELBL Page ^FIELD FPAGE ^GLOBAL PAGECOUNTLBL of ^GLOBAL CMPADDR uniPHARM Archive 2051 Van Dyke Place Richmond BC V6V 1X6 ^GLOBAL CMPADDA uniPHARM Archive 2051 Van Dyke Place ^GLOBAL CMPADD4 Richmond BC V6V 1X6 ^GLOBAL CMPPOCD F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
The lines starting with ‘^’ are constants that define the following variable.