cA700 ;OPBOUW RECORD MS-DOS ;%A700; [ 01/04/01 2:37 PM ] ; T0 ;Opbouw record ms-dos ; T1 ;Het formaat; T2 ;volgend formaat; ; T0F ;Création record ms-dos ; T1F ;Format; T2F ;format suivant; ; T0E ;Building record ms-dos ; T1E ;The file type; T2E ;next file type; ; 1 S S2="" F S1=1:1:RT S S3=$G(RT(S1)) D S2 11 S S2=S2_RS D S1 ; YZ K S1,S2,S3,RT Q ; S1 S TVG=TVG+1,^HULP("TR",Q,TNR,TVG)=S2 S1A S S0=^(0),$P(S0,D,4)=$P(S0,D,4)+1,$P(S0,D,9)=$P(S0,D,9)+$L(S2),^(0)=S0 I $G(RO) S FP=RO W @F,$J($P(S0,D,4),8) S1Z K S0 Q ; S2 I VL,$G(RL(S1)) D S3 I $G(VQ),'$G(RN(S1)) S S3=$C(34)_S3_$C(34) S2A I $L(S2)+$L(S3)+$L(VS)+$L(RS)>255 D S1 S S2="" S2Z S S2=S2_S3_VS Q ; S3 I $G(RN(S1)),$L(S3)