You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Controlling the Use of ADDERR and CHGERR<br />
Parameters<br />
118 • <strong>SDM</strong>-DESIGNTRACKER <strong>5.0</strong> USER GUIDE<br />
The ADDERR parameter on the Create Design Request command (DTCRTDR) and<br />
the CHGERR parameter on Change Design Request command (DTCHGDR) allow<br />
you to create or change the design request even if errors in the editing process are<br />
encountered.<br />
If this is required, the data area DTAPIERR must be changed to the value *ALLOW.<br />
The default value of this data area is *NOALLOW which disregards the specification<br />
on the commands.<br />
You must have authority to change the data area in the product library to control this<br />
feature.<br />
Creating Design Request and Approval Records<br />
Any created design request must have at least one approval record associated with it.<br />
Therefore, when the Create Design Request command (DTCRTDR) creates a new<br />
design request, it also writes an approval record pending approval status with the user<br />
ID of the person creating the design request. The design request itself is then in<br />
approval pending status. The approval status of the design request can be changed<br />
through the Approve Design Request command interface (DTAPRDR) or the panel<br />
interface.<br />
Retrieving the Design Request Number<br />
When the Create Design Request command (DTCRTDR) is used from a command<br />
line, the number of the newly created design requests displays as a message to you.<br />
When this command is used within a program, this message must be received from<br />
the program message queue after the command is issued and the design request<br />
number extracted from the message data field.<br />
To illustrate this:<br />
/* THE DR HAS BEEN CREATED OK; THE NUMBER OF THE DESIGN REQUEST */<br />
/* CREATED IS CONTAINED WITHIN THE MSGDTA OF THE MSG VDT3000. */<br />
RECV: RCVMSG MSGQ(*PGMQ) MSGTYPE(*LAST) RMV(*NO) +<br />
MSGDTA(&MSGDTA) MSGID(&MSGID)<br />
/* DR# MESSAGE FOUND; EXTRACT THE NUMBER ASSIGNED AND RETURN IT */<br />
IF (&MSGID *EQ 'VDT3000') THEN(DO)<br />
CHGVAR &DRNUMBER %SST(&MSGDTA 5 5)<br />
ENDDO