Kontakt

Ansicht
Dokumentation

01405 - Old issue revisited: QSTRUP order

01405 - Old issue revisited: QSTRUP order

General Material Data   General Data in Customer Master  
This documentation is copyright by SAP AG.
SAP E-Book

Old issue revisited: QSTRUP order

Robert,

Here's ours:

PGM
DCL VAR(&ABNORMSW) TYPE(*CHAR) LEN(1)
DCL VAR(&FOUTSAP) TYPE(*LGL)
DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5769-SS1 (C) COPYRIGHT-
IBM CORP 1980, 1996. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
QSYS/STRSBS SBSD(QSPL)
MONMSG MSGID(CPF0000)
/* QSYS/STRSBS SBSD(QSERVER) */
/* MONMSG MSGID(CPF0000) */
QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
MONMSG MSGID(CPF0000)
QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
MONMSG MSGID(CPF0000)
QSYS/STRCLNUP
MONMSG MSGID(CPF0000)
QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD)
IF COND((&CTLSBSD *NE 'QCTL QSYS ') *AND (&CTLSBSD *NE-
'QCTL QGPL ')) THEN(GOTO CMDLBL(DONE))
QSYS/STRSBS SBSD(QINTER)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QBATCH)
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QCMN)
MONMSG MSGID(CPF0000)
/* */
/* START ADDITIONAL PROGRAM */
/* */
STARTTCP:
QSYS/STRTCP STRSVR(*NO) STRIFC(*NO)
MONMSG MSGID(CPF0000)
DLYJOB DLY(60)
QSYS/STRTCPSVR SERVER(*SNMP *FTP *TELNET *SMTP *LPD +
*POP)
MONMSG MSGID(CPF0000)
DLYJOB DLY(60)
QSYS/STRTCPIFC INTNETADR('127.0.0.1')
MONMSG MSGID(CPF0000)
QSYS/STRTCPIFC INTNETADR('220.220.220.201')
MONMSG MSGID(CPF0000)
/* START TCP/IP BEFORE QSERVER SO THAT ALL JOBS IN QSERVER ARE */
/* COMING UP AND RUNNING */
DLYJOB DLY(30)
QSYS/STRSBS SBSD(QSERVER)
MONMSG MSGID(CPF0000)
/* */
CA400:
DLYJOB DLY(60)
STRHOSTSVR SERVER(*ALL)
MONMSG MSGID(CPF0000)
DLYJOB DLY(120)
QSYS/STRTCPSVR SERVER(*NETSVR *EDRSQL)
DLYJOB DLY(20)
/* */
UPS:
STRSBS SBSD(UPSPOXV40/UPSMON)
MONMSG MSGID(CPF0000)
DLYJOB DLY(10)

MONMSG MSGID(CPF0000)
QSYS/RTVSYSVAL SYSVAL(QABNORMSW) RTNVAR(&ABNORMSW)
QSYS/RTVDTAARA DTAARA(LVE/FOUTSAP) RTNVAR(&FOUTSAP)
IF COND((&ABNORMSW *EQ '1') *OR (&FOUTSAP *EQ +
'1')) THEN(GOTO CMDLBL(DONE))
SAP:
MKDIR DIR('/QFILESVR.400/GYPROC02')
MONMSG MSGID(CPF0000)

DLYJOB DLY(10)
MKDIR DIR('/QFILESVR.400/GYPROC01')
MONMSG MSGID(CPF0000)
DLYJOB DLY(250)
SBMJOB CMD(CALL PGM(QGPL/OPSTARTPRD) PARM('PRD' +
'02')) JOB(STARTPRD) USER(PRDOFR) +
MSGQ(QSYSOPR)
MONMSG MSGID(CPF0000)
DLYJOB DLY(200)
DONE:
QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)
IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS))
CALL PGM(QSYS/QWCSWTRS)
MONMSG MSGID(CPF0000)
NOWTRS:
RETURN
CHGVAR VAR(&CPYR) VALUE(&CPYR)
ENDPGM
****************** End of data ****************************************

Regards,

Luc





"Robert Clay" <rclayZk...> on 21/03/2001 16:14:53

Please respond to DoNotReply@consolut.eu

To: "SAP400 Mailing List" <sap400Zm...>
cc: (bcc: Luc Verheggen/BEGyproc/PlasterStone/Etex Group)

Subject: Old issue revisited: QSTRUP order




[Non-text portions of this message have been removed]


 Durban Tours - Südafrika Safari

BAL Application Log Documentation   RFUMSV00 - Advance Return for Tax on Sales/Purchases  
This documentation is copyright by SAP AG.

Length: 3860 Date: 20240520 Time: 212110     sap01-206 ( 4 ms )