|
Part 1 - Command Line Execution of IPCECMD
Opening *.DOC Files
This will open/create a file
named TheNewFile in the C:\ directory on the user's PC. It will
fill the file with the data from the DB2/400 database named
SALES from the library named ACCTLIB. Once the file has been
created, it will be opened with the default Windows program
assigned to open *.DOC files. (Probably MS Word).
Converting
DB2/400 Data to a PDF File and eMailing it.
 `< -/font>
This will create a file
named TheNewFile.doc in
the C:\ drive, filling it with the data from the DB2/400
database ACCTLIB/SALES. The new PDF file will then be eMailed to
the recipients shown here, using the user's default eMail client
on their PC. The eMail will contain the subject shown here as
well as the body text shown here. The "\n" (new line) characters
are used to cause the eMail body text to break two a new line.
- BACK TO TOP -
Opening *.CSV
and *.XLS
Spreadsheet Files
This will open a file named MyText.csv in
the C:\ directory on the user’s PC, using the default Windows
program assigned to open .CSV files. If you have Microsoft Excel
installed on your PC, MS Excel will automatically open this file.
It will also send the contents of the DB2/400 Physical file
named SALES in library QGPL to the PC, formatting the data as a
Comma Seperated File. In addition, the file will
be created if it does not yet exist.
This will open the file named
MyFile.xsl in the C:\ drive, using the default
spreadsheet program for file types of “xls”. In addition, it
will send the DB2/400 File named Sales in library QGPL to the
PC. It will also format the DB2/400 data as a Comma Separated
file prior to sending it to the PC. And finally, the
file will be created if it does not yet exist, and the
Host application will wait until the user closes the PC file
before continuing.
- BACK TO TOP -
Open Windows Calculator
This will start the Windows Calculator
Program. In addition, the Host application will wait until
the user closes the PC file before continuing.
- BACK TO TOP -
Sending an eMail
This will open the default email
application on the User’s PC, placing the value:
support@turbogorilla-software.com in the To: line.
In addition, the Host application will wait until the user
closes the PC file before continuing.
This is a variation on the use of the
*EMAIL keyword above. In this example, the
mailto: prefix has been removed from the PC Path/File Name
string. This example will open the default email application on
the User’s PC, placing the value:
support@turbogorilla-software.com in the To: line.
In addition, the Host application will wait until the user
closes the PC file before continuing.
- BACK TO TOP -
Opening a Web Page
This will open the default browser
application on the User’s PC, opening the web page at
http://www.turbogorilla-software.com.
In addition, the Host application will wait until the user
closes the PC file before continuing.
This will open the default browser
application on the User’s PC, opening the web page named
Doc1.htm on the C: drive. It will also send the DB2/400
data file named SALES in library QGPL to the PC, formatting it
as a simple HTML page. In addition, the Host application will
wait until the user closes the PC file before continuing.
- BACK TO TOP -
Open Image Files
 `
