PARM, ELEM, and QUAL Example for a User-Created Command

Troubleshooting

Problem

This document provides examples of coding the PARM, ELEM and QUAL of user-created commands.

Resolving The Problem

The following are examples of coding the PARM, ELEM and QUAL of user-created commands.

Command Example 1

The following is a screen of a command output without substituted text from a user message file:

Command Source SNDSPL

 SNDSPLF: CMD       PROMPT(TXT3837)
         PARM       KWD(FILE) TYPE(*NAME) LEN(10) RTNVAL(*NO) MIN(1) MAX(1) FILE(*NO) +
                      FULL(*NO) EXPR(*YES) VARY(*NO) PASSATR(*NO) PROMPT(TXT0714)
         PARM       KWD(TOUSRID) TYPE(E1) RTNVAL(*NO) MIN(1) MAX(50) FILE(*NO) PROMPT(TXT3996)
         PARM       KWD(JOB) TYPE(Q1) RTNVAL(*NO) DFT(*) SNGVAL(*) MIN(0) MAX(1) FILE(*NO) +
                      PROMPT(TXT1074)
         PARM       KWD(SPLNBR) TYPE(*INT2) RTNVAL(*NO) RSTD(*NO) DFT(*ONLY) RANGE(1 9999) +
                      SPCVAL((*ONLY 0) (*LAST -1)) MIN(0) MAX(1) EXPR(*YES) VARY(*NO) +
                      PASSATR(*NO) PROMPT(TXT0715)
         PARM       KWD(DTAFMT) TYPE(*CHAR) LEN(8) RTNVAL(*NO) MIN(0) MAX(1) FILE(*NO) +
                      RSTD(*YES) DFT(*RCDDATA) EXPR(*YES) PROMPT(TXT5157) SPCVAL(*RCDDATA +
                      *ALLDATA) FULL(*NO) VARY(*NO) PASSATR(*NO) /* */
         PARM       KWD(CLASS) TYPE(*CHAR) LEN(1) RSTD(*YES) DFT(A) EXPR(*YES) PMTCTL(*PMTRQS) +
                      PROMPT(TXT5728) VALUES(A B C D E F G H I J K L M N O P Q R S T U V W X Y +
                      Z 0 1 2 3 4 5 6 7 8 9) MIN(0) MAX(1) FILE(*NO) FULL(*NO) VARY(*NO) +
                      PASSATR(*NO) /* *//* *//* */
 Q1:     QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) FULL(*NO) VARY(*NO) EXPR(*YES) +
                      PASSATR(*NO)
         QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) MIN(0) FULL(*NO) VARY(*NO) EXPR(*YES) +
                      PASSATR(*NO) PROMPT(TXT0919)
         QUAL       TYPE(*CHAR) LEN(6) RSTD(*NO) RANGE(000000 999999) MIN(0) FULL(*YES) +
                      EXPR(*YES) PASSATR(*NO) PROMPT(TXT0920)
 E1:     ELEM       TYPE(*CHAR) LEN(8) RSTD(*NO) EXPR(*YES) MIN(1) MAX(1) FULL(*NO) VARY(*NO) +
                      PASSATR(*NO) PROMPT(TXT4050)
         ELEM       TYPE(*CHAR) LEN(8) RSTD(*NO) EXPR(*YES) MIN(1) MAX(1) FULL(*NO) VARY(*NO) +
                      PASSATR(*NO) PROMPT(TXT4755)

Command Example 2

The following is a screen of a user command RTVSRC :

Command Source RTVSRC

         CMD        PROMPT('RETRIEVE SOURCES')
         PARM       KWD(MEMBER) TYPE(SRC_MBRS) MIN(1) MAX(30) LISTDSPL(*INT2) PROMPT('SOURCE +
                      MEMBERS TO RETRIEVE')
 QUAL2:  QUAL       TYPE(*NAME) LEN(4) RSTD(*YES) DFT(*OLD) SPCVAL((*OLD) (*NEW))
         QUAL       TYPE(*CHAR) LEN(10) RSTD(*YES) SPCVAL((RPG) (SQLRPG) (RPGLE) (SQLRPGLE) +
                      (CLP) (CLLE) (CMD) (DSPF) (PRTF) (PF) (LF) (PNLGRP)) EXPR(*YES) +
                      PROMPT('SOURCE TYPE FOR NEW MEMBER')
         QUAL       TYPE(*CHAR) LEN(3) SPCVAL((*NONE *NO)) PROMPT('SOURCE LIBRARY CODE')
 SRC_MBRS: ELEM     TYPE(*NAME) LEN(10) DFT(*OBJ) SPCVAL((*OBJ) (*NONE)) EXPR(*YES) +
                      PROMPT('SOURCE')
         ELEM       TYPE(*NAME) LEN(10) DFT(*OBJ) SPCVAL((*OBJ)) EXPR(*YES) PROMPT('SOURCE FILE')
         ELEM       TYPE(QUAL2) PROMPT('EXISTING OR NEW SOURCE')

[{"Type":"MASTER","Line of Business":{"code":"LOB68","label":"Power HW"},"Business Unit":{"code":"BU070","label":"IBM Infrastructure"},"Product":{"code":"SWG60","label":"IBM i"},"ARM Category":[{"code":"a8m3p0000006x8GAAQ","label":"CL"}],"ARM Case Number":"","Platform":[{"code":"PF012","label":"IBM i"}],"Version":"All Versions"}]

Historical Number

21064628

Was this topic helpful?

Document Information

Modified date:
25 November 2024

UID

nas8N1017624

Tips