midrange.com code scratchpad |
Name:
Get next sequence #
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
02/10/2012 06:50:01 pm
|
IP:
Logged
|
|
Description:
The user was to lazy to give a description
|
Code:
- /*********************************************************************/
- /* Build name of MIME header file to be created */
- /*********************************************************************/
- /* Retrieve next sequence number */
- CHKOBJ OBJ(&DTAARALIB/NXTMIME#) OBJTYPE(*DTAARA)
- MONMSG MSGID(CPF9801) EXEC(CRTDTAARA +
- DTAARA(&DTAARALIB/NXTMIME#) TYPE(*CHAR) LEN(3) +
- VALUE('000'))
- RTVMIME#:
- ALCOBJ OBJ((&DTAARALIB/NXTMIME# *DTAARA *EXCLRD))
- MONMSG MSGID(CPF0000) EXEC(DO)
- SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Data +
- area nxtmime# is locked and cannot be +
- accessed')
- SNDMSG MSG('Data area NXTMIME# is locked and +
- another program is trying to access it.') +
- TOUSR(*SYSOPR)
- ALCOBJ OBJ((&DTAARALIB/NXTMIME# *DTAARA *EXCLRD)) +
- WAIT(180)
- ENDDO
-
- RTVDTAARA DTAARA(&DTAARALIB/NXTMIME#) RTNVAR(&SEQNO)
- CHGVAR VAR(&SEQNO#) VALUE(&SEQNO)
- UpSequence:
- IF COND(&SEQNO# *EQ 999) THEN(DO)
- CHGVAR VAR(&SEQNO#) VALUE(001)
- ENDDO
- ELSE CMD(DO)
- CHGVAR VAR(&SEQNO#) VALUE(&SEQNO# + 1)
- ENDDO
- CHGVAR VAR(&SEQNO) VALUE(&SEQNO#)
-
- /* Build name of MIME file to use */
- CHGVAR VAR(&FILENAME) VALUE(&DIRECTORY *TCAT '/EMHDR' +
- *TCAT &SEQNO *TCAT '.TXT')
-
- /* If file already exists, try again */
- CHGVAR VAR(&PATH) VALUE(&FILENAME *TCAT &NULL)
- CALLPRC PRC('stat') PARM(&PATH &BUF) +
- RTNVAL(%BIN(&RTNVALINT 1 4))
- CHGVAR VAR(&RTNVAL) VALUE(%BIN(&RTNVALINT))
- IF COND(&RTNVAL *EQ '00') THEN(GOTO CMDLBL(UpSequence))
-
- /*LTS01d CHGDTAARA DTAARA(NXTMIME#) VALUE(&SEQNO) */
- CHGDTAARA DTAARA(&DTAARALIB/NXTMIME#) VALUE(&SEQNO) +
- /*LTS01a*/
- DLCOBJ OBJ((&DTAARALIB/NXTMIME# *DTAARA *EXCLRD))
-
|
|
|