Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
83 changed files
with
18,505 additions
and
0 deletions.
There are no files selected for viewing
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,46 @@ | ||
| /******************************************************************************/ | ||
| /* */ | ||
| /* Inuendo 1.2 (Alpha release) - CLEAR SESSION MOMEMT */ | ||
| /* */ | ||
| /* Copyright (C) 2012, 2017 Christopher F. Burns Sr. */ | ||
| /* c/o The Inuendo Project (http://inuendo.us). */ | ||
| /* */ | ||
| /* This program is free software: you can redistribute it and/or modify */ | ||
| /* it under the terms of the GNU General Public License as published by */ | ||
| /* the Free Software Foundation, either version 3 of the License, or */ | ||
| /* (at your option) any later version. */ | ||
| /* */ | ||
| /* This program is distributed in the hope that it will be useful, */ | ||
| /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ | ||
| /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ | ||
| /* GNU General Public License for more details. */ | ||
| /* */ | ||
| /* You should have received a copy of the GNU General Public License */ | ||
| /* along with this program. If not, see <http://www.gnu.org/licenses/>. */ | ||
| /* */ | ||
| /******************************************************************************/ | ||
| /* */ | ||
| /* Use as command processing program for command CLRSSNMOM. */ | ||
| /* */ | ||
| /* Compile with CRTCLMOD and bind with CRTPGM, specifying BNDDIR('INUENDO'). */ | ||
| /* */ | ||
| /******************************************************************************/ | ||
|
|
||
| PGM | ||
|
|
||
| DCL VAR(&SUCCESSF) TYPE(*LGL) | ||
| DCL VAR(&MESGTEXT) TYPE(*CHAR) LEN(80) | ||
|
|
||
| CALLPRC PRC(CLRSESSIONMOMENT) RTNVAL(&SUCCESSF) | ||
|
|
||
| IF COND(&SUCCESSF *EQ '1') THEN(CHGVAR + | ||
| VAR(&MESGTEXT) VALUE('Session Moment + | ||
| successfully cleared. Updates allowed.')) | ||
|
|
||
| ELSE CMD(CHGVAR VAR(&MESGTEXT) VALUE('Attempt to + | ||
| clear Session Moment failed.')) | ||
|
|
||
| SNDPGMMSG MSG(&MESGTEXT) | ||
|
|
||
| ENDPGM | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,54 @@ | ||
| /******************************************************************************/ | ||
| /* */ | ||
| /* Inuendo 1.2 (Alpha release) - DISPLAY SESSION MOMEMT */ | ||
| /* */ | ||
| /* Copyright (C) 2012, 2017 Christopher F. Burns Sr. */ | ||
| /* c/o The Inuendo Project (http://inuendo.us). */ | ||
| /* */ | ||
| /* This program is free software: you can redistribute it and/or modify */ | ||
| /* it under the terms of the GNU General Public License as published by */ | ||
| /* the Free Software Foundation, either version 3 of the License, or */ | ||
| /* (at your option) any later version. */ | ||
| /* */ | ||
| /* This program is distributed in the hope that it will be useful, */ | ||
| /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ | ||
| /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ | ||
| /* GNU General Public License for more details. */ | ||
| /* */ | ||
| /* You should have received a copy of the GNU General Public License */ | ||
| /* along with this program. If not, see <http://www.gnu.org/licenses/>. */ | ||
| /* */ | ||
| /******************************************************************************/ | ||
| /* */ | ||
| /* Use as command processing program for command DSPSSNMOM. */ | ||
| /* */ | ||
| /* Compile with CRTCLMOD and bind with CRTPGM, specifying BNDDIR('INUENDO'). */ | ||
| /* */ | ||
| /******************************************************************************/ | ||
|
|
||
| PGM | ||
|
|
||
| DCL VAR(&MOMTACTV) TYPE(*LGL) | ||
| DCL VAR(&SESSMOMT) TYPE(*CHAR) LEN(26) | ||
| DCL VAR(&MESGTEXT) TYPE(*CHAR) LEN(80) | ||
|
|
||
| CALLPRC PRC(SESSIONMOMENTACTIVE) RTNVAL(&MOMTACTV) | ||
|
|
||
| IF COND(&MOMTACTV *EQ '0') THEN(CHGVAR + | ||
| VAR(&MESGTEXT) VALUE('No session moment + | ||
| currently active.')) | ||
|
|
||
| ELSE CMD(DO) | ||
|
|
||
| CALLPRC PRC(GETSESSIONMOMENT) RTNVAL(&SESSMOMT) | ||
|
|
||
| CHGVAR VAR(&MESGTEXT) VALUE('Session Moment + | ||
| currently set to' *BCAT &SESSMOMT *TCAT + | ||
| '. Updates suspended.') | ||
|
|
||
| ENDDO | ||
|
|
||
| SNDPGMMSG MSG(&MESGTEXT) | ||
|
|
||
| ENDPGM | ||
|
|
Oops, something went wrong.