AS400 SQL: No. Of Rows affected by previous sql statement
D Spec:
DRows S 10I 0 Inz(0)
Exec Sql
Delete from TBL1 where UserNm = 'TEST1';
Exec Sql Get DIAGNOSTICS :Rows = Row_Count;
Text = 'Deleted :' + %Char(Rows);
AS400 : Add a new line in text in email SNDSMTPEMM
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
Comments
Post a Comment