STANDARD DATA DICTIONARY #4.5 -- NETWORK TRANSACTION FILE 6/27/25 PAGE 1
STORED IN ^XMB(4.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is not currently in use by MailMan. It is still distributed because there may be local sites that have software that
uses it.
CROSS
REFERENCED BY: NAME(B), IDENTIFIER(C)
4.5,.01 NAME 0;1 (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE: 4.5^B
1)= S ^XMB(4.5,"B",$E(X,1,30),DA)=""
2)= K ^XMB(4.5,"B",$E(X,1,30),DA)
4.5,1 IDENTIFIER 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X
HELP-PROMPT: The identifier from the delivery text header
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE: 4.5^C
1)= S ^XMB(4.5,"C",$E(X,1,30),DA)=""
2)= K ^XMB(4.5,"C",$E(X,1,30),DA)
4.5,2 PREPROCESSING LOGIC 1;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM
HELP-PROMPT: Logic to be invoked before transaction is passed on
DESCRIPTION:
This file is obsolete.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.5,3 POSTPROCESSING LOGIC 2;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM
HELP-PROMPT: Logic to be invoked after transaction is passed on
DESCRIPTION:
This file is obsolete.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.5,4 RECIPIENT 3;0 Multiple #4.51
DESCRIPTION:
This file is obsolete.
4.51,.01 RECIPIENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<2) X
HELP-PROMPT: Enter names of recipients and their routing information
DESCRIPTION:
This field is obsolete.
4.5,5 RECORD TYPE SELECTOR 4;E1,200 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM
HELP-PROMPT: Logic to determine which record to use
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.5,6 RECORD 5;0 Multiple #4.52
DESCRIPTION:
This file is obsolete.
4.52,.01 RECORD 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 15, 1985
HELP-PROMPT: Enter the name of the record
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE: 4.52^B
1)= S ^XMB(4.5,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^XMB(4.5,DA(1),5,"B",$E(X,1,30),DA)
4.52,1 FIELD 1;0 Multiple #4.53
DESCRIPTION:
This file is obsolete.
4.53,.01 FIELD NAME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Enter the FileMan name of the field
4.53,1 EXTERNAL NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: Enter the COBOL name of the field
DESCRIPTION:
This file is obsolete.
4.53,2 TYPE 0;3 SET
'F' FOR FREE TEXT;
'N' FOR NUMERIC;
DESCRIPTION:
This file is obsolete.
UNEDITABLE
4.53,3 LENGTH 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter the number of bytes for the COBOL field
DESCRIPTION:
This file is obsolete.
UNEDITABLE
4.53,4 DECIMAL PLACES 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 12, 1985
HELP-PROMPT: Enter the number of digits to the right of the decimal point
DESCRIPTION:
This file is obsolete.
UNEDITABLE
4.53,5 START POSITION 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1985
HELP-PROMPT: Enter the byte position where this field begins
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE: ^^TRIGGER^4.53^9
1)= X ^DD(4.53,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1)
,1,200) S DIU=X K Y X ^DD(4.53,5,1,1,1.1) X ^DD(4.53,5,1,1,1.4)
1.1)= S X=DIV X ^DD(4.53,5,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,X
MVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99
,0),U,5,99) S Y(1)=X S X=Y(1)
1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,
D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y S X=DIV S X="" X ^DD(4.53,5,1,1,2.4)
2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= ALL HERE
CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(
IGNORE 0 AND NULL))
DELETE VALUE)= @
FIELD)= EXTRACT CODE
4.53,6 TRIM 0;7 SET
'L' FOR LEFT;
'R' FOR RIGHT;
'B' FOR BOTH LEFT AND RIGHT;
LAST EDITED: APR 16, 1985
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE:^^TRIGGER^4.53^9
1)= X ^DD(4.53,6,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1)
,1,200) S DIU=X K Y X ^DD(4.53,6,1,1,1.1) X ^DD(4.53,6,1,1,1.4)
1.1)= S X=DIV X ^DD(4.53,6,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,X
MVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99
,0),U,5,99) S Y(1)=X S X=Y(1)
1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= X ^DD(4.53,6,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1)
,1,200) S DIU=X K Y X ^DD(4.53,6,1,1,2.1) X ^DD(4.53,6,1,1,2.4)
2.1)= S X=DIV X ^DD(4.53,6,1,1,2,9.3) S X1=Y(6) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,X
MVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99
,0),U,5,99) S Y(1)=X S X=Y(1)
2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= ALL HERE
CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(
IGNORE 0 AND NULL))
DELETE CONDITION)= ALL HERE
DELETE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,"",INTERNAL(IGNORE 0 AND
NULL))
FIELD)= EXTRACT CODE
4.53,7 IGNORE 0 AND NULL 0;8 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 16, 1985
HELP-PROMPT: Enter YES if a zero or blank value need not be stored in Fileman.
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE:^^TRIGGER^4.53^9
1)= X ^DD(4.53,7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1)
,1,200) S DIU=X K Y X ^DD(4.53,7,1,1,1.1) X ^DD(4.53,7,1,1,1.4)
1.1)= S X=DIV X ^DD(4.53,7,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,X
MVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99
,0),U,5,99) S Y(1)=X S X=Y(1)
1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= X ^DD(4.53,7,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1)
,1,200) S DIU=X K Y X ^DD(4.53,7,1,1,2.1) X ^DD(4.53,7,1,1,2.4)
2.1)= S X=DIV X ^DD(4.53,7,1,1,2,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,X
MVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
2.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99
,0),U,5,99) S Y(1)=X S X=Y(1)
2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= ALL HERE
CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(
IGNORE 0 AND NULL))
DELETE CONDITION)= ALL HERE
DELETE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),"")
FIELD)= EXTRACT CODE
4.53,8 COBOL PICTURE 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X D:$D(X) ^XMVPIC D:$D(X) ^XMVSTUFF
LAST EDITED: APR 15, 1985
HELP-PROMPT: Enter the COBOL picture that defines the field
DESCRIPTION:
This file is obsolete.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^4.53^9
1)= X ^DD(4.53,8,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"") S X=$E(Y(1)
,1,200) S DIU=X K Y X ^DD(4.53,8,1,1,1.1) X ^DD(4.53,8,1,1,1.4)
1.1)= S X=DIV X ^DD(4.53,8,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,X
MVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X
1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99
,0),U,5,99) S Y(1)=X S X=Y(1)
1.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,
D1,1,D2,1)):^(1),1:"") S X=$E(Y(1),1,200) S DIU=X K Y S X=DIV S X="" X ^DD(4.53,8,1,1,2.4)
2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,
1,200),Y=$E(DIH,201,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",200-$L(DIV))_Y),DIH=4
.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= ALL HERE
CREATE VALUE)= XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(
IGNORE 0 AND NULL))
DELETE VALUE)= @
FIELD)= EXTRACT CODE
4.53,9 EXTRACT CODE 1;E1,200 FREE TEXT
INPUT TRANSFORM:K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM
LAST EDITED: AUG 06, 1985
HELP-PROMPT: Transforms the portion of XMRG into fileman external form in Y. Generated by the fields COBOL PIC
and STARTING POSITION.
DESCRIPTION:
This file is obsolete.
WRITE AUTHORITY:^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the START POSITION field of the FIELD sub-field of the RECORD sub-field of the NETWORK
TRANSACTION File
TRIGGERED by the TRIM field of the FIELD sub-field of the RECORD sub-field of the NETWORK
TRANSACTION File
TRIGGERED by the IGNORE 0 AND NULL field of the FIELD sub-field of the RECORD sub-field of the
NETWORK TRANSACTION File
TRIGGERED by the COBOL PICTURE field of the FIELD sub-field of the RECORD sub-field of the NETWORK
TRANSACTION File
4.53,10 FILE 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."6N.N) X
HELP-PROMPT: Enter the number of the file or sub-file where this data will be stored.
DESCRIPTION:
This file is obsolete.
CROSS-REFERENCE:4.52^C
1)= S ^XMB(4.5,DA(2),5,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^XMB(4.5,DA(2),5,"C",$E(X,1,30),DA(1),DA)
CROSS-REFERENCE:^^TRIGGER^4.53^11
1)= Q
2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,
D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="" X ^DD(4.53,10,1,2,2.4)
2.4)= S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,1
0,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:
""),DIH=4.53,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE VALUE)= @
FIELD)= FIELD
4.53,11 FIELD 0;11 NUMBER
INPUT TRANSFORM:S Y=$S($D(^XMB(4.5,DA(2),5,DA(1),1,DA,0)):$P(^(0),U,10),1:0) K:'Y X I Y S DIC="^DD("_Y_",",DIC(0)
="QEN" D ^DIC S X=+Y K:Y<0 X S DIC=DIE
HELP-PROMPT: Enter the number or name of the field where this data will go.
DESCRIPTION:
This file is obsolete.
EXECUTABLE HELP:S Y=$S($D(^XMB(4.5,DA(2),5,DA(1),1,DA,0)):$P(^(0),U,10),1:0) I Y S DIC="^DD("_Y_",",DIC(0)="QEN",
X="?" D ^DIC S DIC=DIE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the FILE field of the FIELD sub-field of the RECORD sub-field of the NETWORK
TRANSACTION File
4.53,99 ALL HERE ; BOOLEAN COMPUTED
MUMPS CODE: X ^DD(4.53,99,9.3) S X=X&Y,Y(4.53,99,4)=X S X=$P(Y(4.53,99,1),U,6)]"",Y=X,X=Y(4.53,99,4),X=X&Y
9.2 = S Y(4.53,99,2)=$C(59)_$S($D(^DD(4.53,2,0)):$P(^(0),U,3),1:""),Y(4.53,99,1)=$S($D(^XMB(4.5,D0,
5,D1,1,D2,0)):^(0),1:"")
9.3 = X ^DD(4.53,99,9.2) S X=$P($P(Y(4.53,99,2),$C(59)_$P(Y(4.53,99,1),U,3)_":",2),$C(59),1)]"",Y(4
.53,99,3)=X S X=$P(Y(4.53,99,1),U,4)]"",Y=X,X=Y(4.53,99,3),X=X
9.4 = X ^DD(4.53,99,9.3) S X=$P($P(Y(4.53,99,2),$C(59)_$P(Y(4.53,99,1),U,3)_":",2),$C(59),1)]"",Y(4
.53,99,3)=X S X=$P(Y(4.53,99,1),U,4)]"",Y=X,X=Y(4.53,99,3),X=X
9.5 = X ^DD(4.53,99,9.4) S X=X&Y,Y(4.53,99,4)=X S X=$P(Y(4.53,99,1),U,5)]"",Y=X,X=Y(4.53,99,4),X=X&
Y,Y(4.53,99,5)=X S X=$P(Y(4.53,99,1),U,6)]""
9.6 = X ^DD(4.53,99,9.5) S Y=X,X=Y(4.53,99,5),X=X&Y,Y(4.53,99,6)=X S X=$P($P(Y(4.53,99,7),$C(59)_$P
(Y(4.53,99,1),U,7)_":",2),$C(59),1)]"",Y=X,X=Y(4.53,99,6),X=X
ALGORITHM: TYPE]""&(LENGTH]"")&(START POSITION]"")
LAST EDITED: APR 15, 1985
DESCRIPTION:
This file is obsolete.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):