cA703 ;Bestand inlezen ;%A703 ;overlay %A704 ; [ 01/04/01 2:57 PM ] G 1 ; T0 ;Bestand inlezen ; T1 ;Station voor het bestand\"a of b[] = floppy c, d, ..., of z[] = harde schijf; .[] = netwerk; T2 ;Directory of path\"[] = root (hoofd-directory) xxxxxxxx[] = bepaalde directory",!?2,"dir1/dir2/.../dirn[] = path"; T3 ;Bestandsnaam\"xxxxxxxx of xxxxxxxx.xxx[] = naam"; T5 ;Dit bestand is gereserveerd\".[] = keuze bestand ok -[] = ander bestand"; T6 ;Nummer bestand\"xx[] = volgnummer bestand ,[] = hernemen"; T7 ;Mag het vorig bestand overschreven worden\",[] = hernemen V[] = definitief verwijderen vorig bestand"; T8 ;Omschrijving\"nieuwe omschrijving voor het in te lezen bestand"; T9 ;Het formaat ; T10 ;Ingelezen bestand = ; T11 ;Het bestand mag ingelezen worden\".[] = ok ,[] = hernemen"; T12 ;U kan geen ms-dos bestand inlezen via dit scherm; T13 ;Plaats de floppy in het station\".[] = ok ,[] = hernemen"; T14 ;hoofdscherm ;1;27;OL;OM;OC; T15 ;mirror/xtalk ;2;27;XT;XU;XX; T16 ;procomm+ v1.1b ;3;27,94;PR;PS; T17 ;procomm+ v2.0 ;4;4;PT;PU; T18 ;reflection ;5;27,38,111,67;RF;RG;RW; T19 ;Path\"drive:/dir1/dir2/...[] = lokale pc //computernaam/dir1/...[] = netwerk"; T20 ;Path\"drive:/dir1/dir2/...[] = server //computernaam/dir1/...[] = netwerk"; ; T0F ;Importation d'un fichier ; T1F ;Station du fichier\"a ou b[] = disquette c, d, ..., ou z[] = disque dure; .[] = réseau; T2F ;Répertoire\"[] = root (répertoire principale) xxxxxxxx[] = répertoire spécifique",!?2,"rép1/rép2/.../répn[] = path"; T3F ;Nom du fichier\"xxxxxxxx ou xxxxxxxx.xxx[] = nom"; T5F ;Ce fichier est réservé\".[] = choix fichier ok -[] = autre fichier"; T6F ;Numéro du fichier\"xx[] = n° du fichier ,[] = reprendre"; T7F ;L'ancien fichier peut être transcrit\",[] = reprendre V[] = effacer définitivement le fichier existant"; T8F ;Description\"nouvelle description pour le fichier à importer"; T9F ;Format ; T10F ;Fichier importé = ; T11F ;Le fichier peut être importé\".[] = oui ,[] = reprendre"; T12F ;Impossible d'importer des fichiers par cet écran; T13F ;Mettez la disquette dans la station\".[] = ok ,[] = reprendre"; T14F ;hoofdscherm ;1;27;OL;OM;OC; T15F ;mirror/xtalk ;2;27;XT;XU;XX; T16F ;procomm+ v1.1b ;3;27,94;PR;PS; T17F ;procomm+ v2.0 ;4;4;PT;PU; T18F ;reflection ;5;27,38,111,67;RF;RG;RW; T19F ;Path\"station:/rép1/rép2/...[] = PC local //nom de PC/rép1/...[] = réseau"; T20F ;Path\"station:/rép1/rép2/...[] = serveur //nom de PC/rép1/...[] = réseau"; ; T0E ;Import file ; T1E ;Drive\"a of b[] = floppy c, d, ..., of z[] = harddisk; .[] = network; T2E ;Directory or path\"[] = root (parent directory) xxxxxxxx[] = specific directory",!?2,"dir1/dir2/.../dirn[] = path"; T3E ;Filename\"xxxxxxxx of xxxxxxxx.xxx[] = naam"; T5E ;This file is reserved\".[] = choice file ok -[] = other file"; T6E ;Number file\"xx[] = number file to use ,[] = retry"; T7E ;Overwrite previous file\",[] = retry V[] = yes, remove previous file"; T8E ;Description\"new description for the file to import"; T9E ;The file type; T10E ;Imported file = ; T11E ;Import file\".[] = ok ,[] = retry"; T12E ;You cannot import files from this terminal; T13E ;Put the floppy in the drive\".[] = ok ,[] = retry"; T14E ;headscreen ;1;27;OL;OM;OC; T15E ;mirror/xtalk ;2;27;XT;XU;XX; T16E ;procomm+ v1.1b ;3;27,94;PR;PS; T17E ;procomm+ v2.0 ;4;4;PT;PU; T18E ;reflection ;5;27,38,111,67;RF;RG;RW; T19E ;Path\"drive:/dir1/dir2/...[] = local pc //computer/dir1/...[] = network"; T20E ;Path\"drive:/dir1/dir2/...[] = server //computer/dir1/...[] = network"; ; ; titel 1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 11 S B=$G(MSDOS) D S3^cA702 I $L(B) G 5 ; 2 I $P($G(^cLOG(boot,"DAM",3)),D)=1 D G YZ:K="-",4 . N UQC,USC,IREF . S $ZT="TRAP^cAN000" . D DMS^cAN000("UQC","USC","SYS.LOC") . S IREF=^DMC(UQC,USC,"DATA","INDEX") I $O(@IREF@(101,""))="" D ^cAN3250(QU) . S (LOC,K)=$$^cANSYN("SYS.LOC") Q:K="-" . S FORM=$$SIG^cAFA1("SYS.LOC",K,103) . S B=$$SIG^cAFA1("SYS.LOC",K,104) Q:'$L(B) . S B=B_"/" . D S3^cA702 . I '$$SIG^cAFA1("SYS.LOC",LOC,105) Q . S BB=$TR(B,D,"/"),SWNT=$ZV["NT"!($ZV'["MSM") . S R="BB\22\3\"_$P($T(@("T"_($ZV'["MSM"+19)_QT)),U,2)_"\68\\$E(K,1,2)?1A1"":""!($E(K,1,2)?2""/""&$L($P(K,""/"",3))&SWNT)!(K=""-"")",$P(R,D,13)=1 D R0 Q:K="-" . S B=BB,B=B_"/" D S3^cA702 ; oude manier ; drive S DR=$E(B) S:DR="" DR="C" S:DR=D DR="" S SWNT=$ZV["NT"!($ZV'["MSM") 21 S R="DR\22\3\"_$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,4-SWNT)_"""\1\\""-""[K!(K?1U)!(K="".""&SWNT)\\\1\\1" D R0 23 G YZ:K="-" S DR=$TR(DR,"."),SWNT='$L(DR) S:'SWNT DR=DR_":" S B=DR D S3^cA702 ; ; path 3 S DIR=$TR($S(SWNT:$P(B,D,1,$L(B,D)-1),1:$P($E(B,3,999),D,1,$L(B,D)-1)),D,"/") 30 ; I SWNT,DIR="" S DIR=parameter 31 S R="DIR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\50\\" D R0 G 2:K="-"!(K=",") 33 S DIR=$TR(DIR,"/",D) 35 S B=$S(SWNT:DIR,1:DR_D_DIR) D S3^cA702 ; ; file 4 S KR=$S(K="-":$P(B,D,$L(B,D)),1:"") 41 I $ZV["MSM",'SWNT S R="KR\22\3\"_$P($T(@("T3"_QT)),U,2)_"\12\\K=""-""!(K="","")!(K?1.8ANP)!(K?1.8ANP1"".""1.3ANP)\\\\\1" 43 I $ZV'["MSM"!SWNT S R="KR\22\3\"_$P($T(@("T3"_QT)),U,2)_"\30\\$L(K)\\\\\1" 45 D R0 G 2:K="-"&$P($G(^cLOG(boot,"DAM",3)),D),3:K="-",2:K="," 47 S B=$S(SWNT:DIR,1:DR_D_DIR)_D_K D S3^cA702 ; ; overzicht bestanden 5 S R="RC" D ^cA709,S3^cA702 S TNR=$G(TNR,1) I '$D(^HULP("RC",Q,TNR,0)) G 55 51 S FP=TNR*100+501 W @F," " L -^HULP("RC",Q,TNR) 53 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\2\\K<11&K!(K=""-"")!(K="","")" D R0 G 4:K="-",1:K="," S TNR=+K 55 S FP=TNR*100+501 W @F,"->" L +^HULP("RC",Q,TNR):2 E S R=14 D F2 G 51 56 I '$D(^HULP("RC",Q,TNR,0)) G 59 57 I $P(^(0),D,8) S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-.""[K&$L(K)" D R0 I K="-" G 51 58 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" G 51 59 D S4 ; ; omschrijving & formaat 6 S R="OMS\22\3\"_$P($T(@("T8"_QT)),U,2)_"\20\\$L(K)" D R0 G 51:K="-"!(K=",") D S5 61 I $G(FORM) S K=$$SGN^cAFA1("FORM",FORM,0) I $L(K) G 65 63 S FORM=$$^cANSYN("FORM") G 6:K="-" S K=^(FORM,0) 65 S FORMC=$P(K,D),NMF=$P(K,D,2),RS=$P(K,D,6),RL=$P($G(^(1)),D,4) D S6 I $L(RS) D S2 ; ; bevestiging 7 S R="K\22\3\"_$P($T(@($S("AB"[$E(B):"T13",1:"T11")_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 63:K="-",1:K=",",7:K'="." 71 D MASTER^cQ5 S SCR=U_$S($ZV'["MSM"!SWNT:"OL",1:$P(^cLOG(boot,"DEV",$g(io,$$IO^cQ5)),D))_U,A=B 73 F I=14:1:18 S X=$T(@("T"_I_QT)) I X[SCR S SCR=$P(X,U,3),X=$P(X,U,4) Q 75 S ESC="" F I=1:1:$L(X,",") S ESC=ESC_$C($P(X,",",I)) 77 S A=$TR(A,D,U) 79 S @%Q1=0,TVG=9 K ^HULP("RC",Q,TNR) S ^(TNR,0)=OMS_D_DT_D_TD_D_D_FORM_D_A_D I $G(LOC) S $P(^(0),D,10)=LOC I A["*"!(A["?") Q ; 8 I SCR B 0 D:$G(QW) X^cA612 G @$P("1^cA704\3^cA704\5^cA704\5^cA704\5^cA704\",D,SCR) 81 S K=$P($T(@("T12"_QT)),U,2) D F1 L -^HULP("RC",Q,TNR) ; YZ Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ; drive+path+file S1 D S2^cA702 S1Z Q ; ; omzetten separator S2 S S="" F S1=1:1:$L(RS) S S2=$E(RS,S1,S1+1) S:$A(S2)=94 S2=$A(S2,2)-64,S2=$S(S2=-17:28,1:S2),S2=$C(S2),S1=S1+1 S S=S_$E(S2) S2Z S RS=S K S,S1,S2 Q ; ; ingelezen bestand S4 S FP=1903 W @F,$P($T(@("T10"_QT)),U,2),TNR Q S5 D S4 W " - ",OMS,@F1 Q S6 D S5 W " (",$G(FORMC,FORM)," * ",NMF,")",@F1 Q ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08