Search This Blog

AS400

AS400 Technical Blog

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

- July 08, 2017

AS400: Timestamp to yyyy-mm-dd (ISO)

select Char(date(Now()), iso) from sysibm/sysdummy1

Output
2017-12-18

select date(Now()) from sysibm/sysdummy1

Output
12/18/17

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Comments

AS400 : Add a new line in text in email SNDSMTPEMM

- January 11, 2018

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

AS400 Display: Radio Button (SNGCHCFLD)

- July 09, 2017

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;

AS400 Display File: Check Box (MLTCHCFLD)