|
Rubino, Jim wrote:
Yes please, if it is not to much trouble.
midrange.com
Here is the command:
CMD PROMPT('Retrieve OW Control Record')
PARM KWD(IPNAME) TYPE(*CHAR) LEN(40) RTNVAL(*YES) +
PROMPT('IP name')
PARM KWD(IPADRS) TYPE(*CHAR) LEN(15) RTNVAL(*YES) +
PROMPT('IP address')
PARM KWD(ACSUSR) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
PROMPT('ACS user')
PARM KWD(ACSPWD) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
PROMPT('ACS password')
PARM KWD(HSTUSR) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
PROMPT('Host user')
PARM KWD(HSTPWD) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
PROMPT('Host password')
PARM KWD(ACSDLPTH) TYPE(*CHAR) LEN(40) +
RTNVAL(*YES) PROMPT('ACS download path')
PARM KWD(ACSULPTH) TYPE(*CHAR) LEN(40) +
RTNVAL(*YES) PROMPT('ACS upload path')
PARM KWD(IFSDLPTH) TYPE(*CHAR) LEN(40) +
RTNVAL(*YES) PROMPT('IFS download path')
PARM KWD(IFSULPTH) TYPE(*CHAR) LEN(40) +
RTNVAL(*YES) PROMPT('IFS upload path')
PARM KWD(OWCTLFND) TYPE(*CHAR) LEN(1) +
RTNVAL(*YES) PROMPT('OW control record +
found?')
Here is the CL:
PGM PARM(&IPNAME &IPADRS &ACSUSR &ACSPWD &HSTUSR +
&HSTPWD &ACSDLPTH &ACSULPTH &IFSDLPTH +
&IFSULPTH &OWCTLFND)
/* PARAMETERS */
DCL VAR(&IPNAME) TYPE(*CHAR) LEN(40)
DCL VAR(&IPADRS) TYPE(*CHAR) LEN(15)
DCL VAR(&ACSUSR) TYPE(*CHAR) LEN(10)
DCL VAR(&ACSPWD) TYPE(*CHAR) LEN(10)
DCL VAR(&HSTUSR) TYPE(*CHAR) LEN(10)
DCL VAR(&HSTPWD) TYPE(*CHAR) LEN(10)
DCL VAR(&ACSDLPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&ACSULPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&IFSDLPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&IFSULPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&OWCTLFND) TYPE(*CHAR) LEN(1)
/* VARIABLES (MUST REPEAT PARMS FOR CALL TO RPG PROGRAM) */
DCL VAR(&RIPNAME) TYPE(*CHAR) LEN(40)
DCL VAR(&RIPADRS) TYPE(*CHAR) LEN(15)
DCL VAR(&RACSUSR) TYPE(*CHAR) LEN(10)
DCL VAR(&RACSPWD) TYPE(*CHAR) LEN(10)
DCL VAR(&RHSTUSR) TYPE(*CHAR) LEN(10)
DCL VAR(&RHSTPWD) TYPE(*CHAR) LEN(10)
DCL VAR(&RACSDLPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&RACSULPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&RIFSDLPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&RIFSULPTH) TYPE(*CHAR) LEN(40)
DCL VAR(&ROWCTLFND) TYPE(*CHAR) LEN(1)
/* GET IT */
CALL PGM(RTVOWCNT) PARM(&RIPNAME &RIPADRS +
&RACSUSR &RACSPWD &RHSTUSR &RHSTPWD +
&RACSDLPTH &RACSULPTH &RIFSDLPTH +
&RIFSULPTH &ROWCTLFND)
/* MOVE TO PARMS - THE MCH3601 IS FOR A NULL PTR. IF THE COMMAND */
/* DID NOT REQUEST A PARTICULAR VARIABLE, THE */
/* MCH3601 WILL OCCUR. */
CHGVAR VAR(&IPNAME) VALUE(&RIPNAME)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&IPADRS) VALUE(&RIPADRS)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&ACSUSR) VALUE(&RACSUSR)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&ACSPWD) VALUE(&RACSPWD)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&HSTUSR) VALUE(&RHSTUSR)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&HSTPWD) VALUE(&RHSTPWD)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&ACSDLPTH) VALUE(&RACSDLPTH)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&ACSULPTH) VALUE(&RACSULPTH)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&IFSDLPTH) VALUE(&RIFSDLPTH)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&IFSULPTH) VALUE(&RIFSULPTH)
MONMSG MSGID(MCH3601)
ENDPGM
Here is the RPG:
/TITLE ‚Retrieve OrderWriter Control Record
/COPY QRPGSRC,HDefault
FACCSCNT IF E DISK UsrOpn
D @No C 'N'
D OWCtlFnd S 1
D @Yes C 'Y'
C/EJECT
C *ENTRY Plist
C Parm IPNAME
C Parm IPADRS
C Parm ACSUSR
C Parm ACSPWD
C Parm HSTUSR
C Parm HSTPWD
C Parm ACSDLPTH
C Parm ACSULPTH
C Parm IFSDLPTH
C Parm IFSULPTH
C Parm OWCtlFnd
C Return
/FREE
// Get control record
Open ACCSCNT;
CHAIN 1 ACCSCNT;
// Clear if not found
If Not %Found(ACCSCNT);
IPNAME = *Blanks;
IPADRS = *Blanks;
ACSUSR = *Blanks;
ACSPWD = *Blanks;
HSTUSR = *Blanks;
HSTPWD = *Blanks;
ACSDLPTH = *Blanks;
ACSULPTH = *Blanks;
IFSDLPTH = *Blanks;
IFSULPTH = *Blanks;
OWCtlFnd = @No;
Else;
OWCtlFnd = @Yes;
Endif;
// END THE JOB
Close ACCSCNT;
*INLR = *On;
Return;
/END-FREE
--
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531
The opinions expressed are my own and not necessarily
the opinion of my company. Unless I say so.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
