Sorry I missed the beginning
but this is a JOB which runs on a daily basis on my HP3000 to gather files
from an HP9000
Sorry the comments are german, but if you need more info get back to me.
YOu need to delete what you dont need.
The trick is:
1) to get only the names from the remote system
2) to process serially the names of the remote files
3) to delete them only after they have been processed OK
Friedrich
!JOB CRSLIMJ,MGR.OEKVT,CRSDAT
!COMMENT * ======================================================== *
!COMMENT * FILE : CRSLIMJ.JOB *
!COMMENT * -------------------------------------------------------- *
!COMMENT * AUTOR : F. Harasleben *
!COMMENT * VERSION : 1.05 *
!COMMENT * DATE-WRITTEN: 20-03-2000 *
!COMMENT * DATE-CHANGED: 27-07-2000 *
!COMMENT * -------------------------------------------------------- *
!COMMENT * BESCHREIBUNG: Transferjob für die Übertragung der *
!COMMENT * PARAGRAPH Files von ISABELLE auf DTS *
!COMMENT * und Verarbeitung der Files *
!COMMENT * -------------------------------------------------------- *
!COMMENT * AENDERUNGEN : *
!COMMENT * 04-05-00 HF : Dateinamensvergabe geändert *
!COMMENT * 29-05-00 HF : Löschen uaf ISABELLE geändert *
!COMMENT * 14-06-00 HF : Bei Absturz MPFEIL.CRSDAT löschen *
!COMMENT * 03-07-00 HF : Keine Dateien mit EOF = 0 verarbeiten *
!COMMENT * 27-07-00 HF : Anpassen an INTLI100 *
!COMMENT * ======================================================== *
!COMMENT
!COMMENT -------------------- ALLG. VARIABLE ---------------------
!COMMENT
!SETVAR CRSLimitDIR, "/users/files/OKPARAGTEST"
!SETVAR MPEFileTemp, "P" + RHT("!HPYYYY",2) + RHT("00"+"!HPMONTH",2)
!SETVAR MPEFileTemp, MPEFileTemp + RHT("00"+"!HPDATE",2)
!COMMENT
!COMMENT ------------------ ANZAHL FILES FTP PARM -------------------
!COMMENT
!ECHO open YOURCOMP > FTPLIST
!ECHO USER YOURUSER >> FTPLIST
!ECHO YOUPWD >> FTPLIST
!ECHO EXITONERROR >> FTPLIST
!ECHO cd !CRSLimitDIR >> FTPLIST <=
This is the tricky part, it gets the
<=
name of the files on the HP9000 into a file
<=
which the is serially processed
!ECHO ls P* ftplim1 >> FTPLIST
!ECHO exit >> FTPLIST
!COMMENT
!COMMENT ------------------ ANZAHL FILES ERMITTELN ----------------
!COMMENT
!run ftp.arpa.sys < FTPLIST
!IF FTPLASTERR <> 0 THEN
! ABORTJOB
!ELSE
! file ftplim2;msg
! print ftplim1 > *ftplim2
!COMMENT
!COMMENT --------------- WAR ETWAS DABEI FÜR UNS ? --------------
!COMMENT
! IF (FINFO("ftplim2","EOF") = 0) THEN
! STREAM CRSLIMJ.JOB;in=,,1
! EOJ
! ENDIF
!COMMENT
!COMMENT ------------------ HOLEN DER DATEIEN ------------------------
!COMMENT
! SETVAR StartUm, !HPHOUR
! IF !StartUm > 12 THEN
! SETVAR Index, 1
! ELSE
! SETVAR Index, "A"
! ENDIF
! WHILE (FINFO("ftplim2","EOF") > 0) DO
! INPUT FTPFile < ftplim2
! SETVAR FTPFile, RTRIM(FTPFile)
! SETVAR MPEFile, MPEFileTemp + "!Index"
! WHILE (FINFO("!MPEFile.CRSSAV","EXISTS") = TRUE)
! IF !StartUm > 12 THEN
! SETVAR Index, Index + 1
! ELSE
! SETVAR Index, CHR(ORD("!Index") + 1)
! ENDIF
! SETVAR MPEFile, MPEFileTemp + "!Index"
! ENDWHILE
! ECHO Nun wird die Datie !FTPFile nach !MPEFILE geholt
!COMMENT
!COMMENT ------------------ HOLEN FILES FTP PARM --------------------
!COMMENT
! ECHO EXITONERROR > FTPGET
! ECHO open YOURCOMP >> FTPGET
! ECHO USER YOURUSER >> FTPGET
! ECHO YOURPWD >> FTPGET
! ECHO cd !CRSLimitDIR >> FTPGET
! ECHO GET !FTPFile !MPEFile;REC=-303,1,F,ASCII;DISC=500000>> FTPGET
! ECHO exit >> FTPGET
! run ftp.arpa.sys < FTPGET
! IF FTPLASTERR <> 0 THEN
! SHOWVAR FTP@
! ABORTJOB
! ELSE
! IF (FINFO("!MPEFile.CRSDAT","EOF") <> 0) THEN
! FILE INTLIMIT=!MPEFile.CRSDAT
! PURGE ERRLIM.CRSDAT
! BUILD ERRLIM.CRSDAT;REC=-132,1,f,ascii;DISC=1000000;TEMP
! SETVAR INTLI100 , FALSE
! SETVAR INTLI100ERR, 1
! CONTINUE
!COMMENT Zeile nach QUICK Aufruf für "NORMAL" VA; "EUR" bei EURO
!QUICK INFO="AUTO=INTL10.QKGO LINEREAD TERM=HP700/92-48" > ERRLIM.CRSDAT
NOR;
! SAVE ERRLIM.CRSDAT
! FILE INTLI100=INTLI100;DEV=DREDV3
! FCOPY FROM=INTLI100.DATA;to=*INTLI100
! IF !INTLI100 <> TRUE THEN
!COMMENT Datei wird nochmals geholt, daher löschen
! PURGE !MPEFile.CRSDAT
! SHOWVAR INT@
! ABORTJOB
! ELSE
! IF !INTLI100ERR <> 0 THEN
!COMMENT Datei wird nochmals geholt, daher löschen
! PURGE !MPEFile.CRSDAT
! SHOWVAR INT@
! ABORTJOB
! ELSE
! TELLOP INTLI100 OKAY
! COPY !MPEFile.CRSDAT,.CRSSAV
! PURGE !MPEFile.CRSDAT
! ENDIF
! ENDIF
! ELSE
!COMMENT Keine Files mit EOF = 0
!COMMENT nur nach CRSSAV Verschieben
! COPY !MPEFile.CRSDAT,.CRSSAV
! PURGE !MPEFile.CRSDAT
! ENDIF
! ENDIF
!COMMENT
!COMMENT ------------------ LÖSCHEN auf ISABELLE --------------------
!COMMENT
! ECHO EXITONERROR > FTPDEL
! ECHO open YOURCOMP >> FTPDEL
! ECHO USER YOURUSER >> FTPDEL
! ECHO YOURPWD >> FTPDEL
! ECHO cd !CRSLimitDIR >> FTPDEL
! ECHO DELETE !FTPFile >> FTPDEL
! ECHO exit >> FTPDEL
! run ftp.arpa.sys < FTPDEL
! IF FTPLASTERR <> 0 THEN
! SHOWVAR FTP@
! ABORTJOB
! ENDIF
! IF !StartUm > 12 THEN
! SETVAR Index, Index + 1
! ELSE
! SETVAR Index, CHR(ORD("!Index") + 1)
! ENDIF
! ENDWHILE
!ENDIF
!EOJ
|