View Full Version : TAATOOL
andreas.lundschien
11-11-09, 10:19
Hallo zusammen
Hat noch jemand die Bibliothek TAATOOL bzw. QUSRTOOL aus V3R2 und kann mir ein SAVF davon schicken?
Hallo,
kann mir jemand das Taatool als Quelle (V3R7) zur Verfügung stellen. Speziell das TAADATDC!
Vielen Dank!
Gruss
R.
/************************************************** ******************/
/* */
/* 5769SS1 V4R5M0 000526 RTVCLSRC-Ausgabe 19.03.03 09:29:49 */
/* */
/* Programmname . . . . . . . . . . . . . . : TAADATDC PN*/
/* Bibliotheksname . . . . . . . . . . . . : TAATOOL PL*/
/* Urspr}ngliche Quellendatei . . . . . . . : QATTCL SN*/
/* Bibliotheksname . . . . . . . . . . . . : QUSRTOOL SL*/
/* Urspr}ngliche Quellenteildatei . . . . . : TAADATDC SM*/
/* ½nderung der Quellendatei */
/* Datum/Uhrzeit . . . . . . . . . . . . : 07.02.94 05:59:32 SC*/
/* Korrekturangabe . . . . . . . . . . . . : *NOPATCH PO*/
/* Benutzerprofil . . . . . . . . . . . . . : *USER UP*/
/* Text . . . : Retrieve date in various fmts - CPP for RTVDAT TX*/
/* Eigner . . . . . . . . . . . . . . . . . : QSECOFR OW*/
/* Korrektur{nderungs-ID . . . . . . . . . : PC*/
/* Korrektur-APAR-ID . . . . . . . . . . . : PA*/
/* Benutzermodus . . . . . . . . . . . . . : *YES UM*/
/* ED*/
/************************************************** ******************/
PGM PARM(&DATE &DAYNAME &MTHNAME &FULLDATE &ABRVDATE &DAY3U -
&DAY3L &MTH3U &MTH3L &DAYOFWEEK &DAYOFYEAR &WEEKOFYEAR &YYMMDD -
&CYYMMDD &FULLYEAR &CENT &EURO)
DCL VAR(&DATE) TYPE(*CHAR) LEN(7)
DCL VAR(&EURO) TYPE(*CHAR) LEN(10)
DCL VAR(&DAYNAME) TYPE(*CHAR) LEN(9)
DCL VAR(&MTHNAME) TYPE(*CHAR) LEN(9)
DCL VAR(&FULLDATE) TYPE(*CHAR) LEN(17)
DCL VAR(&ABRVDATE) TYPE(*CHAR) LEN(12)
DCL VAR(&DAY3U) TYPE(*CHAR) LEN(3)
DCL VAR(&DAY3L) TYPE(*CHAR) LEN(3)
DCL VAR(&MTH3U) TYPE(*CHAR) LEN(3)
DCL VAR(&MTH3L) TYPE(*CHAR) LEN(3)
DCL VAR(&DAYOFWEEK) TYPE(*CHAR) LEN(1)
DCL VAR(&DAYOFYEAR) TYPE(*CHAR) LEN(3)
DCL VAR(&WEEKOFYEAR) TYPE(*CHAR) LEN(2)
DCL VAR(&YYMMDD) TYPE(*CHAR) LEN(6)
DCL VAR(&CYYMMDD) TYPE(*CHAR) LEN(7)
DCL VAR(&FULLYEAR) TYPE(*CHAR) LEN(4)
DCL VAR(&CENT) TYPE(*CHAR) LEN(1)
DCL VAR(&YY) TYPE(*CHAR) LEN(2)
DCL VAR(&YEAR4) TYPE(*CHAR) LEN(4)
DCL VAR(&CENTA) TYPE(*CHAR) LEN(1)
DCL VAR(&AYYMMDD) TYPE(*CHAR) LEN(6)
DCL VAR(&WRKDATE) TYPE(*CHAR) LEN(6)
DCL VAR(&YEAR) TYPE(*DEC) LEN(2 0)
DCL VAR(&JAHRH) TYPE(*CHAR) LEN(2)
DCL VAR(&YEARA) TYPE(*CHAR) LEN(2)
DCL VAR(&MONTH) TYPE(*DEC) LEN(2 0)
DCL VAR(&DAY) TYPE(*DEC) LEN(2 0)
DCL VAR(&DAYA) TYPE(*CHAR) LEN(2)
DCL VAR(&EDTDAY) TYPE(*CHAR) LEN(2)
DCL VAR(&SPLMTH) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLMTH3U) TYPE(*CHAR) LEN(3)
DCL VAR(&SPLMTH3L) TYPE(*CHAR) LEN(3)
DCL VAR(&SPLDAY) TYPE(*CHAR) LEN(10)
DCL VAR(&SPLDAY3U) TYPE(*CHAR) LEN(3)
DCL VAR(&SPLDAY3L) TYPE(*CHAR) LEN(3)
DCL VAR(&NUMDAY) TYPE(*DEC) LEN(3 0)
DCL VAR(&AYYMMDD) TYPE(*CHAR) LEN(6)
DCL VAR(&JULDAT) TYPE(*CHAR) LEN(5)
DCL VAR(&JULDAYS) TYPE(*DEC) LEN(3 0)
DCL VAR(&IX) TYPE(*DEC) LEN(3 0)
DCL VAR(&WEEKDAY) TYPE(*CHAR) LEN(1)
DCL VAR(&WEEKCNT) TYPE(*DEC) LEN(3 0) VALUE(0)
DCL VAR(&DAYNAMS) TYPE(*CHAR) LEN(70) VALUE('Sonntag Montag -
Dienstag Mittwoch DonnerstagFreitag Samstag ')
DCL VAR(&DAYNAMS3U) TYPE(*CHAR) LEN(70) VALUE('SON MON -
DIE MIT DON FRE SAM ')
DCL VAR(&DAYNAMS3L) TYPE(*CHAR) LEN(70) VALUE('Son Mon -
Die Mit Don Fre Sam ')
DCL VAR(&MTHNAMS) TYPE(*CHAR) LEN(120) VALUE('Januar Februar -
M„rz April Mai Juni Juli August -
September Oktober November Dezember ')
DCL VAR(&MTHNAMS3U) TYPE(*CHAR) LEN(120) VALUE('JAN FEB -
MŽR APR MAI JUN JUL AUG SEP -
OKT NOV DEZ ')
DCL VAR(&MTHNAMS3L) TYPE(*CHAR) LEN(120) VALUE('Jan Feb -
M„r Apr Mai Jun Jul Aug Sep -
OKt Nov DeZ ')
DCL VAR(&YRSTART) TYPE(*CHAR) LEN(100) VALUE('134561234601245602-
34501235601345612346012456023450123560134561234601 2456023450123560134-
5612346012456')
DCL VAR(&ERRORSW) TYPE(*LGL)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&MSG) TYPE(*CHAR) LEN(512)
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(512)
DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
DCL VAR(&KEYVAR2) TYPE(*CHAR) LEN(4)
DCL VAR(&RTNTYPE) TYPE(*CHAR) LEN(2)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STDERR1))
IF COND(&DATE *EQ '*SYSDAT') THEN(RTVSYSVAL SYSVAL(QDATE) -
RTNVAR(&WRKDATE))
IF COND(&DATE *NE '*SYSDAT') THEN(CHGVAR VAR(&WRKDATE) -
VALUE(&DATE))
CVTDAT DATE(&WRKDATE) TOVAR(&AYYMMDD) TOFMT(*YMD) TOSEP(*NONE)
CVTDAT DATE(&WRKDATE) TOVAR(&EURO) TOFMT(*EUR) +
TOSEP('.')
CHGVAR VAR(&YEAR) VALUE(%SST(&AYYMMDD 1 2))
CHGVAR VAR(&MONTH) VALUE(%SST(&AYYMMDD 3 2))
CHGVAR VAR(&DAY) VALUE(%SST(&AYYMMDD 5 2))
CVTDAT DATE(&WRKDATE) TOVAR(&JULDAT) TOFMT(*JUL) TOSEP(*NONE)
CHGVAR VAR(&JULDAYS) VALUE(%SST(&JULDAT 3 3))
CHGVAR VAR(&IX) VALUE(&MONTH * 10 - 9)
CHGVAR VAR(&SPLMTH) VALUE(%SST(&MTHNAMS &IX 10))
CHGVAR VAR(&SPLMTH3U) VALUE(%SST(&MTHNAMS3U &IX 3))
CHGVAR VAR(&SPLMTH3L) VALUE(%SST(&MTHNAMS3L &IX 3))
CHGVAR VAR(&IX) VALUE(0)
IF COND((&YEAR *GE 00) *AND (&YEAR *LE 39)) THEN(DO)
CHGVAR VAR(&IX) VALUE(&IX + 100)
ENDDO
CHGVAR VAR(&IX) VALUE(&IX + &YEAR)
CHGVAR VAR(&IX) VALUE(&IX - 39)
CHGVAR VAR(&NUMDAY) VALUE(%SST(&YRSTART &IX 1))
CHGVAR VAR(&NUMDAY) VALUE(&NUMDAY + &JULDAYS)
DIV: +
IF COND(&NUMDAY *GT 7) THEN(DO)
CHGVAR VAR(&NUMDAY) VALUE(&NUMDAY - 7)
CHGVAR VAR(&WEEKCNT) VALUE(&WEEKCNT + 1)
GOTO CMDLBL(DIV)
ENDDO
CNVDAY: +
CHGVAR VAR(&IX) VALUE(&NUMDAY * 10 - 9)
CHGVAR VAR(&SPLDAY) VALUE(%SST(&DAYNAMS &IX 10))
CHGVAR VAR(&SPLDAY3U) VALUE(%SST(&DAYNAMS3U &IX 3))
CHGVAR VAR(&SPLDAY3L) VALUE(%SST(&DAYNAMS3L &IX 3))
CHGVAR VAR(&WEEKDAY) VALUE(&NUMDAY)
CHGVAR VAR(&DAYNAME) VALUE(&SPLDAY)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&MTHNAME) VALUE(&SPLMTH)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&DAYA) VALUE(&DAY)
IF COND((&YEAR *GE 00) *AND (&YEAR *LE 39)) THEN(DO)
CHGVAR VAR(&JAHRH) VALUE('20')
ENDDO
ELSE DO
CHGVAR VAR(&JAHRH) VALUE('19')
ENDDO
IF COND(%SST(&DAYA 1 1) *EQ '0') THEN(CHGVAR VAR(%SST(&EDTDAY 1 -
1)) VALUE(%SST(&DAYA 2 1)))
ELSE CMD(CHGVAR VAR(&EDTDAY) VALUE(&DAYA))
CHGVAR VAR(&YEARA) VALUE(&YEAR)
/* */
/* CHGVAR VAR(&FULLDATE) VALUE(&SPLMTH *TCAT ' ' *CAT &EDTDAY *TCAT- */
/* ', ' *CAT &JAHRH *CAT &YEARA) */
CHGVAR VAR(&FULLDATE) VALUE(&EDTDAY *TCAT '. ' *CAT &SPLMTH *TCAT-
' ' *CAT &JAHRH *CAT &YEARA)
MONMSG MSGID(MCH3601)
/* CHGVAR VAR(&ABRVDATE) VALUE(&SPLMTH3L *TCAT ' ' *CAT &EDTDAY - */
/* *TCAT ', ' *CAT &JAHRH *CAT &YEARA) */
CHGVAR VAR(&ABRVDATE) VALUE(&EDTDAY *TCAT '. ' *CAT &SPLMTH3L -
*TCAT ' ' *CAT &JAHRH *CAT &YEARA)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&DAY3U) VALUE(&SPLDAY3U)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&DAY3L) VALUE(&SPLDAY3L)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&MTH3U) VALUE(&SPLMTH3U)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&MTH3L) VALUE(&SPLMTH3L)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&DAYOFWEEK) VALUE(&WEEKDAY)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&DAYOFYEAR) VALUE(&JULDAYS)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&WEEKOFYEAR) VALUE(&WEEKCNT)
MONMSG MSGID(MCH3601)
CVTDAT DATE(&WRKDATE) TOVAR(&AYYMMDD) TOFMT(*YMD) TOSEP(*NONE)
CHGVAR VAR(&YYMMDD) VALUE(&AYYMMDD)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&YY) VALUE(%SST(&AYYMMDD 1 2))
CHGVAR VAR(&CENTA) VALUE('0')
CHGVAR VAR(&YEAR4) VALUE('19' *CAT &YY)
IF COND(&YY *LT '40') THEN(DO)
CHGVAR VAR(&CENTA) VALUE('1')
CHGVAR VAR(&YEAR4) VALUE('20' *CAT &YY)
ENDDO
CHGVAR VAR(&CYYMMDD) VALUE(&CENTA *CAT &AYYMMDD)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&CENT) VALUE(&CENTA)
MONMSG MSGID(MCH3601)
CHGVAR VAR(&FULLYEAR) VALUE(&YEAR4)
MONMSG MSGID(MCH3601)
RMVMSG CLEAR(*ALL)
RETURN
STDERR1:
IF COND(&ERRORSW) THEN(SNDPGMMSG MSGID(CPF9999) MSGF(QCPFMSG) -
MSGTYPE(*ESCAPE))
CHGVAR VAR(&ERRORSW) VALUE('1')
RCVMSG MSGTYPE(*EXCP) RMV(*NO) KEYVAR(&KEYVAR)
STDERR2: +
RCVMSG MSGTYPE(*PRV) MSGKEY(&KEYVAR) RMV(*NO) KEYVAR(&KEYVAR2) -
MSG(&MSG) MSGDTA(&MSGDTA) MSGID(&MSGID) RTNTYPE(&RTNTYPE) MSGF(&MSGF)-
SNDMSGFLIB(&MSGFLIB)
IF COND(&RTNTYPE *NE '02') THEN(GOTO CMDLBL(STDERR3))
IF COND(&MSGID *NE ' ') THEN(SNDPGMMSG MSGID(&MSGID) -
MSGF(&MSGFLIB/&MSGF) MSGDTA(&MSGDTA) MSGTYPE(*DIAG))
IF COND(&MSGID *EQ ' ') THEN(SNDPGMMSG MSG(&MSG) MSGTYPE(*DIAG))
RMVMSG MSGKEY(&KEYVAR2)
STDERR3: +
RCVMSG MSGKEY(&KEYVAR) MSGDTA(&MSGDTA) MSGID(&MSGID) MSGF(&MSGF)-
SNDMSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) MSGDTA(&MSGDTA) -
MSGTYPE(*ESCAPE)
ENDPGM