You can insert these micropatterns in the COBOL code of
all the Screen and Server types with the PDP COBOL editor, or in
the code of a Macro with the PDP Macro
editor.
Branching micropatterns
These micropatterns
generate GO TO statements.
You must conform
to the following input format:
*{Gxx
*}
where:
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- Gxx is the micropattern identifier: GF, GFA, GD or GDB.
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
These micropatterns generate different types of branching:
Micropatterns for calling Screens or C/S Screens
- The OSC micropattern calls the Screen or C/S
Screen indicated in the operands.
You must conform to the following
input format
*{OSC "scnnnn"
*}
where :
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- OSC is the micropattern identifier.
- " " must frame the operands.
- scnnnn is the code of the Screen or C/S Screen
called (CL0001 for example).
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
The
OSC micropattern generates:
MOVE 'scextern' TO 5-nnnn-PROGE
MOVE 'O' TO OPER
GO TO F4040.
where:
- scextern is the external name (on eight characters)
of the scnnnn Screen or C/S Screen.
- nnnn represent the last four characters of the
Screen or C/S Screen (0001 for example).
- The OSD micropattern calls the Screen or C/S
Screen indicated in the operands. This call is deferred to the end
of the reception processing.
You must conform to the following input
format
*{OSD "scnnnn"
*}
where:
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- OSD is the micropattern identifier.
- " " must frame the operands.
- scnnnn is the Screen or C/S Screen code (CL0001 for
example).
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
The
OSD micropattern generates
MOVE 'scextern' TO 5-nnnn-PROGE
MOVE 'O' TO OPER.
where:
- scextern is the external name (on eight characters)
of the scnnnn Screen or C/S Screen.
- nnnn represent the last four characters of the
Screen or C/S Screen (0001 for example).
- The OTP micropattern calls the Screen or C/S
Screen whose external name is indicated in the operands.
You must
conform to the following input format
*{OTP "scextern"
*}
where:
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- OTP is the micropattern identifier.
- " " must frame the operands.
- scextern is the external name (on eight characters)
of the scnnnn Screen or C/S Screen.
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
The
OTP micropattern generates:
MOVE 'scextern' TO 5-nnnn-PROGE
MOVE 'O' TO OPER
GO TO F4040.
where:
- nnnn represent the last four characters of the
Screen or C/S Screen (0001 for example).
Micropatterns for Segment accessing
You
must conform to the following input format
*{MP "segm"
*}
where:
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- MP is the micropattern identifier (see the table
for the list of the identifiers).
- " " must frame the operands.
- segm is the Segment code.
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
Note: The Segment code is not controlled.
Table 1. Micropatterns for Segment accessingMicropattern identifiers |
Generated result |
XD |
Deletion of the Segment indicated in the operands |
XP |
Read of the first record through a dynamic access.
This micropattern always retrieves a record. |
XR |
Read of the Segment indicated as the operands |
XRN |
Sequential read of the Segment indicated in
the operands (dynamic access) |
XRU |
Read before update of the Segment indicated
in the operands |
XRW |
Rewrite of the Segment indicated in the operands |
XUN |
Unlock of the Segment indicated in the operands.
(except for DL1). |
XW |
Write of the Segment indicated in the operands |
Note: For the OnLine Systems Development function, these micropatterns
can generate the corresponding access function. When the Segment is
an SQL view or table, make sure that the Segment is defined in the
Screen with either a reception or a display use. The XP and XRN micropatterns
are reserved for Segments defined in a repetitive category with a
display use.
Micropatterns for error positioning
These
errors are detected by specific code. They can be associated with
a Data Element called on a Screen , C/S Screen, or Server (
ERR micropattern),
or they can be common to all the Screens of a Dialog or all the Servers
of a Server Dialog (
ERU micropattern).
Other micropatterns
- The Xaa micropattern generates a PERFORM of
the aa physical access to the Segment indicated in
the operands.
You must conform to the following input format
*{Xaa "segm"
*}
where:
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- Xaa is the micropattern identifier. aa represents
the last two characters of the Segment accessing operator (R for READ, W for WRITE, RW for REWRITE, D for DELETE...).
- " " must frame the operands.
- segm is the Segment code.
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
Note: The value of the Segment accessing operator and the Segment
code are not controlled.
The
Xaa micropattern
generates:
PERFORM F80-segm-aa THRU F80-FN
Example: If you enter
XRW "SE01"
the
generation produces :
PERFORM F80-SE01-RW THRU F80-FN
- The Yaa micropattern generates the F80-segm-aa tag.
This tag is used when the physical accesses to the Segment indicated
in the operands are replaced.
You must conform to the following
input format
*{Yaa "segm"
*}
where:
- *{ is the required start tag of
the micropattern. The * must be entered in column
7, reserved for the comments in the COBOL code, and the { must
be entered in column 8.
- Yaa is the micropattern identifier. aa represents
the last two characters of the Segment accessing operator (R for READ, W for WRITE, RW for REWRITE, D for DELETE...).
- " " must frame the operands.
- segm is the Segment code.
- *} is the required end tag of the
micropattern. The * must be entered in column 7,
reserved for the comments in the COBOL code, and the ] must
be entered in column 8.
Note: The value of the Segment accessing operator and the Segment
code are not controlled.
The
Yaa micropattern
generates:
F80-segm-aa.
Example: If you enter:
YRW "SE01"
the
generation produces
F80-SE01-RW.