midrange.com code scratchpad |
Name:
HLDJOBQVCP
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
01/15/2010 02:19:28 am
|
IP:
Logged
|
|
Description:
Hold Jobq validity checking program
|
Code:
- * CHGCMD CMD(HLDJOBQ) VLDCKR(*LIBL/HLDJOBQVCP)
- h
- D HLDJOBQVCP Pr extpgm('HLDJOBQVCP')
- D bmd 1a
- D JobQ 10a
- *
- D HLDJOBQVCP Pi
- D bmd 1a
- D JobQ 10a
-
- **-- System information:
- D PgmSts Sds
- D Job 10a Overlay( PgmSts: 244 )
- D Usr 10a Overlay( PgmSts: 254 )
- D Nbr 6a Overlay( PgmSts: 264 )
- D CurUsr 10a Overlay( PgmSts: 358 )
-
- dCmdExc pr extpgm('QCMDEXC')
- d Command 65535 const options(*varsize)
- d CmdLength 15 5 const
- d IGC 3 const options(*nopass)
-
- d Cmd2Run s 256a
-
- /free
- *inlr = *on;
- Cmd2Run = 'SNDMSG MSG(''Jobq ' +
- %trim(Jobq) + ' was held by ' +
- %trim(Job) + '/' +
- %trim(Usr) + '/' +
- %trim(Nbr) + ''')' +
- ' Tousr(*SYSOPR)';
- CmdExc(Cmd2Run :%len(%trimr(Cmd2Run)));
- return;
- /end-free
|
|
|