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 ...
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 ...
Radio button can be added to the AS400 Display. In the below code we have added a Radio button with 2 option 'Today' or 'Tomorrow' DSPF: A OPTION 2Y 0B 3 42SNGCHCFLD A CHOICE(1 'Today') A CHOICE(2 'Tomorrow') The OPTION can be used used in RPG program as PGM: If Option = 1 ; Msg = 'Today'; ElseIf Option = 2 ; Msg = 'Tomorrow'; EndIf; ...
Comments
Post a Comment