Code:
/include qcpylesrc,vvNabTmpl
/include qcpylesrc,vvNabTmpl
**Free /Include spchdrdft //================================================== =========================================== // Description..... Startup program for Annual training app // // 05/19/2021 KDR Program created // *End //================================================== =========================================== // Note To compile program: addlible VALENCE6 *last /define nabStartup /include qcpylesrc,vvNabTmpl //================================================== ======================= // -------------------------------------------------------------- // program start // -------------------------------------------------------------- Initialize(); Process(); CleanUp(); *inlr=*on; // -------------------------------------------------------------- *InLR = *On; DCL-PROC process; DCL-PI *N; END-PI ; dcl-s div_char char(2); dcl-s div_num packed(2); dcl-s CurUser Char(10); exec sql set :curUser = session_user; Exec Sql delete from prwtrain where WKUSER = :curUser; exec sql Declare division Cursor for select AUDIVN from PRPUSERS where AUDIVN <> 0 and auuser = :curUser; exec sql open division; exec sql fetch division into :div_num; dow sqlcod = 0; div_char = %editc(div_num:'X'); Exec sql insert into prwtrain ( select empn , divn , eename , shift , Shift_desc, trnc , TRDESC , dept , deptd , jobc , jobd , rtyp , req_Type , req_typ_dsc, req_ovr , type , req , :CurUser from table(pr_train1(:div_char)) ); exec sql fetch division into :div_num; Enddo; exec sql close division; End-Proc; DCL-PROC Initialize; DCL-PI *N; END-PI ; End-Proc; DCL-PROC CleanUp; DCL-PI *N; END-PI ; End-Proc;
Leave a comment: