STANDARD DATA DICTIONARY #.404 -- BLOCK FILE 3/24/25 PAGE 1
STORED IN ^DIST(.404, (556 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 22.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores ScreenMan blocks, which are used to build forms in the Form file.
DD ACCESS: ^
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
POINTED TO BY: HEADER BLOCK field (#1) of the PAGE sub-field (#.4031) of the FORM File (#.403)
BLOCK NAME field (#.01) of the BLOCK sub-field (#.4032) of the PAGE sub-field (#.4031) of the FORM File (#.403)
CROSS
REFERENCED BY: NAME(B)
.404,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X=+$P(X,"E")) X I $D(X),$S($D(DDS)&$G(DA):$P($G(^DIST(.404,DA,0)),U)
'=X,1:1),$D(^DIST(.404,"B",X)) K X
LAST EDITED: OCT 20, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: Enter the name of the block, 3-30 characters in length. The block name must be unique and cannot
be numeric or start with punctuation.
DELETE TEST: 1,0)= I '$D(DDSDEL) D EN^DDIOL($C(7)_"You must use the FileMan options to delete blocks.") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .404^B
1)= S ^DIST(.404,"B",$E(X,1,30),DA)=""
2)= K ^DIST(.404,"B",$E(X,1,30),DA)
.404,1 DATA DICTIONARY NUMBER 0;2 FREE TEXT
INPUT TRANSFORM: K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DD(X))&(X'?1".81".N) X
LAST EDITED: NOV 02, 2015
HELP-PROMPT: Answer must be 1-16 characters in length.
DESCRIPTION: Enter the data dictionary number of the file or subfile that contains the fields that are placed on
this block. A block can contain fields from only one file or subfile.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.404,2 DISABLE NAVIGATION 0;3 SET
'0' FOR NO;
'1' FOR YES;
'2' FOR OUTOK;
DESCRIPTION: Enter 'YES' if navigation within the block should be disabled. When navigation is disabled, user
cannot ^-jump to other fields, they cannot ^-jump to the Command Line, and the , , ,
and keys traverse the fields in the same order as the key -- that is, in the order
established by the Field Order property of the fields.
Enter 'OUTOK' to disable navigation, but allow the user to ^-jump to the Command Line.
.404,11 PRE ACTION 11;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter standard MUMPS code that will be executed when the user navigates to the block.
DESCRIPTION: This is MUMPS code that is executed when the user navigates to the block.
This pre-action is part of the block definition itself, so if this block is used on another page or
another form, the pre-action still applies.
WRITE AUTHORITY: @
.404,12 POST ACTION 12;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter standard MUMPS that will be executed when the user leaves the block.
DESCRIPTION: This is MUMPS code that is executed when the user leaves the block.
This post-action is part of the block definition itself, so if the block is used on another page or
on another form, the post-action still applies.
WRITE AUTHORITY: @
.404,15 DESCRIPTION 15;0 WORD-PROCESSING #.40415
DESCRIPTION:
Enter text that describes this block.
.404,40 FIELD 40;0 Multiple #.4044
IDENTIFIED BY:
"WRITE": D EN^DDIOL($S($P(^(0),U,2)?1"Select "1.E:$E($P(^(0),U,2),8,999),1:$S($P(^(0),U,2)="!M":$G(^(.1)),1:
$P(^(0),U,2)))_$S($P(^(0),U,4)]"":" ("_$P(^(0),U,4)_")",1:""),"","?9")
"WRITE1": D EN^DDIOL($S($P($G(^(7)),U,2):" (Sub Page Link defined)",1:"")_$S($G(^(1)):" (Field #"_^(1)_")"
,1:"")_$S($P(^(0),U,5)]"":" ("_$P(^(0),U,5)_")",1:""),"","?0")
.4044,.01 FIELD ORDER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:X'=+$P(X,"E")!(X>99.9)!(X<0)!(X?.E1"."2N.N) X I $D(X),$D(^DIST(.404,DA(1),40,"B",X)) K X
HELP-PROMPT: Enter a unique number between 0 and 99.9, inclusive, which represents the order in which the
fields will be edited.
DESCRIPTION: The Field Order number determines the order in which users traverse the fields in the block as
they press .
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .4044^B
1)= S ^DIST(.404,DA(1),40,"B",$E(X,1,30),DA)=""
2)= K ^DIST(.404,DA(1),40,"B",$E(X,1,30),DA)
.4044,1 CAPTION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X S:$E($G(X))="!"&($G(X)'="!M") X=$$FUNC^DDSCAP(X)
LAST EDITED: JUN 29, 1994
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION: A caption is uneditable text that appears on the screen. Captions of data dictionary, form-only,
and computed fields serve to identify for the user the data portion of the fields. Captions for
these types of fields are automatically followed by a colon, unless the Suppress Colon After
Caption property is set to 'YES.' A field with an Executable Caption must have '!M' as a
Caption.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: .4044^C^MUMPS
1)= S:X'="!M" ^DIST(.404,DA(1),40,"C",$$UP^DILIBF($E($S(X?1"Select "1.E:$P(X,"Select ",2,99),1:X),1
,63)),DA)=""
2)= K:X'="!M" ^DIST(.404,DA(1),40,"C",$$UP^DILIBF($E($S(X?1"Select "1.E:$P(X,"Select ",2,99),1:X),1
,63)),DA)
3)= Programmer only
This cross referenced is used to allow selection of fields by caption name as well as by order
number when entering new fields in the block.
.4044,1.1 EXECUTABLE CAPTION .1;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: FEB 18, 1992
HELP-PROMPT: Enter standard MUMPS code that sets the variable Y.
DESCRIPTION: Enter MUMPS code that sets the variable Y equal to the caption you want displayed. This code is
executed and the caption evaluated whenever the page on which this caption is located is painted.
WRITE AUTHORITY:@
.4044,2 FIELD TYPE 0;3 SET
'0' FOR UNKNOWN;
'1' FOR CAPTION ONLY;
'2' FOR FORM ONLY;
'3' FOR DATA DICTIONARY FIELD;
'4' FOR COMPUTED;
LAST EDITED: SEP 07, 1994
DESCRIPTION: Enter the field type.
CAPTION ONLY fields are for displaying text on the screen.
FORM ONLY fields are fields defined only on the form and are not tied to a field in a FileMan file.
DATA DICTIONARY fields are fields from a FileMan file.
COMPUTED fields, like form-only fields, are fields that are defined only on the form. Associated
with a COMPUTED field is a computed expression.
SCREEN: S DIC("S")="I Y"
EXPLANATION: Enter the field type.
.4044,3 DISPLAY GROUP 0;4 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
HELP-PROMPT: Enter text, 1-20 characters in length, which represents the group to which this field belongs.
DESCRIPTION: Display group helps users resolve ambiguity when they attempt to ^-jump to a field that has a
caption that is not unique. If more than one field has the same caption, when users try to ^-jump
to a field with that caption, they are presented with a list of fields to choose from. The text in
the Display Group property is displayed in parentheses after the caption to help the user identify
the correct field.
For example, if two fields have the caption 'NAME:', but one of those fields has a Display Group
'Next of Kin', when users enter ^NAME, they will be asked to choose between 'NAME' and 'NAME (Next
of Kin)'.
.4044,3.1 UNIQUE NAME 0;5 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!$D(^DIST(.404,DA(1),40,"D",X)) X
LAST EDITED: AUG 16, 1993
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION: This is the unique name of the element on the block. No two elements on the block can have the
same Unique Name. Unique Names are never seen by the user. You can refer to an element on a block
by its Unique Name in some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and in
the computed expressions of computed fields.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:.4044^D^MUMPS
1)= S ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)=""
2)= K ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)
3)= Programmer only
This is a regular index of the Unique Name converted to uppercase.
.4044,4 FIELD 1;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X),$D(DDGFDD) D IXF^DDS0
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION: Enter the number or name of a field in the file defined by the data dictionary number for this
block.
EXECUTABLE HELP:I $D(DDGFDD) N D0,DA,DIC,D,DZ S DIC="^DD("_DDGFDD_",",DIC(0)="",D="B" S:$G(X)="??" DZ=X D DQ^DICQ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.4044,4.1 DATA COORDINATE 2;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
LAST EDITED: SEP 08, 1994
HELP-PROMPT: Enter the field coordinate relative to the block. Answer must be two positive integers separated
by a comma (,), as follows: 'Row,Column'.
DESCRIPTION: Data coordinate is relative to the position of the block. The top left corner of the block has a
coordinate of 1,1.
.4044,4.2 DATA LENGTH 2;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be
displayed on the screen.
DESCRIPTION: The data length defines the size of the editing window. The editing window is a single line and
must not extend into or beyond the rightmost column on the screen. On an 80 column screen, the
editing window must not extend beyond column 79.
.4044,5.1 CAPTION COORDINATE 2;3 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
LAST EDITED: SEP 08, 1994
HELP-PROMPT: Enter the caption coordinate relative to the block. Answer must be two positive integers separated
by a comma (,), as follows: 'Row,Column'.
DESCRIPTION: Caption coordinate is relative to the position of the block. The top left corner of the block has
coordinate 1,1.
.4044,5.2 SUPPRESS COLON AFTER CAPTION? 2;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUN 29, 1994
DESCRIPTION:
Enter 'YES' to suppress the display of a colon and space after the caption.
.4044,6 DEFAULT 3;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X
LAST EDITED: FEB 18, 1992
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION: Enter the default you want displayed when the user first loads the page on which this field is
located, and the field's value is originally null. Since ScreenMan validates the default, it must
be valid, unambiguous, and in external form; otherwise, it is not used.
If you want to create an executable default, i.e., a default whose value is determined at run time
when the page is first loaded, the value of this field must be "!M".
.4044,6.01 EXECUTABLE DEFAULT 3.1;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: FEB 18, 1992
HELP-PROMPT: Enter standard MUMPS code that sets the variable Y.
DESCRIPTION: Enter MUMPS code that sets the variable Y equal to the default you want displayed when the page is
first loaded and the data value on file is null. Y must be set to a valid, unambiguous user
response; otherwise, it is ignored.
WRITE AUTHORITY:@
.4044,6.1 REQUIRED 4;1 SET
'0' FOR NO;
'1' FOR YES;
DESCRIPTION: Whenever the user attempts a Save, ScreenMan checks all required fields on all pages accessed
during the editing session, as well as all pages linked to the first page via the Next and Previous
Page links. If any of the required fields have null values, no Save occurs. You need not make a
field required that is already required by its data definition.
.4044,6.2 DUPLICATE 4;2 SET
'0' FOR NO;
'1' FOR YES;
HELP-PROMPT: Enter 'YES' if the field value from the previous record can be duplicated with the
'spacebar-return' feature.
DESCRIPTION:
This field is not currently being used.
.4044,6.3 RIGHT JUSTIFY 4;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUN 25, 1994
DESCRIPTION:
Enter 'YES' if the data for this field should be displayed right-justified in the editing window.
.4044,6.4 DISABLE EDITING 4;4 SET
'0' FOR NO;
'1' FOR YES;
'2' FOR REACHABLE;
LAST EDITED: JUN 25, 1994
DESCRIPTION: Enter 'YES' to disable editing and to prevent the user from navigating to the field. Enter
'REACHABLE' to disable editing, but allow the user to navigate to the field.
.4044,6.5 DISALLOW LAYGO 4;5 SET
'0' FOR NO;
'1' FOR YES;
DESCRIPTION: Enter 'YES' to prohibit the user from adding new subentries into this multiple. This question only
pertains to multiple-valued fields.
.4044,6.6 ASK 'OK' 4;6 SET
'0' FOR NO;
'1' FOR YES;
DESCRIPTION: Answer 'YES' to ask the user whether the looked-up entry is 'OK'. If only one match is made to the
user's lookup value, then ScreenMan will ask "OK?" instead of automatically selecting the found
entry. This property corresponds to the "V" flag in the DIC(0) input variable to ^DIC and only
pertains to multiple-valued fields.
.4044,8 SUB PAGE LINK 7;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
HELP-PROMPT: Enter the Page Number of the page to open up when the user presses at this field. Type a
Number between 1 and 999.9, 1 Decimal Digit.
DESCRIPTION: If you wish to take users to a pop-up page when they press at this field, enter the Page
Number of that page. When users exit that pop-up page, ScreenMan will automatically take them to
the field following this field.
You can also use the Parent Field property of the pop-up page to link a field to the pop-up page.
.4044,10 BRANCHING LOGIC 10;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter Standard MUMPS code, 1-245 characters in length.
DESCRIPTION: This MUMPS code is executed whenever the user presses at the field. Here you can set DDSBR
equal to the field, block, and page, separated by up-arrow delimiters, of the field to which you
wish to take users when they press . For example,
S:X="Y" DDSBR="TEST FIELD 1^TEST BLOCK 1^TEST PAGE 2"
would take the user to the field with unique name or caption "TEST FIELD 1" on the block named
"TEST BLOCK 1" on a page named "TEST PAGE 2".
Alternatively, if you wish to take users to another page when they press at this field, and
then when they close that page, automatically take them to the field immediately following this
field, you can set DDSSTACK equal to the page name or number of that page.
The variable X contains the current internal value of the field, DDSEXT contains the current
external value of the field, and DDSOLD contains the previous internal value of the field.
WRITE AUTHORITY:@
.4044,11 PRE ACTION 11;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter standard MUMPS code that will be executed when the user navigates to this field.
DESCRIPTION: This MUMPS code is executed when the user reaches the field. The variable X contains the current
value of the field.
WRITE AUTHORITY:@
.4044,12 POST ACTION 12;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: MAR 06, 1995
HELP-PROMPT: Enter standard MUMPS code that will be executed when the user leaves this field.
DESCRIPTION: This MUMPS code is executed when the user leaves the field, except on time-out.
The variable X contains the current internal value of the field, DDSEXT contains the current
external value of the field, and DDSOLD contains the previous internal value of the field.
WRITE AUTHORITY:@
.4044,13 POST ACTION ON CHANGE 13;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: OCT 29, 1993
HELP-PROMPT: Enter standard MUMPS code that will be executed when the user changes the value of this field.
DESCRIPTION: This MUMPS code is executed only if the user changed the value of the field. The variables X and
DDSEXT contain the new internal and external values of the field, and DDSOLD contains the original
internal value of the field.
WRITE AUTHORITY:@
.4044,14 DATA VALIDATION 14;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: AUG 20, 1993
HELP-PROMPT: This is Standard MUMPS code.
DESCRIPTION: Enter MUMPS code that will be executed after the user enters a new value for this field. If the
code sets DDSERROR, the value will be rejected. You might also want to ring the bell and make a
call to HLP^DDSUTL to display a message to the user that indicates the reason the value was
rejected.
WRITE AUTHORITY:@
.4044,20.1 READ TYPE 20;1 SET
'D' FOR DATE;
'F' FOR FREE TEXT;
'L' FOR LIST OR RANGE;
'N' FOR NUMERIC;
'P' FOR POINTER;
'S' FOR SET OF CODES;
'Y' FOR YES OR NO;
'DD' FOR DATA DICTIONARY;
LAST EDITED: AUG 12, 1993
DESCRIPTION:
Enter the data type of this form-only field.
.4044,20.2 PARAMETERS 20;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>2!($L(X)<1) X
LAST EDITED: AUG 12, 1993
HELP-PROMPT: Answer must be 1-2 characters in length.
DESCRIPTION: This property coressponds to the parameters that can be used in the first ^-piece of the DIR(0)
input variable to ^DIR. The "O" parameter has no effect, since the Required property can be used
to make a field required. The "A" and "B" parameters also have no effect.
Free text fields can use the "U" parameter. List or Range fields can use the "C" parameter. Set
of Codes fields can use the "X" and "M" parameters.
.4044,20.3 QUALIFIERS 20;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: AUG 12, 1993
HELP-PROMPT: Answer must be 1-100 characters in length.
DESCRIPTION: This property corresponds to the second ^-piece of the DIR(0) input variable to ^DIR. For Data
Dictionary type form only fields, it identifies the file and field.
Valid qualifiers are:
Date Minimum date:Maximum date:%DT
Free Text Minimum length:Maximum length
List or Range Minimum:Maximum:Maximum decimals
Numeric Minimum:Maximum:Maximum decimals
Pointer Global root or #:DIC(0)
Set of Codes Code:Stands for;Code:Stands for;
Yes or No
Data Dictionary file#,field#
.4044,21 HELP 21;0 WORD-PROCESSING #.404421
LAST EDITED: AUG 12, 1993
LAST EDITED: AUG 12, 1993
DESCRIPTION: This text is displayed when the user enters ? at this form-only field. The lines in this word
processing field correspond to the nodes in the DIR("?",#) input array to ^DIR.
.4044,22 INPUT TRANSFORM 22;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: AUG 12, 1993
HELP-PROMPT: Enter standard MUMPS code.
DESCRIPTION: This is MUMPS code that can examine X, the value entered by the user, and kill X if it is
invalid. It corresponds to the third ^-piece of the DIR(0) input variable to ^DIR.
WRITE AUTHORITY:@
.4044,23 SAVE CODE 23;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: AUG 12, 1993
HELP-PROMPT: Enter Standard MUMPS code.
DESCRIPTION: This is MUMPS code that is executed when the user issues a Save command and the value of this
field changed since the last Save. You can use this field to save in global or local variables
the value the user enters into this field. The following variables are available:
X = The new value of the field in internal form
DDSEXT = The new value of the field in external form
DDSOLD = The original (pre-save) value of the field in internal form
WRITE AUTHORITY:@
.4044,24 SCREEN 24;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: AUG 12, 1993
HELP-PROMPT: Enter standard MUMPS code that sets the variable DIR("S").
DESCRIPTION: This screen is valid only for pointer and set-type form-only fields.
You can enter MUMPS code that sets the variable DIR("S"), to screen the the values that can be
selected.
WRITE AUTHORITY:@
.4044,30 COMPUTED EXPRESSION 30;E1,245 FREE TEXT
INPUT TRANSFORM:K:$L(X)>245!($L(X)<1) X I $D(X) D CEXPR^DDSIT
LAST EDITED: DEC 01, 1993
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION: You can enter MUMPS code that sets the variable Y equal to the value of the computed field.
Alternatively, you can precede the computed expression with an equal sign (=).
For example,
S:$D(var)#2 Y="The value is: "_{NUMERIC}
={FIRST NAME}_" "_{LAST NAME}
={FO(PRICE)}*1.085
NUMERIC, FIRST NAME, and LAST NAME are the name of FileMan fields used on the form, and PRICE is
the caption of a form-only field found on the current page and block of the form.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
DDGF BLOCK ADD APR 13, 1993 USER #0
DDGF BLOCK ADD
DDGF BLOCK ADD NEW
DDGF BLOCK ADD DUPLICATE
DDGF BLOCK DELETE AUG 09, 1993 USER #0
DDGF BLOCK DELETE
DDGF FIELD ADD MAR 31, 1993 USER #0
DDGF FIELD ADD
DDGF FIELD CAPTION ONLY APR 09, 1993 USER #0
DDGF FIELD CAPTION ONLY DD #.4044
DDGF FIELD COMPUTED SEP 16, 1993 USER #0
DDGF FIELD COMPUTED DD #.4044
DDGF FIELD COMPUTED OTHER DD #.4044
DDGF FIELD DD MAY 10, 1993 USER #0
DDGF FIELD DD DD #.4044
DDGF FIELD DD OTHER SINGLE DD #.4044
DDGF FIELD DD OTHER MULTIPLE DD #.4044
DDGF FIELD DD OTHER WP DD #.4044
DDGF FIELD FORM ONLY MAY 10, 1993 USER #0
DDGF FIELD FORM ONLY DD #.4044
DDGF FIELD FORM ONLY PARAMS DD #.4044
DDGF FIELD DD OTHER SINGLE DD #.4044
DDGF HEADER BLOCK SELECT MAY 04, 1993 USER #0
DDGF HEADER BLOCK SELECT