DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦8ab6d10b4⟧ TextFile

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »stdstatjob  «

Derivation

└─⟦da4d89bf7⟧ Bits:30002810 RC8000-ADP SW8740/1 Rel 6.2
    └─⟦3a54bc57a⟧ 
        └─⟦this⟧ »stdstatjob  «

TextFile


10 mstatf1 m

if x2=0 y40<>0 ;udlån oprettelse
type:101
2: y2 mm
3: y26
4: y28
5: xt(a)
**
if x2=0 y36<>0 y38=0; reservation oprettelse
type:102
2: y2 mm
3: y26
4: y28
5: xt(a)
6: y8
**
if x2=0 y34<>0;bestilling oprettelse
type:103
2: y2 mm
3: y26
4: y28
5: xt(a)
**
if x2<>0 y40<>0 x50<>y50 ;hjemkaldelsesstatus på lån ændret
type:104
2: y2 mm
3: y26
4: y28
5: xt(a)
6: x50           ;gl hjemkaldelsesstatus
7: y50           ;ny hjemkaldelsesstatus
**
if y6<>0 y40<>0 y42 <> 0 ;aflevering
type:105
2: y28           ;materialetype
3: y26           ;afdeling
4: y42 dn-y40 dn ;antal dage
5: y50           ;status
**
if x2=0 y40<>0 y19=0 ;udlån oprettelse bog
type:106
2:y28  ;materialetype
3:tå(b)   ;trykår fra post
**
if x2=0 y40<>0 y19<>0 ;udlån oprettelse tidsskrift
type:107
2:y28  ;materialetype
3:y19  ;trykår fra rygtitel
**
if x2=0 y40<>0 ;udlån oprettlse
type:108
2:tk(b)  ;titel fra post
3:tå(b)  ;trykår fra post
4:id(b) ;idnr fra post
**
*
11 statud mstatf1
for type = 101
if *
type: 1011 ;udlån på måned og afd
2: f4      ; materialetype
3: f2      ; måned
4: f3      ;afdeling
type: 1012 ;udlån på lånertype>
2: f4      ;materialetype
3: f5      ;lånertype
**

for type = 102
if *
type:1021  ;reservation på effektuering
2: f4      ; matx
3: f6      ;effektkode

type:1022  ; res på måned og afdeling
2: f4      ;materialetype
3: f2      ;måned
4: f3      ; afd
type:1023  ;res på lånertype>
2: f4      ;materialetype
3: f5      ;lånertype
**
for type=103
if *
type:1031  ; best på måned og afd>
2: f4      ;materialetype
3: f2      ;måned
4: f3      ;afdeling
type:1032  ;best på lånertype>
2: f4      ;materialetype
3: f5      ;lånertype
**
for type=104
if *
type:1041 ;hjemk. på måned og afd>
2: f4     ;materialetype
3: f2     ;måned
4: f3     ;afdeling
type:1042 ;hjemk. på lånertype>
2: f4     ;materialetype
3: f5     ;lånertype
type:1043 ;hjemk på før og efterstatus>
2: f4     ;materialetype
3: f6     ;før status>
4: f7     ;efterstatus
**
for type = 105
if *
type:1051 ;aflv. på antal dage>
2: f2     ;materialetype
3: f4     ;<antal dage>
type:1052 ;aflv. på dage afd status>
2: f2     ;materialetype
3: f4     ;<antal dage>
4: f3     ;afdeling
5: f5     ;status
**
*
12 lp statud ov1011 os1011 
1011 ud1011
*
12 lp statud ov1012
1012 ud1012
*
12 lp statud ov1021
1021 ud1021
*
12 lp statud ov1022
1022 ud1022
*
12 lp statud ov1023 
1023 ud1023
*
12 lp statud ov1031
1031 ud1031
*
12 lp statud ov1032 
1032 ud1032
*
12 lp statud ov1041
1041 ud1041
*
12 lp statud ov1042 
1042 ud1042
*
12 lp statud ov1043 
1043 ud1043
*
12 lp statx ov106
106 ud106
*
12 lp statx ov107
107 ud107
*
12 lp statx ov108
108 ud108
*
▶EOF◀