+MACRO COPYBOOK0
1
1     *****************************************************************
1     *   Data Block for Set ^SCRHED
1     *****************************************************************
1
1      01  ^SCRNAM^SCDASHDATA-BLOCK.
6
6     *****************************************************************
6     *   Data Block for Set ^SCRHED
6     *****************************************************************
6
6      01  ^SCRNAM^SCDASHDATA-BLOCK-VERSION-NO PIC 9(4) VALUE ^SDATNO.
6
6      01  ^SCRNAM^SCDASHVERSION-NO PIC 9 VALUE 1.
6
6      01  ^SCRNAM^SCDASHSET-BUILD-NO PIC 9(4) VALUE ^SVERNO.
6
6      01  ^SCRNAM^SCDASHDATA-BLOCK.
7
7     *****************************************************************
7     *   Data Block for Set ^SCRHED
7     *****************************************************************
7
7      01  ^SCRNAM^SCDASHDATA-BLOCK REDEFINES GENERAL-DATA-BLOCK.
z      02  ^SCRNAM^SCDASHUSER-DATA.
2      03  ^SCRNAM^SCDASHGROUP-0^GRPNUM.
2      04  ^SCRNAM^SCDASHGROUP-ITEM-0^GRPNUM OCCURS ^GRPREP.
3      03  ^SCRNAM^SCDASHGROUP-0^GRPNUM.
5      03  ^SCRNAM^SCDASHGROUP-0^GRPNUM.
5      04  ^SCRNAM^SCDASHGROUP-ITEM-0^GRPNUM OCCURS ^GRPREP
5                                 INDEXED BY ^SCRNAM^SCDASHGRP-IND-0^GRPNUM.
A      03  ^SCRNAM^SCDASH^FLDNAM PIC A(^PCSIZ1).
X      03  ^SCRNAM^SCDASH^FLDNAM PIC X(^PCSIZ1).
N      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1).
M      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2).
S      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1).
T      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2).
C      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP.
D      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP.
E      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1) COMP.
K      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2) COMP.
F      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP-X.
L      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP-X.
G      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP-3.
P      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP-3.
H      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1) COMP-3.
Q      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2) COMP-3.
I      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP-5.
R      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP-5.
J      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1) COMP-5.
U      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2) COMP-5.
a      05  ^SCRNAM^SCDASH^FLDNAM PIC A(^PCSIZ1).
e      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1) COMP.
f      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP-X.
h      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1) COMP-3.
i      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP-5.
j      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1) COMP-5.
x      05  ^SCRNAM^SCDASH^FLDNAM PIC X(^PCSIZ1).
n      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1).
m      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2).
s      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1).
t      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2).
c      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP.
d      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP.
k      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2) COMP.
l      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP-X.
g      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1) COMP-3.
p      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP-3.
q      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2) COMP-3.
r      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9(^PCSIZ2) COMP-5.
u      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9(^PCSIZ2) COMP-5.
8      02  ^SCRNAM^SCDASHSYSTEM-DATA.
8      03  ^SCRNAM^SCDASHBLOCK-VERSN-NO PIC 9(2) COMP VALUE ^SDATNO.
9
9     *****************************************************************
9     *   End of Data Block for Set ^SCRHED
9     *****************************************************************
+MACEND
+MACRO COPYBOOK1
A      03  ^SCRNAM^SCDASH^FLDNAM PIC A.
X      03  ^SCRNAM^SCDASH^FLDNAM PIC X.
N      03  ^SCRNAM^SCDASH^FLDNAM PIC 9.
E      03  ^SCRNAM^SCDASH^FLDNAM PIC S9 COMP.
F      03  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP-X.
G      03  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP-3.
H      03  ^SCRNAM^SCDASH^FLDNAM PIC S9 COMP-3.
I      03  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP-5.
J      03  ^SCRNAM^SCDASH^FLDNAM PIC S9 COMP-5.
O            88  ^SCRNAM^SCDASH^FNAM88-TRUE VALUE 1.
M      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2).
S      03  ^SCRNAM^SCDASH^FLDNAM PIC S9.
T      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2).
C      03  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP.
D      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP.
K      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2) COMP.
L      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP-X.
P      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP-3.
Q      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2) COMP-3.
R      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP-5.
U      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2) COMP-5.
a      05  ^SCRNAM^SCDASH^FLDNAM PIC A.
x      05  ^SCRNAM^SCDASH^FLDNAM PIC X.
n      05  ^SCRNAM^SCDASH^FLDNAM PIC 9.
e      05  ^SCRNAM^SCDASH^FLDNAM PIC S9 COMP.
f      05  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP-X.
g      05  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP-3.
h      05  ^SCRNAM^SCDASH^FLDNAM PIC S9 COMP-3.
i      05  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP-5.
j      05  ^SCRNAM^SCDASH^FLDNAM PIC S9 COMP-5.
o                88  ^SCRNAM^SCDASH^FNAM88-TRUE VALUE 1.
m      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2).
s      05  ^SCRNAM^SCDASH^FLDNAM PIC S9.
t      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2).
c      05  ^SCRNAM^SCDASH^FLDNAM PIC 9 COMP.
d      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP.
k      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2) COMP.
l      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP-X.
p      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP-3.
q      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2) COMP-3.
r      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9(^PCSIZ2) COMP-5.
u      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9(^PCSIZ2) COMP-5.
+MACEND
+MACRO COPYBOOK2
M      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9.
T      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9.
D      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP.
K      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9 COMP.
L      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP-X.
P      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP-3.
Q      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9 COMP-3.
R      03  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP-5.
U      03  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9 COMP-5.
m      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9.
t      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9.
d      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP.
k      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9 COMP.
l      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP-X.
p      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP-3.
q      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9 COMP-3.
r      05  ^SCRNAM^SCDASH^FLDNAM PIC 9(^PCSIZ1)V9 COMP-5.
u      05  ^SCRNAM^SCDASH^FLDNAM PIC S9(^PCSIZ1)V9 COMP-5.
+MACEND
+MACRO COPYBOOK3
M      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9.
T      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9.
D      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP.
K      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9 COMP.
L      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP-X.
P      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP-3.
Q      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9 COMP-3.
R      03  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP-5.
U      03  ^SCRNAM^SCDASH^FLDNAM PIC S9V9 COMP-5.
m      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9.
t      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9.
d      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP.
k      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9 COMP.
l      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP-X.
p      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP-3.
q      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9 COMP-3.
r      05  ^SCRNAM^SCDASH^FLDNAM PIC 9V9 COMP-5.
u      05  ^SCRNAM^SCDASH^FLDNAM PIC S9V9 COMP-5.
+MACEND
+MACRO COPYBOOK4
1
1     *****************************************************************
1     *   Field Numbers for Set ^SCRHED
1     *****************************************************************
1
4      01  ^SCRNAM^SCDASHFIELD-NUMBERS.
5      03  ^SCRNAM^SCDASHFLD-NO-^FLDNAM PIC 9(4) COMP VALUE ^FLDNUM.
2      78  ^SCRNAM^SCDASHFLD-NO-^FLDNAM VALUE ^FLDNUM.
3
3     *****************************************************************
3     *   End of Field Numbers for Set ^SCRHED
3     *****************************************************************
+MACEND
+MACRO COPYBOOK6
0     *****************************************************************
0     *   Control Block for Set ^SCRHED
0     *****************************************************************
0
0      01  DS-CONTROL-BLOCK.
0      03  DS-VERSION-NUMBERS.
0      05  DS-DATA-BLOCK-VERSION-NO PIC 9(4) VALUE ^SDATNO.
0      05  DS-VERSION-NO PIC 9 VALUE 1.
0      03  DS-INPUT-FIELDS.
0      05  DS-CONTROL PIC X.
1            78  DS-CONTINUE               VALUE "C".
1            78  DS-NEW-SET                VALUE "N".
1            78  DS-LOAD-SYSTEM            VALUE "L".
1            78  DS-QUIT-SET               VALUE "Q".
1            78  DS-PUSH-SET               VALUE "S".
1            78  DS-PATHNAME               VALUE "P".
1            78  DS-ERR-FILE-OPEN          VALUE "E".
0      05  DS-CONTROL-PARAM PIC 9(4) COMP.
1            78  DS-SCREEN-CLEAR           VALUE 0.
1            78  DS-SCREEN-NOCLEAR         VALUE 1.
1            78  DS-CLEAR-AND-IGNORE       VALUE 2.
1            78  DS-NOCLEAR-AND-IGNORE     VALUE 3.
0      05  DS-SET-NAME PIC X(16).
0      05  DS-CLEAR-DIALOG PIC 9.
0      05  DS-PROC-TYPE PIC X.
0      05  DS-PROC-NO PIC 9(4) COMP.
0      05  DS-INPUT-RESERVED PIC X(12).
0      03  DS-OUTPUT-FIELDS.
0      05  DS-SYSTEM-ERROR-NO PIC 9(4) COMP.
2            88  DS-NO-ERROR               VALUE 0.
2            88  DS-NOT-INITIALISED        VALUE 1.
2            88  DS-CANNOT-OPEN-SET        VALUE 2.
2            88  DS-ERROR-READING-FILE     VALUE 3.
2            88  DS-INVALID-SET            VALUE 4.
2            88  DS-CANNOT-CREATE-PANEL    VALUE 5.
2            88  DS-DYNAMIC-ERROR          VALUE 6.
2            88  DS-INVALID-FUNCTION       VALUE 7.
2            88  DS-INVALID-PROC           VALUE 8.
2            88  DS-VALIDATION-PROG-ERROR  VALUE 9.
2            88  DS-DATA-BLOCK-VERNO-ERROR VALUE 10.
2            88  DS-PUSH-LIMIT-REACHED     VALUE 11.
2            88  DS-ERROR-FILE-MISSING     VALUE 12.
2            88  DS-SUBSCRIPT-ERROR        VALUE 13.
2            88  DS-PROC-LIMIT-REACHED     VALUE 14.
2            88  DS-CTRL-BREAK-PRESSED     VALUE 15.
2            88  DS-ERROR-ON-TRACE-FILE    VALUE 16.
0      05  DS-VALIDATION-ERROR-NO PIC 9(4) COMP.
0      05  DS-PANEL-NAME          PIC X(8).
0      05  DS-RESERVED-1          PIC X(2).
0      05  DS-FIELD-COUNT         PIC 9(4) COMP.
0      05  DS-FIELD-OCCURRENCE    PIC 9(4) COMP.
0      05  DS-RESERVED-2          PIC X(6).
0      05  DS-FIELD-NO            PIC 9(4) COMP.
0      05  DS-FIELD-CHANGE PIC 9.
2            88 DS-FIELD-CHANGE-TRUE       VALUE 1.
0      05  DS-EXIT-FIELD PIC 9.
2            88 DS-EXIT-FIELD-TRUE         VALUE 1.
0      05  DS-OUTPUT-RESERVED     PIC X(16).
4
4      01  DS-CONSTANTS.
4      03  DS-CONTROL-CONSTANTS.
4      05  DS-CONTINUE PIC X VALUE "C".
4      05  DS-NEW-SET PIC X VALUE "N".
4      05  DS-LOAD-SYSTEM PIC X VALUE "L".
4      05  DS-QUIT-SET PIC X VALUE "Q".
4      05  DS-PUSH-SET PIC X VALUE "S".
4      05  DS-PATHNAME PIC X VALUE "P".
4      05  DS-ERR-FILE-OPEN PIC X VALUE "E".
4      03  DS-CONTROL-PARAM-CONSTANTS.
4      05  DS-SCREEN-CLEAR PIC 9(4) COMP VALUE 0.
4      05  DS-SCREEN-NOCLEAR PIC 9(4) COMP VALUE 1.
4      05  DS-CLEAR-AND-IGNORE PIC 9(4) COMP VALUE 2.
4      05  DS-NOCLEAR-AND-IGNORE PIC 9(4) COMP VALUE 3.
0
0     *****************************************************************
0     *   End of Control Block for ^SCRHED
0     *****************************************************************
0
0     *****************************************************************
0     *   Set Version Number
0     *****************************************************************
0
0      01  DS-SET-BUILD-NO PIC 9(4) VALUE ^SVERNO.
0
0     *****************************************************************
0     *   End of Version Number
0     *****************************************************************
+MACEND
+MACRO ACTBAR0
1     * ^SSNAME.CUA
1     * CUA mouse controlling copybook generated by Character Dialog
1     * System
1
1          WHEN "^SSNAME"
1              evaluate ds-panel-name
1
2                  WHEN "^ABNAME"
2                      move 99 to return-code      *> Default ESC
2                      if ds-output-mouse-y not = ^AB-ROW
2                          exit program            *> not on action bar
2                      end-if
2                      evaluate ds-output-mouse-x
3                          WHEN > ^ABSTRT and < ^AB-END
3                              move ^AB-RTN to return-code
4                      end-evaluate
4
5                  WHEN "^PDNAME"
5                      if ds-output-mouse-y = ^AB-ROW and ( *> used to highlight
6                         (ds-output-mouse-x > ^ABSTRT and < ^AB-END)
7                              or
8                        ) move 99 to return-code     *> action bar select
8                          exit program
8                      end-if
9                      move ^PD-RTN to return-code    *> default ESC
9                      if ds-output-mouse-x < ^PDSTRT or > ^PD-END
9                          exit program                *> not on pull down
9                      end-if
9                      evaluate ds-output-mouse-y
a                          WHEN ^PDYPOS
a                              move ^PD-RTN to return-code
b                  WHEN OTHER               *> ie. panel showing action bar
b                      if ds-output-mouse-y = ^AB-ROW and ( *> used to highlight
c                        ) move 1 to return-code
c                      end-if
c              end-evaluate
c              exit program
+MACEND
