MACRO 00500002 IGGSCW 01000002 * /* MACCOMP Y-2 SC1D0/SJD48 */ 01050002 * /* MACSTAT Y-2 73124/021160 */ 01100002 .* /* START OF SPECIFICATIONS **** 01150002 .* 01200002 .*01 MODULE-NAME = IGGSCW 01250002 .* 01300002 .*01 COPYRIGHT = NONE 01350002 .* 01400002 .*01 STATUS = VS2 RELEASE 2 LEVEL 2 01450002 .* 01460002 .*01 DESCRIPTIVE-NAME = OPEN/CLOSE WORKAREA LABELS. 01470002 .* 01480002 .*01 FUNCTION = PROVIDE DESCRIPTIVE LABELS FOR FIELDS IN THE OPEN 01490002 .* AND CLOSE WORKAREAS. 01490102 .* 01492002 .*01 MODULE-TYPE = MACRO 01494002 .* 01496002 .*02 MACRO-SIZE = NA FOR MAPPING DSECT 01498002 .* 01498402 .*02 PARAMETER-RECEIVED = NONE 01498802 .* 01499202 .*01 TABLES = NONE 01499602 .* 01499702 .*01 INNER-MACROS = NONE 01499802 .* 01499902 .*01 SYSTEM-MACROS = NONE 01549902 .* 01559902 .*01 CHANGE-ACTIVITY = SEE BELOW 01569902 .* VS2 REL 2 01579902 .* MACRO CREATED 01589902 .* 01591902 .* 01593902 .**** END OF SPECIFICATIONS ***/ 01595902 * 01597902 * THE FOLLOWING LABELS ARE USED BY THE SAM/PAM ACCESS METHOD OPEN/CLOSE 01598302 * EXECUTORS WHEN USING FIELDS IN THE O/C WORKAREAS FOR PURPOSES 01598702 * OTHER THAN THOSE INTENDED BY COMMON O/C. 01599102 * THE COMMENTS FOR EACH LABEL INDICATE WHEATHER THE LABEL IS 01599202 * USED BY THE OPEN EXECS (-O) OR THE CLOSE EXECS (-C). 01599302 * 01599502 FORCORE DSECT 01599602 ORG DXCCW1 01599702 DXCCWOP DS X CCW OP CODE -O 01599802 DXCCWADR DS AL3 BUFFER ADDRESS -O 01649802 DXCCWFLG DS AL2 CCW FLAGS -O 01659802 DXCCWBYT DS AL2 CCW BYTE COUNT -O 01669802 ORG DXCCW1 01699802 SCWGETMA DS 0F REG SAVE AREA FOR ACCESS 02500002 * METHOD ROUTINES -C 02650002 SCWSAVCD DS X PROBLEM DETERMINATION CODE -C 02700002 SCWGETMB DS XL3 SAME AS SCWGETMA ABOVE -C 02750002 ORG DXCCW1 02752002 DXBLDL DS 0F BLDL PARM LIST -O 02754002 DXUCSUCB DS X UCB UCS OPTIONS -O 02756002 DS 3X 02758002 DXBLDLIM DS F IMAGE NAME FOR BLDL -O 02758402 ORG DXCCW2 02758802 DXIMGNAM DS F IMAGE NAME -O 02759202 ORG DXCCW2 02760002 SCWRALL DS 0F SAVE AREA FOR ALL REGS -C 02800002 ORG DXCCW6 02850002 DXSAVUCS DS D AREA TO SAVE UCS NAME -O 02900002 ORG DXCCW8 02950002 DXIMGDCB DS F ADDRESS OF IMGLIB DCB -O 03000002 ORG DXCCW9 03050002 DXSAVFCB DS D AREA TO SAVE FCB NAME -O 03100002 ORG DXCCW10 03150002 DXFCBUCS DS 0XL16 UCS AND FCB PARM FIELDS -O 03200002 DXFCBP DS 0XL8 TO CLEAR FCB PARM FIELD -O 03250002 DXFCBSW1 DS X SWITCH FOR FCB PARMS -O 03300002 DXABEND DS 0X INDICATES ABEND TO BE ISSUED -O 03350002 DXFLAG1 DS X FCB FLAG BYTE -O 03400002 DXSTAGE2 DS X FOR STAGE 2 OPEN EXEC DETER -O 03450002 DXFCBOPT DS X JFCB FCB OPTIONS -O 03500002 DXFCBID DS F FCB IMAGE ID -O 03550002 ORG DXCCW11 03600002 DXUCSP DS 0XL8 PARM LIST FOR UCS -O 03610002 DXUCSSW1 DS 0X SWITCH FOR UCS PARMS -O 03650002 DXABRETC DS X INTERNAL RET CD FOR PROB DET -O 03700002 DXEROPT DS X TO SAVE DCBEROPT -O 03750002 DXNABEND DS X INDIC ABEND IN CONTROL -O 03800002 DXUCSOPT DS X JFCB UCS OPTIONS -O 03850002 DXUCSID DS F UCS IMAGE ID -O 03900002 ORG DXCCW12 14500002 SCWXCTLP DS D SUP PARM LIST FOR XCTL -O/C 15000002 MEND 15500002