|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 11520 (0x2d00)
Types: TextFile
Names: »stdbatchjob «
└─⟦da4d89bf7⟧ Bits:30002810 RC8000-ADP SW8740/1 Rel 6.2
└─⟦3a54bc57a⟧
└─⟦this⟧ »stdbatchjob «
; standard jobfil for rc bibliotekssystem rel. 19.0 med udlån rel. 10.0
; *** nyt i rel. 19.0 / 10.0: hjemkaldelse, batchrutine 2 (jobforslag 3, 4)
; trimningsforslag til periodiske batchkørsler.
; jobfilen indeholder følgende trimmeforslag:
;
; 1: oprydning i uanbringelige lån - *** opdaterende rutine
; 2: liste over anbragte og stadig uanbringelige lån
; 3: hjemkaldelsesrutine for fast lånetid - *** opdaterende rutine
; 4: hjemkaldelsesrutine for reserverede - *** opdaterende rutine
; 5: udskrivning af separate hjemkaldelser
; 6: udskrivning af hjemkaldelsesbreve med flere hjemkaldelser (uden ryk dato)
; 7: udskrivning af hjemkaldelsesbreve med flere hjemkaldelser (med ryk dato)
; 8: hjemkaldelsesliste
; 9: udskrivning af breve med både hjemkaldelser og hjemkomstmeddelelser
; 10: oprydning i efterbehandlingskøen (adskilt fra udskrivning)
; 11: gentagelse af efterbehandlingsliste.
; 12: gennemgang af bestillinger og reservationer - *** opdaterende rutine
; 13: udskrivning af bestillinger og reservationer
; 14: reservationsstatistik og kontrol af materialetype vs. reservationsgrad
; første kommentarlinie i batchtrimninger af rutiner som opdaterer databasen
; er mærket med teksten "*** opdaterende rutine". for sådanne skal mellemfilen
; findes ikke blot når batchrutinen startes, men også ved evt. omkørsel
; for retablering af databasen.
; de trimninger hvori indgår udtræk fra efterbehandlingskøen (9, 10 og 11 i
; listen ovenfor) opdaterer efterbehandlingskøen, idet de udtrukne poster enten
; slettes eller tælleren for antal udtræk forhøjes med 1.
; de BISP formater som forekommer i udskrivende trimninger findes i standard
; BISP'en for bibliotekssystemet med udlån (ubisp).
; alle de udskrivende trimninger skriver automatisk på printeren "printer".
; udskrivning i en fil opnås ved at sætte filnavnet i stedet for printernavnet.
; bemærk at filen da skal udskrives manuelt før den kan genbruges.
\f
; 1: oprydning i uanbringelige lån - *** opdaterende rutine
5 udxl ;mellemfilen udxl skal også findes ved omkørsel
*
; 2: liste over anbragte og stadig uanbringelige lån
6 printer udxl anbxover (1) anbxover (2) stdkvit 40 5
1 anbx (1) ; format for udskrivning af fortsat uanbringelige
0 anbx (0) ; format for udskrivning af nu anbragte
*
\f
; 3: hjemkaldelsesrutine for fast lånetid - *** opdaterende rutine
; samme hjemkaldelse for reserverede og ikke reserverede
; hjemkaldelsesstatus 99 slettes.
2 udhjemk1 ; mellemfilen udhjemk1 skal også findes ved omkørsel
; udl <bb*> ;her skrives evt liste over afdelinger
; status ååmmdd-over res alm
; -------------------------------------------------------------------------
0 1 1 1 ; 1 dag over lånetid
1 30 2 2 ; 30 dage over lånetid
2 (2 0) 3 3 ; 2 mdr over lånetid
3 (3 0) 4 4 ; 3 mdr over lånetid
99 0 -1 -1 ; tabt, slettes
*
; 4: sortering af mellemfilen. obs: kan udelades ved enkeltvis udskrivning
1 sorthjemk1 udhjemk1; begge er til udskrivning med formater uden rykkerdato
*
; 4: hjemkaldelsesrutine for reserverede - *** opdaterende rutine
; lån med start hjemkaldelsesstatus 0 hjemkaldes kun når der er reservation.
; lån med start hjemkaldelsesstatus 10 hjemkaldes efter lånetid.
; rykning fortsætter når første rykker er sendt ud, uanset om
; reservationen er slettet i mellemtiden. Uerholdelige lån slettes.
2 udhjemk2 ;mellemfilen udhjemk2 skal også findes ved omkørsel
; af1 af2 <111> ; her skrives evt liste over afdelinger
; aktuel dage ny-status ryk hist
; status over res alm dage dato
; -------------------------------------------------------------------------
0 1 1 0 10 ;rykkes efter 10 dage
1 11 2 2 10 (1) ;do., gem dags dato som histdato 1
2 21 3 3 10 (2) ;do., gem dags dato som histdato 2
3 31 4 4 10 ;ryk dage kun til udskrivning
10 1 11 11 10 ;rykkes efter 10 dage
11 11 12 12 10 (1) ;do., gem dags dato som histdato 1
12 21 13 13 10 (2) ;do., gem dags dato som histdato 2
13 31 14 14 10 ;ryk dage kun til udskrivning
99 0 -1 -1 ;uerholdelig, slettes
*
; sortering af mellemfilen. obs: kan udelades ved enkeltvis udskrivning
1 sorthjemk2 udhjemk2 ; begge kan udskrives med formater med rykkerdato
*
; 5: udskrivning af separate hjemkaldelser
; obs: bisp formaterne forudsætter at rykkerdato er sat i trimningen.
; ved udskrivning af mellemfiler dannet af trimmeforslag nr. 3 skal
; bisp formaterne ændres, eller rykkerdato skal ind i trimningen.
3 printer udhjemk2 hjemhoved <> hjemkvit 9999 ; 9999 af hensyn til syntaksen
; af1 <111> ;her skrives evt. liste over afdelinger
1 hjem(1) ;første hjemkaldelse
2 hjem(2) ;anden hjemkaldelse
3 hjem(3) ;tredie hjemkaldelse
; fjerde hjemkaldelse sendes ikke, men kommer på hjemkaldelsesliste
*
\f
; 6: udskrivning af hjemkaldelsesbreve med flere hjemkaldelser (uden ryk dato)
; mellemfilen skal være sorteret
; fjerde hjemkaldelser sendes hver for sig
3 printer sorthjemk1 hjemhoved nyside hjemkvit 44 6
; nyside er til sideskift i det enkelte brev (efter 44 linier)
; af1 <111> ;her skrives evt. liste over afdelinger
; hjemk ........bispformat for............
; status nylåner sammelåner sammestatus
; -----------------------------------------------------------------------------
1 brev hjembloka(1) hjemlinie ;første hjemkaldelse
2 brev hjembloka(2) hjemlinie ;anden hjemkaldelse
3 brev hjemblok (3) hjemlinie ;tredie hjemkaldelse
4 hjem(4) hjem(4) hjem(4) ;fjerde hjemkaldelse, separat brev
*
; 7: udskrivning af hjemkaldelsesbreve med flere hjemkaldelser (med ryk dato)
; mellemfilen skal være sorteret
; fjerde hjemkaldelser sendes hver for sig
3 printer sorthjemk2 hjemhoved nyside hjemkvit 44 6
; nyside er til sideskift i det enkelte brev (efter 44 linier)
; af1 <111> ;her skrives evt. liste over afdelinger
; hjemk ........bispformat for............
; status nylåner sammelåner sammestatus
; -----------------------------------------------------------------------------
1 brev hjemblokb(1) hjemlinie ;første hjemkaldelse
2 brev hjemblokb(2) hjemlinie ;anden hjemkaldelse
3 brev hjemblok (3) hjemlinie ;tredie hjemkaldelse
4 hjem(4) hjem(4) hjem(4) ;fjerde hjemkaldelse, separat brev
*
; 8: hjemkaldelsesliste
3 lp sorthjemk1 hjemside(1) hjemside(2) stdkvit 44 6
; nylåner sammelåner
; -----------------------
1 hjemliste hjemliste (1)
2 hjemliste hjemliste(2)
3 hjemliste hjemliste(3)
4 hjemliste hjemliste(4)
*
\f
; 9: udskrivning af breve med både hjemkaldelser og hjemkomstmeddelelser
; først udtrækkes hjemkomstmeddelelserne fra efterbehandlingskøen
4 udeftb; opdaterer efterbehandlingskøen (gentages ikke ved omkørsel)
; (1 A) (2 A); evt. liste over arbejdspladser
; udtræk gange før bevares afh.før
; type udtrukket slettes dage
;-------------------------------------------------------------------------
101 1 0 5 ;type 101 er selve reservationen
102 1 0 ;type 102 er alternative reservationer
;øvrige typer udtrækkes ikke til breve
*
1 udflet (udhjemk2.udeftb) ; mellemfiler flettes og sorteres
*
; til sidst udskrives den flettede og sorterede mellemfil
3 printer udflet <> nyside stdkvit 44 6
; nyside er til sideskift i det enkelte brev (efter 44 linier)
; status ........bispformat for............
; /type nylåner sammelåner sammestatus
; --------------------------------------------------------------------------
1 brev hjemblokb(1) hjemlinie ;første hjemkaldelse
2 brev hjemblokb(2) hjemlinie ;anden hjemkaldelse
3 brev hjemblok (3) hjemlinie ;tredie hjemkaldelse
101 brev eftbblok (1) eftblinie ;hjemkommet reservation
102 brev eftbblok (2) eftblinie ;slettet alternativ reservation
*
\f
; 10: oprydning i efterbehandlingskøen (adskilt fra udskrivning)
4 aaa ;mellemfilen kasseres efter kørsel
; 101 1 -1; bruges hvis der ikke udskrives hjemkomstmeddelelser
; 102 1 -1; do.
103 1 -1; eks. uden reservation
104 1 -1; ukendte
101 2 -1; sletning efter hjemkomstmeddelelse er udskrevet
102 2 -1; do.
*
; 11: gentagelse af efterbehandlingsliste.
; alle bunker for arbejdsplads A i udlånsstation 1, som er udtrukket 1 gang
4 udeftb
(1 A)
; antal slet afhent
; udtræk ikke dage
; -----------------------------------------------------------------------
101 1 0 5 ;effektuerede reservationer
102 1 0 ;slettede alternative reservationer
103 1 0 ;eksemplarer uden reservation
104 1 0 ;ukendte eksemplarer
*
3 printer udeftb eftb(5) <> eftb(7) 9999
101 eftb(1)
102 eftb(2)
103 eftb(3)
104 eftb(4)
*
\f
; 12: gennemgang af bestillinger og reservationer - *** opdaterende rutine
7 udcheckres ; mellemfilen udcheckres skal også findes ved omkørsel
5 1 (2 0)
; bestillinger udtrækkes slettes 5 dage efter bestillingsdato
; reservationer udtrækkes slettes 1 dag efter interessedato
; reservationer udtrækkes 2 måneder efter reservationsdato
*
; 13: udskrivning af bestillinger og reservationer
1 udsort udcheckres; mellemfilen sorteres
*
; først udskrives de slettede bestillinger/reservationer
3 printer udsort sletover(1) sletover(2) stdkvit 46 6
; afd bib ; evt. liste over afdelinger
; nylåner sammelåner sammestatus
;------------------------------------
201 låner bestblok bestlinie
202 låner resblok reslinie
*
; derefter de reservationer som er udtrukket på grund af alder
3 printer udsort resover(1) resover(2) stdkvit 46 6
; afd bib ; evt. liste over afdelinger
; nylåner sammelåner sammestatus
; ------------------------------------
203 låner resblok reslinie
*
\f
; 14: reservationsstatistik og kontrol af materialetype vs. reservationsgrad
;
;udtræk 1: reserverbare enheder med høj reservationsprocent
; 2: eksemplarer hvis materialetype ikke svarer til reservationsprocent
8 mfil
;udv ju ;evt. liste over afdelinger
;mat.type tilladt respct udskrivningskode
;(fra-til) (min - max) for afvigende eks.
( - 1 ) ( - 400) 1
2 ( - 100) 1
( 3 - ) (400 - ) 1
;
;uanset om der er eksemplarer med afvigende reservationsprocent udtrækkes
; - alle reservationer hvortil der ikke findes eksemplarer
- - 3
; - alle reserverbare enheder hvis reservationsprocent er over 200
- ( - 200) 2
*
; obs: sortering af mfil er ikke meningsfuld
; udskrivning af eks hvis materialetype ikke svarer til reservationsprocent
3 printer mfil mangeresa(1) mangeresa(2) stdkvit 44 0
;udsk.type normal samme-res-enhed
1 restæl1 restæl2
*
; udskrivning af reservationsstatistik, som både omfatter meget reserveret
; materiale (res% over 200) og eksemplarer med afvigende materialetype
3 printer mfil resstatov(1) resstatov(2) stdkvit 44 3
;udsk.type normal samme-res-end samme-udsk-type
1 resstata resstata(2) resstata(3)
2 resstatb resstatb(2)
3 resstatc
*
▶EOF◀