Gentle Listers:
Further to my ramblings and postings, I just thought I'd ublish, FWIW if
anything the output after using several interesting suggestions from the
list:
To recapitulate:
MPE/iX 7.5
9x7 box
PH 8.19.C2
Jobstream output etc:
:SETVAR HPMSGFENCE,0
:FILE PHD=PHSCHM0C.CENTFILE.CENTRAL
:FILE CODB=CODB.DATABASE
:COMMENT The following is a copy from the DEPART UDC:
:FILE MIRROR=AMA.DATABASE.CENTRAL
:COMMENT If the file does not exist (ONMIRRSF) or is empty, skip process:
:SETVAR existf,finfo("AMAMIRR.BACKUP",0)
:IF existf then
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE/ENDIF
:SETVAR eof,finfo("AMAMIRR.BACKUP",19)
:IF eof > 0 then
:FILE ONMIRRSF=AMAMIRR.BACKUP
:CONTINUE
:PURGE MIRRMSG
:BUILD MIRRMSG;rec=-8,31,f,ascii;disc=1000,8,1;msg
:ECHO !HPDATETIME > MIRRDAT
:FCOPY from=MIRRDAT;to=MIRRMSG
:FILE MIRRMSG;acc=append
:FCOPY from=*ONMIRRSF;to=*MIRRMSG;nouserlabels
:RESET MIRRMSG
:LISTF MIRRMSG,2
:FILE STDIN=MIRRMSG;nolock
:CONTINUE
:QTP auto=PTRNDP0C.CTSKOBJT
:ENDIF
:ENDIF
*** RESUME EXECUTION OF COMMANDS
:COMMENT File eq to the appropriate Institution extract in .BACKUP
:COMMENT
:COMMENT The following is a copy from the DEPART UDC:
:FILE MIRROR=AVE.DATABASE.CENTRAL
:COMMENT If the file does not exist (ONMIRRSF) or is empty, skip process:
:SETVAR existf,finfo("AVEMIRR.BACKUP",0)
:IF existf then
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE/ENDIF
:SETVAR eof,finfo("AVEMIRR.BACKUP",19)
:IF eof > 0 then
:FILE ONMIRRSF=AVEMIRR.BACKUP
:CONTINUE
:PURGE MIRRMSG
:BUILD MIRRMSG;rec=-8,31,f,ascii;disc=1000,8,1;msg
:ECHO !HPDATETIME > MIRRDAT
:FCOPY from=MIRRDAT;to=MIRRMSG
:FILE MIRRMSG;acc=append
:FCOPY from=*ONMIRRSF;to=*MIRRMSG;nouserlabels
:RESET MIRRMSG
:LISTF MIRRMSG,2
:FILE STDIN=MIRRMSG;nolock
:CONTINUE
:QTP auto=PTRNDP0C.CTSKOBJT
:ENDIF
:ENDIF
*** RESUME EXECUTION OF COMMANDS
:COMMENT File eq to the appropriate Institution extract in .BACKUP
:COMMENT
:COMMENT The following is a copy from the DEPART UDC:
:FILE MIRROR=CCI.DATABASE.CENTRAL
:COMMENT If the file does not exist (ONMIRRSF) or is empty, skip process:
:SETVAR existf,finfo("CCIMIRR.BACKUP",0)
:IF existf then
*** EXPRESSION TRUE
:SETVAR eof,finfo("CCIMIRR.BACKUP",19)
:IF eof > 0 then
*** EXPRESSION TRUE
:FILE ONMIRRSF=CCIMIRR.BACKUP
:CONTINUE
:PURGE MIRRMSG
:BUILD MIRRMSG;rec=-8,31,f,ascii;disc=1000,8,1;msg
:ECHO !HPDATETIME > MIRRDAT
:FCOPY from=MIRRDAT;to=MIRRMSG
HEWLETT-PACKARD 31900A.05.04 FILE COPIER TUE, MAR 9, 2004, 9:18 AM
(C) HEWLETT-PACKARD CO. 1999
*200*WARNING: FROMFILE RECSIZE IS 256 BYTES, TOFILE RECSIZE IS 8 BYTES.
EOF FOUND IN FROMFILE AFTER RECORD 0
1 RECORD PROCESSED *** 0 ERRORS
END OF SUBSYSTEM
:FILE MIRRMSG;acc=append
:FCOPY from=*ONMIRRSF;to=*MIRRMSG;nouserlabels
HEWLETT-PACKARD 31900A.05.04 FILE COPIER TUE, MAR 9, 2004, 9:18 AM
(C) HEWLETT-PACKARD CO. 1999
*200*WARNING: FROMFILE RECSIZE IS 72 BYTES, TOFILE RECSIZE IS 8 BYTES.
EOF FOUND IN FROMFILE AFTER RECORD 295
296 RECORDS PROCESSED *** 0 ERRORS
END OF SUBSYSTEM
:RESET MIRRMSG
:LISTF MIRRMSG,2
TUE, MAR 9, 2004, 9:18 AM
ACCOUNT= CENTRAL GROUP= PUB
FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
MIRRMSG 8B VAM 297 1209 31 80 2 8
:FILE STDIN=MIRRMSG;nolock
:CONTINUE
:QTP auto=PTRNDP0C.CTSKOBJT
03/09/2004 09:18 California Dept. of Corrections 0.015 PAGE
1
Run: PTRNDP0C
Request: PROCESSDEPARTURE
Executing request PROCESSDEPARTURE ...
Enter departure date:
No records will be selected.
Records read:
OP-OFF-PERSONAL 0
Transactions processed: 0
Records processed: Added Updated Unchanged
Deleted
OP-OFF-PERSONAL 0 0 0
0
PO-PAST-OFF 0 0 0
0
INMATE-LOCATOR 0 0 0
0
OT-OFF-TRAN-HIST 0 0 0
0
B-BEDS 0 0 0
0
Finished.
END OF PROGRAM
:ENDIF
:ENDIF
:COMMENT File eq to the appropriate Institution extract in .BACKUP
:COMMENT
:COMMENT The following is a copy from the DEPART UDC:
:FILE MIRROR=CAL.DATABASE.CENTRAL
:COMMENT If the file does not exist (ONMIRRSF) or is empty, skip process:
:SETVAR existf,finfo("CALMIRR.BACKUP",0)
:IF existf then
*** EXPRESSION FALSE: COMMANDS IGNORED UNTIL MATCHING ELSEIF/ELSE/ENDIF
:SETVAR eof,finfo("CALMIRR.BACKUP",19)
:IF eof > 0 then
:FILE ONMIRRSF=CALMIRR.BACKUP
:CONTINUE
:PURGE MIRRMSG
:BUILD MIRRMSG;rec=-8,31,f,ascii;disc=1000,8,1;msg
:ECHO !HPDATETIME > MIRRDAT
:FCOPY from=MIRRDAT;to=MIRRMSG
:FILE MIRRMSG;acc=append
:FCOPY from=*ONMIRRSF;to=*MIRRMSG;nouserlabels
:RESET MIRRMSG
:LISTF MIRRMSG,2
:FILE STDIN=MIRRMSG;nolock
:CONTINUE
:QTP auto=PTRNDP0C.CTSKOBJT
:ENDIF
:ENDIF
*** RESUME EXECUTION OF COMMANDS
:COMMENT File eq to the appropriate Institution extract in .BACKUP
:COMMENT
:TELL JMP,MGR.CENTRAL; BEDTESTj COMPLETED
:IF CIERROR = 0
*** EXPRESSION TRUE
: TELL JMP,MGR.CENTRAL; Completed - No Errors!!!
:ELSE
*** COMMANDS IGNORED UNTIL MATCHING ENDIF
: TELL JMP,MGR.CENTRAL; CIError = !CIERROR
:ENDIF
*** RESUME EXECUTION OF COMMANDS
:EOJ
CPU sec. = 7. elapsed min. = 1. TUE, MAR 9, 2004, 9:18 AM.
%
***************
First 5 records on MIRRMSG.BACKUP:
%print mirrmsg
20040308
H317794A
J98284ME
P67768MI
V045424
Listf of MIRRMSG.ROSTCHEK (Flat file) Before:
ACCOUNT= CENTRAL GROUP= ROSTCHEK
FILENAME CODE ----------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
MIRRMSG 8B FA 297 1000 31 32 2 7
Listf of MIRRMSG.PUB after: (1st 2 records have been read):
ACCOUNT= CENTRAL GROUP= PUB
FILENAME CODE ----------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
MIRRMSG 8B VAM 295 1209 31 80 2 8
So????????
Thanks for any suggestions. In any event, I've found a non-cerebral fix but
I am still curious (yellow? 8=)) )
Best
JP
John M Penney
DDPS
California Department of Corrections
1920 Alabama Ave.
Rancho Cordova, CA
(916)358-2247
(916)358-2322 Fax
(360)789-8159 Cell
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|