IBM SC34-7012-01 Bedienungsanleitung Seite 231

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 268
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 230
DS 30C
DATEVAL DS 8C Date value from BWO recovery point
SUCMSG1 DS 8C Message text
TIMEVAL DS 8C Time value from BWO recovery point
SUCMSG2 DS C Message text
READMSG DS 0CL11 If function = READ put out BWO flags
DS 7C Message text
BWOVAL1 DS C BWO indicator 1
BWOVAL2 DS C BWO indicator 2
BWOVAL3 DS C BWO indicator 3
DS C Message text
*
DATETIME DS D Current date and time value
*
RECOVPT DS 0D BWO recovery point
DTZERO DS B Date dword
DTCENTRY DS B
DTDATE DS 5B
DTSIGN1 DS B
*
DTTIME DS 6B Time dword
DTTENTHS DS B
DTSIGN2 DS B
*
RECOVPTP DS 0D Packed recovery point
DATEPACK DS F Packed version of date
TIMEPACK DS F Packed version of time
*
DFHREGS
PROG CSECT
PROG AMODE 31
*
* Initialise INTO field for RECEIVE
*
MVC DSNAMER(48),BLANKS
MVC INLENGTH(2),INMAXLEN
*
EXEC CICS RECEIVE INTO(INDATA) LENGTH(INLENGTH)
*
CLI TRANFUNC,C’S’ Set or Read call?
BNE PRGREAD
*
* Set up the parameters for a SET call
*
SR R4,R4
LA R4,SET(0)
ST R4,FUNC Set function
MVC DSN(44),DSNAMES Set data set name
LH R4,INLENGTH
S R4,PRELENS Subtract tran id + space + BWO ind
ST R4,DSNLEN Set data set name length
*
EXEC CICS ASKTIME ABSTIME(DATETIME)
EXEC CICS FORMATTIME ABSTIME(DATETIME) YYDDD(DTDATE) *
TIME(DTTIME)
*
PACK KEYWORK(5),RECOVPT(9) Packed date field
MVC DATEPACK(4),KEYWORK
PACK KEYWORK(5),RECOVPT+8(9) Packed time field
MVC TIMEPACK(4),KEYWORK
XC RECOVPTP(1),RECOVPTP Set century 0=1900, 1=2000
OI RECOVPTP+3,X’0F’ Set +ve sign for date
OI RECOVPTP+7,X’0F’ Set +ve sign for time
MVC BWOTIME(8),RECOVPTP Set BWO recovery point time
*
EXEC CICS SYNCPOINT
*
Chapter 18. Backup-while-open (BWO) 219
Seitenansicht 230
1 2 ... 226 227 228 229 230 231 232 233 234 235 236 ... 267 268

Kommentare zu diesen Handbüchern

Keine Kommentare