Declare ** NAMED CONSTANTS FOR CARRIAGE RETURN Which will move the control to next line D CR C CONST(X'0D') //0->Zero D vSepj S 1 Inz('/') D vQot S 1 INZ('''') DRunCommand PR extpgm('QCMDEXC') D pCommand 2560 const ...
CLEAR is used to clear a variable by setting the value to its default value based on the variable type. Character filed to blanks Numeric field to 0 CLEAR will set the indicator to 0 (OFF) CLEAR will clear the whole record format to default values CLEAR can clear entire array or just the instance of an array if the instance/Index is specified
Check box can be added to the AS400 Display using the Multi Choice Field. Each Choice in the MLTCHCFLD should have a Choice control defined as below. These Choice Control can be used in the Program logic. A MOPT 2Y 0B 3 58MLTCHCFLD A CHOICE(1 'Shipment') A CHOICE(2 'Transfer') A CHOICE(3 'Ship to ') A ...
Comments
Post a Comment