This will open the JPG image file named
Part_Number_RA15.jpg in the "C:\Documents
and Settings\My Programmer\My Pictures" directory, using the default Windows
image processing program. In addition, the Host application will
wait until the user closes the PC file before continuing.
- BACK TO TOP -
Start an FTP Session
This will start an FTP session, pointing to
the IP address 192.168.254.101/root. In addition, the Host
application will wait until the user closes the PC file before
continuing.
- BACK TO TOP -
Part 2 - Using the IPCECMDPDF Command
Create a PDF file from an OS/400 Spooled File and open it on the
User's PC
This example will create a PDF file from
the OS/400 spooled file named ACCQ01, Spooled File # 2, which
was created by OS/400 Job: 484540/ARD040/ACCJ01. The PDF File
will be opened by the default PDF viewer on the user's PC
(usually Adobe Acrobat Viewer). In addition, the PDF will
contain the subject line and title shown as well as the keywords
shown on the PDF Keywords paramater..
- BACK TO TOP -
Create a PDF file from an OS/400 Spooled File and eMail it from
the user's PC
`
This example will create a PDF file from
the OS/400 spooled file named ACCQ01, Spooled File # 2, which
was created by OS/400 Job: 484540/ARD040/ACCJ01. The PDF File
will be emailed using the default eMail client on the User's PC.
The Email will be addressed to the recipients shown in the Email
To:, Email CC:, and Email BCC paramaters. The eMail will contain
the subject line shown and the body text shown.
- BACK TO TOP -
Part 3 - Executing the iSeries PC-Engine Command from a CL
Program
PGM
DCL &PCFILE *CHAR 500
DCL &PCAPP *CHAR 500
DCL &PAUSE *CHAR 1
DCL &CRTF *CHAR 1
DCL &CRTD *CHAR 1
DCL &FILETP *CHAR 6
DCL &PHYFILE *CHAR 20
DCL &PDFTTL *CHAR 200
DCL &PDFAUT *CHAR 50
DCL &PDFSBJ *CHAR 200
DCL &PDFKWD *CHAR 200
DCL &PDFPWD *CHAR 20
DCL &EMLPDF *CHAR 1
DCL &EMLTO *CHAR 200
DCL &EMLCC *CHAR 200
DCL &EMLBCC *CHAR 200
DCL &EMLFRM *CHAR 200
DCL &EMLRPY *CHAR 200
DCL &EMLSUB *CHAR 200
DCL &EMLBDY *CHAR 2000
DCL &EMLPTY *CHAR 10
DCL &EMLDLG *CHAR 1
/* SET THE VARIABLE VALUES HERE... +
... +
CHGVAR VAR(&EMLTO) VALUE('SUPPORT@TURBOGORILLA-SOFTWARE.COM') +
CHGVAR VAR(&EMLCC) VALUE('INFOT@TURBOGORILLA-SOFTWARE.COM') +
... +
*/
/* EXECUTE THE IPCECMD COMMAND */
TURBOGORLA/IPCECMD PCPATH(&PCFILE) +
CMDSTG(&PCAPP) +
PAUSE(&PAUSE) +
CRTF(&CRTF) +
CRTD(&CRTD) +
FILETP(&FILETP) +
PHYFIL(&PHYFIL) +
PDFTTL(&PDFTTL) +
PDFAUT(&PDFAUT) +
PDFSBJ(&PDFSBJ) +
PDFKWD(&PDFKWD) +
PDFPWD(&PDFPWD) +
EMLPDF(&EMLPDF) +
EMLTO(&EMLTO) +
EMLCC(&EMLCC) +
EMLBCC(&EMLBCC) +
EMLFRM(&EMLFRM) +
EMLRPY(&EMLRPY) +
EMLSUB(&EMLSUB) +
EMLBDY(&EMLBDY) +
EMLPTY(&EMLPTY) +
EMLDLG(&EMLDLG)
ENDPGM
|
- BACK TO TOP -
Part 3-a - Executing the iSeries PC-Engine Command from an RPGLE
Program
**************************************************************************
* To compile:
*
* CRTBNDRPG PGM(xxx/IPCECMDEXM) SRCFILE(xxx/QRPGLESRC)
*
**************************************************************************
*
* iSeries PC-Engine Example - Using the IPCECMD from within an
* RPGLE Program
*
**************************************************************************
D Cmds PR ExtPgm('QCMDEXC')
D command 5000A const
D length 15P 5 const
*
D Apost C ''''
D CmdString S 5000a
**************************************************************************
* IPCECMD Paramaters
**************************************************************************
D PCPath S 500a
D CmdStg S 500a
D Pause S 1a
D Crtfile S 1a
D CrtDir S 1a
D FileType S 6a
D PhyFile S 20a
D PdfTtl S 200a
D PdfAut S 50a
D PdfSbj S 200a
D PdfKwd S 200a
D PdfPwd S 20a
D EmlPdf S 1a
D EmlTo S 200a
D EmlCC S 200a
D EmlBcc S 200a
D EmlFrm S 200a
D EmlRpy S 200a
D EmlSub S 200a
D EmlBdy S 200a
D EmlPty S 10a
D EmlDlg S 1a
*
*
* Open a Web Page
C Eval PCPath = Apost +
C 'http://www.turbogorilla-software.com' +
C Apost
C Eval CmdStg = '*FILEASSOC'
C Eval Pause = 'Y'
C Eval CrtFile = 'N'
C Eval CrtDir = 'N'
C Eval FileType = '*NOFMT'
C Eval PhyFile = '*LIBL/*N'
C Eval PDFTtl = ' '
C Eval PdfAut = ' '
C Eval PdfSbj = '*USRPRFDESC'
C Eval PdfKwd = ' '
C Eval PdfPwd = '*NONE'
C Eval EmlPdf = 'N'
C Eval EmlTo = ' '
C Eval EmlCC = ' '
C Eval EmlBcc = ' '
C Eval EmlFrm = ' '
C Eval EmlRpy = '*FROM'
C Eval EmlSub = ' '
C Eval EmlBdy = ' '
C Eval EmlPty = '*NORMAL'
C Eval EmlDlg = 'N'
C Exsr RunPCEngine
*
* Open a Word Document, passing a DB2/400 database file to it.
C Eval PCPath = Apost +
C 'C:\Documents and Settings\Programer1\' +
C 'My Documents\MyNewWordDoc.doc' +
C Apost
C Eval CmdStg = '*FILEASSOC'
C Eval Pause = 'Y'
C Eval CrtFile = 'Y'
C Eval CrtDir = 'Y'
C Eval FileType = '*NOFMT'
C Eval PhyFile = 'YOURLIB/YOURFILE'
C Eval PDFTtl = ' '
C Eval PdfAut = ' '
C Eval PdfSbj = '*USRPRFDESC'
C Eval PdfKwd = ' '
C Eval PdfPwd = '*NONE'
C Eval EmlPdf = 'N'
C Eval EmlTo = ' '
C Eval EmlCC = ' '
C Eval EmlBcc = ' '
C Eval EmlFrm = ' '
C Eval EmlRpy = '*FROM'
C Eval EmlSub = ' '
C Eval EmlBdy = ' '
C Eval EmlPty = '*NORMAL'
C Eval EmlDlg = 'N'
C Exsr RunPCEngine
*
* Open a TIFF Image file on the user's PC
C Eval PCPath = Apost +
C 'C:\Documents and Settings\Programer1\' +
C 'My Documents\ItemFront.TIFF' +
C Apost
C Eval CmdStg = '*FILEASSOC'
C Eval Pause = 'Y'
C Eval CrtFile = 'N'
C Eval CrtDir = 'N'
C Eval FileType = '*NOFMT'
C Eval PhyFile = '*LIBL/*N'
C Eval PDFTtl = ' '
C Eval PdfAut = ' '
C Eval PdfSbj = '*USRPRFDESC'
C Eval PdfKwd = ' '
C Eval PdfPwd = '*NONE'
C Eval EmlPdf = 'N'
C Eval EmlTo = ' '
C Eval EmlCC = ' '
C Eval EmlBcc = ' '
C Eval EmlFrm = ' '
C Eval EmlRpy = '*FROM'
C Eval EmlSub = ' '
C Eval EmlBdy = ' '
C Eval EmlPty = '*NORMAL'
C Eval EmlDlg = 'N'
C Exsr RunPCEngine
*
* Convert a DB2/400 database file to a *CSV file and open it in EXCEL
C Eval PCPath = Apost +
C 'C:\Documents and Settings\Programer1\' +
C 'My Documents\NewExcelFile.csv' +
C Apost
C Eval CmdStg = '*FILEASSOC'
C Eval Pause = 'Y'
C Eval CrtFile = 'Y'
C Eval CrtDir = 'Y'
C Eval FileType = '*CSV'
C Eval PhyFile = 'MYLIB/MYDATA'
C Eval PDFTtl = ' '
C Eval PdfAut = ' '
C Eval PdfSbj = '*USRPRFDESC'
C Eval PdfKwd = ' '
C Eval PdfPwd = '*NONE'
C Eval EmlPdf = 'N'
C Eval EmlTo = ' '
C Eval EmlCC = ' '
C Eval EmlBcc = ' '
C Eval EmlFrm = ' '
C Eval EmlRpy = '*FROM'
C Eval EmlSub = ' '
C Eval EmlBdy = ' '
C Eval EmlPty = '*NORMAL'
C Eval EmlDlg = 'N'
C Exsr RunPCEngine
*
* Open Windows Calculator
C Eval PCPath = Apost +
C 'open' +
C Apost
C Eval CmdStg = '*CALC'
C Eval Pause = 'N'
C Eval CrtFile = 'N'
C Eval CrtDir = 'N'
C Eval FileType = '*NOFMT'
C Eval PhyFile = '*LIBL/*N'
C Eval PDFTtl = ' '
C Eval PdfAut = ' '
C Eval PdfSbj = '*USRPRFDESC'
C Eval PdfKwd = ' '
C Eval PdfPwd = '*NONE'
C Eval EmlPdf = 'N'
C Eval EmlTo = ' '
C Eval EmlCC = ' '
C Eval EmlBcc = ' '
C Eval EmlFrm = ' '
C Eval EmlRpy = '*FROM'
C Eval EmlSub = ' '
C Eval EmlBdy = ' '
C Eval EmlPty = '*NORMAL'
C Eval EmlDlg = 'N'
C Exsr RunPCEngine
C Eval *Inlr = *On
**************************************************************************
* Execute the IPCECMD
**************************************************************************
C RunPCEngine Begsr
*
C Eval CmdString = *Blanks
C Eval CmdString = %Trimr(CmdString) +
C 'IPCECMD ' +
C 'PCPATH(' + %Trimr(PCPath) + ') ' +
C 'CMDSTG(' + %Trimr(CmdStg) + ') ' +
C 'PAUSE(' + %Trimr(Pause) + ') ' +
C 'CRTF(' + %Trimr(Crtfile) + ') ' +
C 'CRTD(' + %Trimr(CrtDir) + ') ' +
C 'FILETP(' + %Trimr(FileType) + ') ' +
C 'PHYFIL(' + %Trimr(PhyFile) + ') ' +
C 'PDFTTL(' + %Trimr(PdfTtl) + ') ' +
C 'PDFAUT(' + %Trimr(PdfAut) + ') ' +
C 'PDFSBJ(' + %Trimr(PdfSbj) + ') ' +
C 'PDFKWD(' + %Trimr(PdfKwd) + ') ' +
C 'PDFPWD(' + %Trimr(PdfPwd) + ') ' +
C 'EMLPDF(' + %Trimr(EmlPdf) + ') ' +
C 'EMLTO(' + %Trimr(EmlTo) + ') ' +
C 'EMLCC(' + %Trimr(Emlcc) + ') ' +
C 'EMLBCC(' + %Trimr(Emlbcc) + ') ' +
C 'EMLRPY(' + %Trimr(EmlRpy) + ') ' +
C 'EMLSUB(' + %Trimr(EmlSub) + ') ' +
C 'EMLBDY(' + %Trimr(EmlBdy) + ') ' +
C 'EMLPTY(' + %Trimr(EmlPty) + ') ' +
C 'EMLDLG(' + %Trimr(EmlDlg) + ') '
C Callp(e) Cmds(CmdString:5000)
C Endsr
**************************************************************************
|
- BACK TO TOP -
Part 4 - Executing the iSeries PC-Engine Spool to PDF Command
from a CL Program
PGM
DCL &PCFILE *CHAR 500
DCL &CRTD *CHAR 1
DCL &PCSPLNAM *CHAR 10
DCL &PCSPLNBR *DEC 7
DCL &PCSPLJOB *CHAR 26
DCL &PCSPLSYS *CHAR 10
DCL &OPENW *CHAR 10
DCL &PDFTTL *CHAR 200
DCL &PDFAUT *CHAR 50
DCL &PDFSBJ *CHAR 200
DCL &PDFKWD *CHAR 200
DCL &PDFPWD *CHAR 20
DCL &EMLPDF *CHAR 1
DCL &EMLTO *CHAR 200
DCL &EMLCC *CHAR 200
DCL &EMLBCC *CHAR 200
DCL &EMLFRM *CHAR 200
DCL &EMLRPY *CHAR 200
DCL &EMLSUB *CHAR 200
DCL &EMLBDY *CHAR 2000
DCL &EMLPTY *CHAR 10
DCL &EMLDLG *CHAR 1
/* SET THE VARIABLE VALUES HERE... +
... +
CHGVAR VAR(&EMLTO) VALUE('SUPPORT@TURBOGORILLA-SOFTWARE.COM') +
CHGVAR VAR(&EMLCC) VALUE('INFOT@TURBOGORILLA-SOFTWARE.COM') +
... +
*/
/* EXECUTE THE IPCECMD COMMAND */
TURBOGORLA/IPCECMDPDF PCPATH(&PCFILE) +
CRTD(&CRTD) +
PDFTTL(&PDFTTL) +
PDFAUT(&PDFAUT) +
PDFSBJ(&PDFSBJ) +
PDFKWD(&PDFKWD) +
PDFPWD(&PDFPWD) +
PCSPLNAM(&PCSPLNAM) +
PCSPLNBR(&PCSPLNBR) +
PCSPLJOB(&PCSPLJOB) +
PCSPLSYS(&PCSPLSYS) +
OPENW(&OPENW) +
EMLTO(&EMLTO) +
EMLCC(&EMLCC) +
EMLBCC(&EMLBCC) +
EMLFRM(&EMLFRM) +
EMLRPY(&EMLRPY) +
EMLSUB(&EMLSUB) +
EMLBDY(&EMLBDY) +
EMLPTY(&EMLPTY) +
EMLDLG(&EMLDLG)
ENDPGM
|
- BACK TO TOP -
Part 5 - Calling the
PC-Engine Google Interface from a Green Screen
DSPF Source
(TSTGGLD1.DSPF)
A*%%TS SD 20060219 165518 SOD50706 REL-V5R3M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A CA03(03 'EXIT')
A CF04(04 'PROMPT')
A R S1
A*%%TS SD 20060219 165518 SOD50706 REL-V5R3M0 5722-WDS
A 1 3USER
A 1 23'Bradford Company - Internet Search-
A Engine'
A DSPATR(HI)
A DSPATR(UL)
A 5 2'Search Google:'
A DSPATR(HI)
A SEARCH 200A B 5 17CHECK(LC)
A 17 11'Legal Notice: Searching the Intern-
A et for immoral or illegal'
A DSPATR(HI)
A 18 11'content is a violation of company -
A policy and will result in'
A DSPATR(HI)
A 19 11'harsh penalties. For more informat-
A ion, please contact the'
A DSPATR(HI)
A 20 11'Human Resources department at exte-
A nsion 2049.'
A DSPATR(HI)
A 23 4'F3=Exit'
A COLOR(BLU)
A 23 14'F4=Google Search Full Command'
A COLOR(BLU)
|
RPGLE Source (TSTGGLR1.RPGLE)
*=============================================================== =
* To compile:
*
*
* CRTBNDRPG PGM(xxx/IPCEPR1) SRCFILE(xxx/QRPGLESRC)
*
*=============================================================== =
*
* iSeries PC-Engine Properties Maintenance
*
*=============================================================== =
FTstGglD1 CF E WORKSTN
*----------------------------------------------------------
* Prototype QCMDEXC
*----------------------------------------------------------
D Cmds PR ExtPgm('QCMDEXC')
D command 2000A const
D length 15P 5 const
*---------------------------------------------------------- * Miscellaneous Variables
D Apost C ''''
D CmdString S 2000a
*
* IPCECMDGGL Parameters
D Fwall S 200a
D Fwex S 200a
D Fwone S 200a
D Fwout S 200a
D FileFmt S 4a
D Domain S 200a
D Usage S 22a
D Occur S 8a
D Date S 10a
D Number S 11a
*
*
C Dow *In03 = *Off
*
C Exfmt S1
C If *In03 = *On
C Leave
C Endif
*
C If *In04 = *On
C Exsr Prompt_Google
C Eval Search = *Blanks
C Endif
*
C If Search <> *Blanks
C Exsr Search_Google
C Eval Search = *Blanks
C Endif
*
C Enddo
*
C Eval *Inlr = *On
*
****************************************************************************
* Search_Google - Build IPCECMDGGL command string
****************************************************************************
C Search_Google Begsr
*
C Eval CmdString = *Blanks
C Eval CmdString = %Trimr(CmdString) +
C 'IPCECMDGGL ' +
C ' FWALL(' + Apost + %Trimr(Search) +
C Apost + ') ' +
C ' FWEX(' + Apost + ' ' + Apost + ') ' +
C ' FWONE(' + Apost + ' ' + Apost + ') ' +
C ' FWOUT(' + Apost + ' ' + Apost + ') ' +
C ' FileFmt(*ANY) ' +
C ' DATE(*ANYTIME) ' +
C ' OCCUR(*AWIPG) ' +
C ' DOMAIN(' + Apost + ' ' + Apost + ') ' +
C ' USAGE(*NOTFLTLIC) ' +
C ' NUM(*TEN) ' +
C ' PAUSE(Y)'
C Callp(e) Cmds(CmdString:2000)
*
C Endsr
****************************************************************************
* Search_Google - Build IPCECMDGGL command string
****************************************************************************
C Prompt_Google Begsr
*
C Eval CmdString = *Blanks
C Eval CmdString = %Trimr(CmdString) +
C '?IPCECMDGGL ' +
C ' FWALL(' + Apost + %Trimr(Search) +
C Apost + ') ' +
C ' FWEX(' + Apost + ' ' + Apost + ') ' +
C ' FWONE(' + Apost + ' ' + Apost + ') ' +
C ' FWOUT(' + Apost + ' ' + Apost + ') ' +
C ' FileFmt(*ANY) ' +
C ' DATE(*ANYTIME) ' +
C ' OCCUR(*AWIPG) ' +
C ' DOMAIN(' + Apost + ' ' + Apost + ') ' +
C ' USAGE(*NOTFLTLIC) ' +
C ' NUM(*TEN) ' +
C ' PAUSE(Y)'
C Callp(e) Cmds(CmdString:2000)
*
C Endsr |
- BACK TO TOP -
| 
