TAATOOL

[andreas.lundschien]

Hallo zusammen

Hat noch jemand die Bibliothek TAATOOL bzw. QUSRTOOL aus V3R2 und kann mir ein SAVF davon schicken?

[Rauh]

Hallo,

kann mir jemand das Taatool als Quelle (V3R7) zur Verfügung stellen. Speziell das TAADATDC!

Vielen Dank!

Gruss

R.

[leysser]

/************************************************** ******************/
/* */
/* 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