|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 10752 (0x2a00)
Notes: FORM36, MEMBER_O
Names: »#QD@XHLP«
└─⟦631246a38⟧ Bits:30009808 REF.NO PWG83 PGM 5727-QU6 FEAT9074 QUERY/36 DA Z250-0037-2 REL/LEV 05.01 SEQ. 1/3 DISKET 2S 96TPI INTERNAL 88.01.08 31
└─⟦f1f1d2fe7⟧
└─⟦this⟧ ».#QD@XHLP«
FormPointer36 {name=»QDHLPE01«, f1=0x00, start=0x0002, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
03│ │
04│ │
05│BESKRIVELSE: │
06│ │
07│ Query/36 dataindtastnings-funktionen giver mulighed for at tilf¦je/{ndre │
08│ data i en datafil, som er linket til en fil-definition oprettet ved hj{lp │
09│ af IDDU. │
10│ │
11│ F¦lgende funktioner kan udf¦res: │
12│ │
13│ - Oprette (tilf¦je eller indskyde) nye records i en fil │
14│ - tilf¦je nye records i slutningen af filen │
15│ - indskyde nye records imellem records, der allerede findes i filen, │
16│ eller efter den sidste record i filen. │
17│ │
18│ - Opdatere ({ndre) records, der allerede findes i filen. │
19│ │
20│ - Markere records, der skal slettes fra filen. │
21│ │
22│ │
23│Enter=Slut p} hj{lp Roll taster=Ny side │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»QDHLPE02«, f1=0x00, start=0x000a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
03│ │
04│Kommandotaster: Beskrivelse: │
05│ │
06│ Cmd3 Udv{lg et bestemt recordformat │
07│ Cmd5 Ignorer det indtastede - vis den foreg}ende record │
08│ Cmd7 Afslut dataindtastning │
09│ Cmd9 Tilstanden {ndres til "Indskyd" │
10│ Cmd10 Tilstanden {ndres til "Tilf¦j" │
11│ Cmd11 Tilstanden {ndres til "Opdater" │
12│ Cmd12 Opdater en record - selv om den indeholder fejl │
13│ Roll Op/Ned Vis n{ste/foreg}ende record │
14│ │
15│ Bem{rk: Brug tasten Field Exit, n}r numeriske felter forlades. Dette sikrer, │
16│ at data h¦jrestilles i feltet. Til felter med negativ v{rdi benyttes │
17│ tasten Field -, der inds{tter et negativt fortegn i slutningen af │
18│ tallet. │
19│ │
20│ │
21│ │
22│ │
23│Enter=Slut p} hj{lp Roll taster=Ny side │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»QDHLPE03«, f1=0x00, start=0x0012, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
03│ │
04│Sletning af records: │
05│ │
06│ Der skal v{lges en slettekode, et slettefelt og en sletteposition s}ledes at: │
07│ 1) Feltet findes i alle formater. │
08│ 2) Feltet findes p} den samme position i hvert format. │
09│ 3) Koden m} aldrig kunne forekomme i det valgte felt │
10│ (benyt f.eks. "+" i et felt, der indeholder efternavn). │
11│ │
12│ En record markeres for sletning ved at skrive slettekoden i slette- │
13│ positionen for det valgte slettefelt. Hvis f.eks. slettefeltet er │
14│ "Efternavn", koden er "+" og positionen er "1", indtastes "+" i den │
15│ f¦rste position af feltet "Efternavn". │
16│ │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│Enter=Slut p} hj{lp Roll taster=Ny side │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»QDHLPE04«, f1=0x00, start=0x001a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
03│ │
04│ Sletning af records: │
05│ │
06│ N}r der kun er et enkelt recordformat i fil-definitionen slettes de │
07│ records, som er markeret for sletning, p} f¦lgende m}de: │
08│ 1) Opret en query, der udv{lger alle de records i filen, │
09│ som IKKE indeholder slettekoden i slettefeltets │
10│ sletteposition (i eksemplet et "+" i den f¦rste position │
11│ af efternavnet), og lad denne query danne en ny fil heraf. │
12│ 2) K¦r query. │
13│ 3) Slet den gamle fil. │
14│ 4) Giv den nye fil, der kun indeholder de ¦nskede records, │
15│ den gamle fils navn. │
16│ 5) Link den nye fil til den rigtige fil-definition. │
17│ │
18│ │
19│ │
20│ │
21│ │
22│ │
23│Enter=Slut p} hj{lp Roll taster=Ny side │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
FormPointer36 {name=»QDHLPE05«, f1=0x00, start=0x0022, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
┌────────────────────────────────────────────────────────────────────────────────┐
00│ │
01│ │
02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
03│ │
04│ Sletning af records: │
05│ │
06│ N}r der er flere recordformater i fil-definitionen, slettes de records, │
07│ som er markeret for sletning, p} f¦lgende m}de: │
08│ 1) Brug proceduren COPYDATA til at kopiere den fil, der │
09│ indeholder markeringerne for sletning. Giv kopien et │
10│ nyt navn og benyt parametrene REORG og OMIT (som │
11│ fort{ller systemet, at der ikke i den nye fil skal │
12│ medtages records, som er markeret for sletning │
13│ i den gamle fil). │
14│ 2) Link den nye fil til den samme fil-definition, som den │
15│ gamle fil var linket til. │
16│ 3) Slet den gamle fil. │
17│ 4) Giv den nye fil navnet fra den gamle fil. │
18│ │
19│ │
20│ │
21│ │
22│ │
23│Enter=Slut p} hj{lp Roll taster=Ny side │
24│ │
25│ │
26│ │
27│ │
└────────────────────────────────────────────────────────────────────────────────┘
0x0000…0078 Vector {
0x0000…0078 [0x0]: FormPointer36 {name=»QDHLPE01«, f1=0x00, start=0x0002, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x1]: FormPointer36 {name=»QDHLPE02«, f1=0x00, start=0x000a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x2]: FormPointer36 {name=»QDHLPE03«, f1=0x00, start=0x0012, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x3]: FormPointer36 {name=»QDHLPE04«, f1=0x00, start=0x001a, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x00, f9=0000000000000000}
0x0000…0078 [0x4]: FormPointer36 {name=»QDHLPE05«, f1=0x00, start=0x0022, length=0x08, f5=0x00, f6=0x00, f7=0x00, f8=0x80, f9=0000000000000000}
0x0000…0078 }
0x0078…0080 ff ff ff ff ff ff ff ff ┆ ┆
0x0080…00a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0xb…]
0x0200…0b87 Form36 {
0x0200…0b87 fh000 = 0x00 // 0x200 @0x0
0x0200…0b87 fh00 = 2200 // 0x201 @0x1
0x0200…0b87 fh01 = »NNN« // 0x203 @0x3
0x0200…0b87 fh02 = 000000 // 0x206 @0x6
0x0200…0b87 fh03 = »NNN« // 0x209 @0x9
0x0200…0b87 fh04 = 0x0028 // 0x20c @0xc
0x0200…0b87 fh05 = 0x0737 // 0x20e @0xe
0x0200…0b87 fh06 = 000080011800000000000000000000000000 // 0x210 @0x10
0x0200…0b87 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x222 @0x22
0x0200…0b87 panel = { // 0x228 @0x28
0x0200…0b87 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0200…0b87 00│ │
0x0200…0b87 01│ │
0x0200…0b87 02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
0x0200…0b87 03│ │
0x0200…0b87 04│ │
0x0200…0b87 05│BESKRIVELSE: │
0x0200…0b87 06│ │
0x0200…0b87 07│ Query/36 dataindtastnings-funktionen giver mulighed for at tilf¦je/{ndre │
0x0200…0b87 08│ data i en datafil, som er linket til en fil-definition oprettet ved hj{lp │
0x0200…0b87 09│ af IDDU. │
0x0200…0b87 10│ │
0x0200…0b87 11│ F¦lgende funktioner kan udf¦res: │
0x0200…0b87 12│ │
0x0200…0b87 13│ - Oprette (tilf¦je eller indskyde) nye records i en fil │
0x0200…0b87 14│ - tilf¦je nye records i slutningen af filen │
0x0200…0b87 15│ - indskyde nye records imellem records, der allerede findes i filen, │
0x0200…0b87 16│ eller efter den sidste record i filen. │
0x0200…0b87 17│ │
0x0200…0b87 18│ - Opdatere ({ndre) records, der allerede findes i filen. │
0x0200…0b87 19│ │
0x0200…0b87 20│ - Markere records, der skal slettes fra filen. │
0x0200…0b87 21│ │
0x0200…0b87 22│ │
0x0200…0b87 23│Enter=Slut p} hj{lp Roll taster=Ny side │
0x0200…0b87 24│ │
0x0200…0b87 25│ │
0x0200…0b87 26│ │
0x0200…0b87 27│ │
0x0200…0b87 └────────────────────────────────────────────────────────────────────────────────┘
0x0200…0b87 Panel5250 {
0x0200…0b87 at0000 = ClearUnit {esc=04, cu=40} // 0x228 @0x0
0x0200…0b87 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x22a @0x2
0x0200…0b87 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0x22e @0x6
0x0200…0b87 at0009 = » « // 0x231 @0x9
0x0200…0b87 at0058 = » HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN « // 0x280 @0x58
0x0200…0b87 at00a8 = » « // 0x2d0 @0xa8
0x0200…0b87 at00f8 = » « // 0x320 @0xf8
0x0200…0b87 at0148 = »BESKRIVELSE: « // 0x370 @0x148
0x0200…0b87 at0198 = » « // 0x3c0 @0x198
0x0200…0b87 at01e8 = » Query/36 dataindtastnings-funktionen giver mulighed for at tilf¦je/{ndre « // 0x410 @0x1e8
0x0200…0b87 at0238 = » data i en datafil, som er linket til en fil-definition oprettet ved hj{lp « // 0x460 @0x238
0x0200…0b87 at0288 = » af IDDU. « // 0x4b0 @0x288
0x0200…0b87 at02d8 = » « // 0x500 @0x2d8
0x0200…0b87 at0328 = » F¦lgende funktioner kan udf¦res: « // 0x550 @0x328
0x0200…0b87 at0378 = » « // 0x5a0 @0x378
0x0200…0b87 at03c8 = » - Oprette (tilf¦je eller indskyde) nye records i en fil « // 0x5f0 @0x3c8
0x0200…0b87 at0418 = » - tilf¦je nye records i slutningen af filen « // 0x640 @0x418
0x0200…0b87 at0468 = » - indskyde nye records imellem records, der allerede findes i filen, « // 0x690 @0x468
0x0200…0b87 at04b8 = » eller efter den sidste record i filen. « // 0x6e0 @0x4b8
0x0200…0b87 at0508 = » « // 0x730 @0x508
0x0200…0b87 at0558 = » - Opdatere ({ndre) records, der allerede findes i filen. « // 0x780 @0x558
0x0200…0b87 at05a8 = » « // 0x7d0 @0x5a8
0x0200…0b87 at05f8 = » - Markere records, der skal slettes fra filen. « // 0x820 @0x5f8
0x0200…0b87 at0648 = » « // 0x870 @0x648
0x0200…0b87 at0698 = » « // 0x8c0 @0x698
0x0200…0b87 at06e8 = »Enter=Slut p} hj{lp Roll taster=Ny side « // 0x910 @0x6e8
0x0200…0b87 }
0x0200…0b87 }
0x0200…0b87 }
0x0a00…1b87 Form36 {
0x0a00…1b87 fh000 = 0x00 // 0xa00 @0x0
0x0a00…1b87 fh00 = 2200 // 0xa01 @0x1
0x0a00…1b87 fh01 = »NNN« // 0xa03 @0x3
0x0a00…1b87 fh02 = 000000 // 0xa06 @0x6
0x0a00…1b87 fh03 = »NNN« // 0xa09 @0x9
0x0a00…1b87 fh04 = 0x0028 // 0xa0c @0xc
0x0a00…1b87 fh05 = 0x0737 // 0xa0e @0xe
0x0a00…1b87 fh06 = 000080011800000000000000000000000000 // 0xa10 @0x10
0x0a00…1b87 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0xa22 @0x22
0x0a00…1b87 panel = { // 0xa28 @0x28
0x0a00…1b87 ┌────────────────────────────────────────────────────────────────────────────────┐
0x0a00…1b87 00│ │
0x0a00…1b87 01│ │
0x0a00…1b87 02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
0x0a00…1b87 03│ │
0x0a00…1b87 04│Kommandotaster: Beskrivelse: │
0x0a00…1b87 05│ │
0x0a00…1b87 06│ Cmd3 Udv{lg et bestemt recordformat │
0x0a00…1b87 07│ Cmd5 Ignorer det indtastede - vis den foreg}ende record │
0x0a00…1b87 08│ Cmd7 Afslut dataindtastning │
0x0a00…1b87 09│ Cmd9 Tilstanden {ndres til "Indskyd" │
0x0a00…1b87 10│ Cmd10 Tilstanden {ndres til "Tilf¦j" │
0x0a00…1b87 11│ Cmd11 Tilstanden {ndres til "Opdater" │
0x0a00…1b87 12│ Cmd12 Opdater en record - selv om den indeholder fejl │
0x0a00…1b87 13│ Roll Op/Ned Vis n{ste/foreg}ende record │
0x0a00…1b87 14│ │
0x0a00…1b87 15│ Bem{rk: Brug tasten Field Exit, n}r numeriske felter forlades. Dette sikrer, │
0x0a00…1b87 16│ at data h¦jrestilles i feltet. Til felter med negativ v{rdi benyttes │
0x0a00…1b87 17│ tasten Field -, der inds{tter et negativt fortegn i slutningen af │
0x0a00…1b87 18│ tallet. │
0x0a00…1b87 19│ │
0x0a00…1b87 20│ │
0x0a00…1b87 21│ │
0x0a00…1b87 22│ │
0x0a00…1b87 23│Enter=Slut p} hj{lp Roll taster=Ny side │
0x0a00…1b87 24│ │
0x0a00…1b87 25│ │
0x0a00…1b87 26│ │
0x0a00…1b87 27│ │
0x0a00…1b87 └────────────────────────────────────────────────────────────────────────────────┘
0x0a00…1b87 Panel5250 {
0x0a00…1b87 at0000 = ClearUnit {esc=04, cu=40} // 0xa28 @0x0
0x0a00…1b87 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0xa2a @0x2
0x0a00…1b87 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0xa2e @0x6
0x0a00…1b87 at0009 = » « // 0xa31 @0x9
0x0a00…1b87 at0058 = » HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN « // 0xa80 @0x58
0x0a00…1b87 at00a8 = » « // 0xad0 @0xa8
0x0a00…1b87 at00f8 = »Kommandotaster: Beskrivelse: « // 0xb20 @0xf8
0x0a00…1b87 at0148 = » « // 0xb70 @0x148
0x0a00…1b87 at0198 = » Cmd3 Udv{lg et bestemt recordformat « // 0xbc0 @0x198
0x0a00…1b87 at01e8 = » Cmd5 Ignorer det indtastede - vis den foreg}ende record « // 0xc10 @0x1e8
0x0a00…1b87 at0238 = » Cmd7 Afslut dataindtastning « // 0xc60 @0x238
0x0a00…1b87 at0288 = » Cmd9 Tilstanden {ndres til "Indskyd" « // 0xcb0 @0x288
0x0a00…1b87 at02d8 = » Cmd10 Tilstanden {ndres til "Tilf¦j" « // 0xd00 @0x2d8
0x0a00…1b87 at0328 = » Cmd11 Tilstanden {ndres til "Opdater" « // 0xd50 @0x328
0x0a00…1b87 at0378 = » Cmd12 Opdater en record - selv om den indeholder fejl « // 0xda0 @0x378
0x0a00…1b87 at03c8 = » Roll Op/Ned Vis n{ste/foreg}ende record « // 0xdf0 @0x3c8
0x0a00…1b87 at0418 = » « // 0xe40 @0x418
0x0a00…1b87 at0468 = » Bem{rk: Brug tasten Field Exit, n}r numeriske felter forlades. Dette sikrer, « // 0xe90 @0x468
0x0a00…1b87 at04b8 = » at data h¦jrestilles i feltet. Til felter med negativ v{rdi benyttes « // 0xee0 @0x4b8
0x0a00…1b87 at0508 = » tasten Field -, der inds{tter et negativt fortegn i slutningen af « // 0xf30 @0x508
0x0a00…1b87 at0558 = » tallet. « // 0xf80 @0x558
0x0a00…1b87 at05a8 = » « // 0xfd0 @0x5a8
0x0a00…1b87 at05f8 = » « // 0x1020 @0x5f8
0x0a00…1b87 at0648 = » « // 0x1070 @0x648
0x0a00…1b87 at0698 = » « // 0x10c0 @0x698
0x0a00…1b87 at06e8 = »Enter=Slut p} hj{lp Roll taster=Ny side « // 0x1110 @0x6e8
0x0a00…1b87 }
0x0a00…1b87 }
0x0a00…1b87 }
0x1200…2b87 Form36 {
0x1200…2b87 fh000 = 0x00 // 0x1200 @0x0
0x1200…2b87 fh00 = 2200 // 0x1201 @0x1
0x1200…2b87 fh01 = »NNN« // 0x1203 @0x3
0x1200…2b87 fh02 = 000000 // 0x1206 @0x6
0x1200…2b87 fh03 = »NNN« // 0x1209 @0x9
0x1200…2b87 fh04 = 0x0028 // 0x120c @0xc
0x1200…2b87 fh05 = 0x0737 // 0x120e @0xe
0x1200…2b87 fh06 = 000080011800000000000000000000000000 // 0x1210 @0x10
0x1200…2b87 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1222 @0x22
0x1200…2b87 panel = { // 0x1228 @0x28
0x1200…2b87 ┌────────────────────────────────────────────────────────────────────────────────┐
0x1200…2b87 00│ │
0x1200…2b87 01│ │
0x1200…2b87 02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
0x1200…2b87 03│ │
0x1200…2b87 04│Sletning af records: │
0x1200…2b87 05│ │
0x1200…2b87 06│ Der skal v{lges en slettekode, et slettefelt og en sletteposition s}ledes at: │
0x1200…2b87 07│ 1) Feltet findes i alle formater. │
0x1200…2b87 08│ 2) Feltet findes p} den samme position i hvert format. │
0x1200…2b87 09│ 3) Koden m} aldrig kunne forekomme i det valgte felt │
0x1200…2b87 10│ (benyt f.eks. "+" i et felt, der indeholder efternavn). │
0x1200…2b87 11│ │
0x1200…2b87 12│ En record markeres for sletning ved at skrive slettekoden i slette- │
0x1200…2b87 13│ positionen for det valgte slettefelt. Hvis f.eks. slettefeltet er │
0x1200…2b87 14│ "Efternavn", koden er "+" og positionen er "1", indtastes "+" i den │
0x1200…2b87 15│ f¦rste position af feltet "Efternavn". │
0x1200…2b87 16│ │
0x1200…2b87 17│ │
0x1200…2b87 18│ │
0x1200…2b87 19│ │
0x1200…2b87 20│ │
0x1200…2b87 21│ │
0x1200…2b87 22│ │
0x1200…2b87 23│Enter=Slut p} hj{lp Roll taster=Ny side │
0x1200…2b87 24│ │
0x1200…2b87 25│ │
0x1200…2b87 26│ │
0x1200…2b87 27│ │
0x1200…2b87 └────────────────────────────────────────────────────────────────────────────────┘
0x1200…2b87 Panel5250 {
0x1200…2b87 at0000 = ClearUnit {esc=04, cu=40} // 0x1228 @0x0
0x1200…2b87 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x122a @0x2
0x1200…2b87 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0x122e @0x6
0x1200…2b87 at0009 = » « // 0x1231 @0x9
0x1200…2b87 at0058 = » HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN « // 0x1280 @0x58
0x1200…2b87 at00a8 = » « // 0x12d0 @0xa8
0x1200…2b87 at00f8 = »Sletning af records: « // 0x1320 @0xf8
0x1200…2b87 at0148 = » « // 0x1370 @0x148
0x1200…2b87 at0198 = » Der skal v{lges en slettekode, et slettefelt og en sletteposition s}ledes at: « // 0x13c0 @0x198
0x1200…2b87 at01e8 = » 1) Feltet findes i alle formater. « // 0x1410 @0x1e8
0x1200…2b87 at0238 = » 2) Feltet findes p} den samme position i hvert format. « // 0x1460 @0x238
0x1200…2b87 at0288 = » 3) Koden m} aldrig kunne forekomme i det valgte felt « // 0x14b0 @0x288
0x1200…2b87 at02d8 = » (benyt f.eks. "+" i et felt, der indeholder efternavn). « // 0x1500 @0x2d8
0x1200…2b87 at0328 = » « // 0x1550 @0x328
0x1200…2b87 at0378 = » En record markeres for sletning ved at skrive slettekoden i slette- « // 0x15a0 @0x378
0x1200…2b87 at03c8 = » positionen for det valgte slettefelt. Hvis f.eks. slettefeltet er « // 0x15f0 @0x3c8
0x1200…2b87 at0418 = » "Efternavn", koden er "+" og positionen er "1", indtastes "+" i den « // 0x1640 @0x418
0x1200…2b87 at0468 = » f¦rste position af feltet "Efternavn". « // 0x1690 @0x468
0x1200…2b87 at04b8 = » « // 0x16e0 @0x4b8
0x1200…2b87 at0508 = » « // 0x1730 @0x508
0x1200…2b87 at0558 = » « // 0x1780 @0x558
0x1200…2b87 at05a8 = » « // 0x17d0 @0x5a8
0x1200…2b87 at05f8 = » « // 0x1820 @0x5f8
0x1200…2b87 at0648 = » « // 0x1870 @0x648
0x1200…2b87 at0698 = » « // 0x18c0 @0x698
0x1200…2b87 at06e8 = »Enter=Slut p} hj{lp Roll taster=Ny side « // 0x1910 @0x6e8
0x1200…2b87 }
0x1200…2b87 }
0x1200…2b87 }
0x1a00…3b87 Form36 {
0x1a00…3b87 fh000 = 0x00 // 0x1a00 @0x0
0x1a00…3b87 fh00 = 2200 // 0x1a01 @0x1
0x1a00…3b87 fh01 = »NNN« // 0x1a03 @0x3
0x1a00…3b87 fh02 = 000000 // 0x1a06 @0x6
0x1a00…3b87 fh03 = »NNN« // 0x1a09 @0x9
0x1a00…3b87 fh04 = 0x0028 // 0x1a0c @0xc
0x1a00…3b87 fh05 = 0x0737 // 0x1a0e @0xe
0x1a00…3b87 fh06 = 000080011800000000000000000000000000 // 0x1a10 @0x10
0x1a00…3b87 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x1a22 @0x22
0x1a00…3b87 panel = { // 0x1a28 @0x28
0x1a00…3b87 ┌────────────────────────────────────────────────────────────────────────────────┐
0x1a00…3b87 00│ │
0x1a00…3b87 01│ │
0x1a00…3b87 02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
0x1a00…3b87 03│ │
0x1a00…3b87 04│ Sletning af records: │
0x1a00…3b87 05│ │
0x1a00…3b87 06│ N}r der kun er et enkelt recordformat i fil-definitionen slettes de │
0x1a00…3b87 07│ records, som er markeret for sletning, p} f¦lgende m}de: │
0x1a00…3b87 08│ 1) Opret en query, der udv{lger alle de records i filen, │
0x1a00…3b87 09│ som IKKE indeholder slettekoden i slettefeltets │
0x1a00…3b87 10│ sletteposition (i eksemplet et "+" i den f¦rste position │
0x1a00…3b87 11│ af efternavnet), og lad denne query danne en ny fil heraf. │
0x1a00…3b87 12│ 2) K¦r query. │
0x1a00…3b87 13│ 3) Slet den gamle fil. │
0x1a00…3b87 14│ 4) Giv den nye fil, der kun indeholder de ¦nskede records, │
0x1a00…3b87 15│ den gamle fils navn. │
0x1a00…3b87 16│ 5) Link den nye fil til den rigtige fil-definition. │
0x1a00…3b87 17│ │
0x1a00…3b87 18│ │
0x1a00…3b87 19│ │
0x1a00…3b87 20│ │
0x1a00…3b87 21│ │
0x1a00…3b87 22│ │
0x1a00…3b87 23│Enter=Slut p} hj{lp Roll taster=Ny side │
0x1a00…3b87 24│ │
0x1a00…3b87 25│ │
0x1a00…3b87 26│ │
0x1a00…3b87 27│ │
0x1a00…3b87 └────────────────────────────────────────────────────────────────────────────────┘
0x1a00…3b87 Panel5250 {
0x1a00…3b87 at0000 = ClearUnit {esc=04, cu=40} // 0x1a28 @0x0
0x1a00…3b87 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x1a2a @0x2
0x1a00…3b87 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0x1a2e @0x6
0x1a00…3b87 at0009 = » « // 0x1a31 @0x9
0x1a00…3b87 at0058 = » HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN « // 0x1a80 @0x58
0x1a00…3b87 at00a8 = » « // 0x1ad0 @0xa8
0x1a00…3b87 at00f8 = » Sletning af records: « // 0x1b20 @0xf8
0x1a00…3b87 at0148 = » « // 0x1b70 @0x148
0x1a00…3b87 at0198 = » N}r der kun er et enkelt recordformat i fil-definitionen slettes de « // 0x1bc0 @0x198
0x1a00…3b87 at01e8 = » records, som er markeret for sletning, p} f¦lgende m}de: « // 0x1c10 @0x1e8
0x1a00…3b87 at0238 = » 1) Opret en query, der udv{lger alle de records i filen, « // 0x1c60 @0x238
0x1a00…3b87 at0288 = » som IKKE indeholder slettekoden i slettefeltets « // 0x1cb0 @0x288
0x1a00…3b87 at02d8 = » sletteposition (i eksemplet et "+" i den f¦rste position « // 0x1d00 @0x2d8
0x1a00…3b87 at0328 = » af efternavnet), og lad denne query danne en ny fil heraf. « // 0x1d50 @0x328
0x1a00…3b87 at0378 = » 2) K¦r query. « // 0x1da0 @0x378
0x1a00…3b87 at03c8 = » 3) Slet den gamle fil. « // 0x1df0 @0x3c8
0x1a00…3b87 at0418 = » 4) Giv den nye fil, der kun indeholder de ¦nskede records, « // 0x1e40 @0x418
0x1a00…3b87 at0468 = » den gamle fils navn. « // 0x1e90 @0x468
0x1a00…3b87 at04b8 = » 5) Link den nye fil til den rigtige fil-definition. « // 0x1ee0 @0x4b8
0x1a00…3b87 at0508 = » « // 0x1f30 @0x508
0x1a00…3b87 at0558 = » « // 0x1f80 @0x558
0x1a00…3b87 at05a8 = » « // 0x1fd0 @0x5a8
0x1a00…3b87 at05f8 = » « // 0x2020 @0x5f8
0x1a00…3b87 at0648 = » « // 0x2070 @0x648
0x1a00…3b87 at0698 = » « // 0x20c0 @0x698
0x1a00…3b87 at06e8 = »Enter=Slut p} hj{lp Roll taster=Ny side « // 0x2110 @0x6e8
0x1a00…3b87 }
0x1a00…3b87 }
0x1a00…3b87 }
0x2200…4b87 Form36 {
0x2200…4b87 fh000 = 0x00 // 0x2200 @0x0
0x2200…4b87 fh00 = 2200 // 0x2201 @0x1
0x2200…4b87 fh01 = »NNN« // 0x2203 @0x3
0x2200…4b87 fh02 = 000000 // 0x2206 @0x6
0x2200…4b87 fh03 = »NNN« // 0x2209 @0x9
0x2200…4b87 fh04 = 0x0028 // 0x220c @0xc
0x2200…4b87 fh05 = 0x0737 // 0x220e @0xe
0x2200…4b87 fh06 = 000080011800000000000000000000000000 // 0x2210 @0x10
0x2200…4b87 at0022 = Form36LV {f00=0xfe, f01=0x06, f88=000000, f89=05} // 0x2222 @0x22
0x2200…4b87 panel = { // 0x2228 @0x28
0x2200…4b87 ┌────────────────────────────────────────────────────────────────────────────────┐
0x2200…4b87 00│ │
0x2200…4b87 01│ │
0x2200…4b87 02│ HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN │
0x2200…4b87 03│ │
0x2200…4b87 04│ Sletning af records: │
0x2200…4b87 05│ │
0x2200…4b87 06│ N}r der er flere recordformater i fil-definitionen, slettes de records, │
0x2200…4b87 07│ som er markeret for sletning, p} f¦lgende m}de: │
0x2200…4b87 08│ 1) Brug proceduren COPYDATA til at kopiere den fil, der │
0x2200…4b87 09│ indeholder markeringerne for sletning. Giv kopien et │
0x2200…4b87 10│ nyt navn og benyt parametrene REORG og OMIT (som │
0x2200…4b87 11│ fort{ller systemet, at der ikke i den nye fil skal │
0x2200…4b87 12│ medtages records, som er markeret for sletning │
0x2200…4b87 13│ i den gamle fil). │
0x2200…4b87 14│ 2) Link den nye fil til den samme fil-definition, som den │
0x2200…4b87 15│ gamle fil var linket til. │
0x2200…4b87 16│ 3) Slet den gamle fil. │
0x2200…4b87 17│ 4) Giv den nye fil navnet fra den gamle fil. │
0x2200…4b87 18│ │
0x2200…4b87 19│ │
0x2200…4b87 20│ │
0x2200…4b87 21│ │
0x2200…4b87 22│ │
0x2200…4b87 23│Enter=Slut p} hj{lp Roll taster=Ny side │
0x2200…4b87 24│ │
0x2200…4b87 25│ │
0x2200…4b87 26│ │
0x2200…4b87 27│ │
0x2200…4b87 └────────────────────────────────────────────────────────────────────────────────┘
0x2200…4b87 Panel5250 {
0x2200…4b87 at0000 = ClearUnit {esc=04, cu=40} // 0x2228 @0x0
0x2200…4b87 at0002 = WriteToDisplay {esc=04, wtd=11, flags=0x0020} // 0x222a @0x2
0x2200…4b87 at0006 = SetBufferAddress {ic=11, line=0x02, col=0x02} // 0x222e @0x6
0x2200…4b87 at0009 = » « // 0x2231 @0x9
0x2200…4b87 at0058 = » HJ#LP TIL DATAINDTASTNINGS-FUNKTIONEN « // 0x2280 @0x58
0x2200…4b87 at00a8 = » « // 0x22d0 @0xa8
0x2200…4b87 at00f8 = » Sletning af records: « // 0x2320 @0xf8
0x2200…4b87 at0148 = » « // 0x2370 @0x148
0x2200…4b87 at0198 = » N}r der er flere recordformater i fil-definitionen, slettes de records, « // 0x23c0 @0x198
0x2200…4b87 at01e8 = » som er markeret for sletning, p} f¦lgende m}de: « // 0x2410 @0x1e8
0x2200…4b87 at0238 = » 1) Brug proceduren COPYDATA til at kopiere den fil, der « // 0x2460 @0x238
0x2200…4b87 at0288 = » indeholder markeringerne for sletning. Giv kopien et « // 0x24b0 @0x288
0x2200…4b87 at02d8 = » nyt navn og benyt parametrene REORG og OMIT (som « // 0x2500 @0x2d8
0x2200…4b87 at0328 = » fort{ller systemet, at der ikke i den nye fil skal « // 0x2550 @0x328
0x2200…4b87 at0378 = » medtages records, som er markeret for sletning « // 0x25a0 @0x378
0x2200…4b87 at03c8 = » i den gamle fil). « // 0x25f0 @0x3c8
0x2200…4b87 at0418 = » 2) Link den nye fil til den samme fil-definition, som den « // 0x2640 @0x418
0x2200…4b87 at0468 = » gamle fil var linket til. « // 0x2690 @0x468
0x2200…4b87 at04b8 = » 3) Slet den gamle fil. « // 0x26e0 @0x4b8
0x2200…4b87 at0508 = » 4) Giv den nye fil navnet fra den gamle fil. « // 0x2730 @0x508
0x2200…4b87 at0558 = » « // 0x2780 @0x558
0x2200…4b87 at05a8 = » « // 0x27d0 @0x5a8
0x2200…4b87 at05f8 = » « // 0x2820 @0x5f8
0x2200…4b87 at0648 = » « // 0x2870 @0x648
0x2200…4b87 at0698 = » « // 0x28c0 @0x698
0x2200…4b87 at06e8 = »Enter=Slut p} hj{lp Roll taster=Ny side « // 0x2910 @0x6e8
0x2200…4b87 }
0x2200…4b87 }
0x2200…4b87 }