|
midrange.com
Regarding part two - member conditional prompt. Here's the source for
CRTDUPOBJ
/* CRTCMD CMD(*LIBL/CRTDUPOBJ) + */
/* PGM(QSYS/QLICRDUP) + */
/* SRCFILE(ROB/QCMDSRC) + */
/* SRCMBR(CRTDUPOBJ) + */
/* THDSAFE(*YES) + */
/* MLTTHDACN(*RUN) + */
/* TEXT('Create Duplicate Object') + */
/* VLDCKR(*NONE) + */
/* MODE( + */
/* *ALL) + */
/* ALLOW( + */
/* *ALL) + */
/* ALWLMTUSR(*NO) + */
/* MAXPOS(5) + */
/* PMTFILE(QDEVELOP/QCPFPMT) + */
/* MSGF(*LIBL/QCPFMSG) + */
/* HLPSHELF(*LIST) + */
/* HLPPNLGRP(*LIBL/QHLICMD) + */
/* HLPID(CRTDUPOBJ) + */
/* HLPSCHIDX(*NONE) + */
/* CURLIB(*NOCHG) + */
/* PRDLIB(*NOCHG) + */
/* PMTOVRPGM(*NONE) + */
/* AUT(*USE) + */
/* REPLACE(*YES) + */
/* ENBGUI(*YES) */
/* Internal info */
/* PGM call state: *SYSTEM */
/* CCSID: 37 */
CMD PROMPT('Create Duplicate Object')
PARM KWD(OBJ) +
TYPE(*GENERIC) +
LEN(10) +
SPCVAL( +
(*ALL )) +
MIN(1) +
EXPR(*YES) +
VARY(*YES) +
PASSATR(*YES) +
PROMPT('From object')
PARM KWD(FROMLIB) +
TYPE(*NAME) +
LEN(10) +
SPCVAL( +
(*LIBL ) +
(*CURLIB )) +
MIN(1) +
EXPR(*YES) +
PROMPT('From library')
PARM KWD(OBJTYPE) +
TYPE(*CHAR) +
LEN(7) +
RSTD(*YES) +
SPCVAL( +
(*ALRTBL ALRTBL) +
(*AUTL AUTL) +
(*BNDDIR BNDDIR) +
(*CHTFMT CHTFMT) +
(*CLD CLD) +
(*CLS CLS) +
(*CMD CMD) +
(*CRQD CRQD) +
(*CSI CSI) +
(*CSPMAP CSPMAP) +
(*CSPTBL CSPTBL) +
(*DTAARA DTAARA) +
(*FCT FCT) +
(*FILE FILE) +
(*FNTRSC FNTRSC) +
(*FNTTBL FNTTBL) +
(*FORMDF FORMDF) +
(*FTR FTR) +
(*GSS GSS) +
(*IGCDCT IGCDCT) +
(*IGCSRT IGCSRT) +
(*JOBD JOBD) +
(*JOBQ JOBQ) +
(*LOCALE LOCALE) +
(*MEDDFN MEDDFN) +
(*MENU MENU) +
(*MGTCOL MGTCOL) +
(*MODULE MODULE) +
(*MSGF MSGF) +
(*MSGQ MSGQ) +
(*M36CFG M36CFG) +
(*NODGRP NODGRP) +
(*NODL NODL) +
(*OUTQ OUTQ) +
(*OVL OVL) +
(*PAGDFN PAGDFN) +
(*PAGSEG PAGSEG) +
(*PDFMAP PDFMAP) +
(*PDG PDG) +
(*PGM PGM) +
(*PNLGRP PNLGRP) +
(*PRDAVL PRDAVL) +
(*PRDDFN PRDDFN) +
(*PRDLOD PRDLOD) +
(*PSFCFG PSFCFG) +
(*QMFORM QMFORM) +
(*QMQRY QMQRY) +
(*QRYDFN QRYDFN) +
(*SBSD SBSD) +
(*SCHIDX SCHIDX) +
(*SRVPGM SRVPGM) +
(*SSND SSND) +
(*TBL TBL) +
(*USRIDX USRIDX) +
(*USRSPC USRSPC) +
(*VLDL VLDL) +
(*WSCST WSCST)) +
SNGVAL( +
(*ALL )) +
MIN(1) +
MAX(57) +
EXPR(*YES) +
PROMPT('Object type')
PARM KWD(TOLIB) +
TYPE(*NAME) +
LEN(10) +
DFT(*FROMLIB) +
SPCVAL( +
(*FROMLIB *SAME) +
(*SAME ) +
(*CURLIB )) +
EXPR(*YES) +
PROMPT('To library')
PARM KWD(NEWOBJ) +
TYPE(*NAME) +
LEN(10) +
DFT(*OBJ) +
SPCVAL( +
(*OBJ *SAME) +
(*SAME )) +
EXPR(*YES) +
PROMPT('New object')
PARM KWD(ASPDEV) +
TYPE(*NAME) +
LEN(10) +
DFT(*) +
SPCVAL( +
(* ) +
(*CURASPGRP ) +
(*SYSBAS )) +
EXPR(*YES) +
PROMPT('From ASP device')
PARM KWD(TOASPDEV) +
TYPE(*NAME) +
LEN(10) +
DFT(*ASPDEV) +
SPCVAL( +
(*ASPDEV ) +
(* ) +
(*CURASPGRP ) +
(*SYSBAS )) +
EXPR(*YES) +
PROMPT('To ASP device')
PARM KWD(DATA) +
TYPE(*CHAR) +
LEN(1) +
RSTD(*YES) +
DFT(*NO) +
SPCVAL( +
(*NO N) +
(*YES Y)) +
EXPR(*YES) +
PMTCTL(P047F) +
PROMPT('Duplicate data')
PARM KWD(CST) +
TYPE(*CHAR) +
LEN(1) +
RSTD(*YES) +
DFT(*YES) +
SPCVAL( +
(*YES Y) +
(*NO N)) +
EXPR(*YES) +
PMTCTL(P047F) +
PROMPT('Duplicate constraints')
PARM KWD(TRG) +
TYPE(*CHAR) +
LEN(1) +
RSTD(*YES) +
DFT(*YES) +
SPCVAL( +
(*YES Y) +
(*NO N)) +
EXPR(*YES) +
PMTCTL(P047F) +
PROMPT('Duplicate triggers')
P047F: PMTCTL CTL(OBJTYPE) +
COND( +
(*EQ 'FILE') +
(*EQ '*ALL')) +
NBRTRUE(*EQ 1)
DEP CTL(&ASPDEV *NE *) +
PARM( +
(&FROMLIB *EQ *LIBL) +
(&FROMLIB *EQ *CURLIB)) +
NBRTRUE(*EQ 0) +
MSGID(CPD2170)
DEP CTL(&TOLIB *EQ *CURLIB) +
PARM( +
(&TOASPDEV *EQ *ASPDEV) +
(&TOASPDEV *EQ *)) +
NBRTRUE(*EQ 1) +
MSGID(CPD2171)
DEP CTL(&TOASPDEV *EQ *ASPDEV) +
PARM( +
(&TOLIB *EQ *CURLIB) +
(&ASPDEV *NE *)) +
NBRTRUE(*LE 1) +
MSGID(CPD2171)
Rob Berendt
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.
