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 D pCmdLength 15 5 const D pCommand S 2560 D pCmdLength S 15 5 inz(2560) pComdse = 'SNDSMTPEMM RCP(' + %Trim(vpToAdr) + %Trim(vpCcAdr) + %Trim(vpBccAdr) + ') SUBJECT(' + %Trim(vpSubject) + ')'; vpContent = ‘TEST’; vpContent = %Trim(vpConten
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;
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 CHOICE(4 'Model') A CHCCTL(1 &CHC1) A CHCCTL(2 &CHC2) A CHCCTL(3 &CHC3) A CHCCTL(4 &CHC4) A CHC1 1Y 0H A CHC2 1Y 0H A CHC3 1Y 0
Comments
Post a Comment