Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.combsns +++|
00002 M01S00002.combsns +++|# COMBSNS - M860 SENSE RECORD. #
00003 M01S00003.combsns +++| CONTROL NOLIST;
00004 M01S00004.combsns +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.combsns +++| CONTROL LIST;
00006 M01S00006.combsns +++| CONTROL FI;
00007 M01S00007.combsns +++| BEGIN # COMDECK SNS DESCRIPTION #
00008 M01S00008.combsns +++|
00009 M01S00009.combsns +++|#
00010 M01S00010.combsns +++|*** COMBSNS - M860 SENSE RECORD.
00011 M01S00011.combsns +++|*
00012 M01S00012.combsns +++|* THE SENSE RECORD IS RETURNED BY THE M860 HARDWARE AS A RESULT OF A
00013 M01S00013.combsns +++|* READ SENSE OF A UNIT.
00014 M01S00014.combsns +++|#
00015 M01S00015.combsns +++|
00016 M01S00016.combsns +++|
00017 M01S00017.combsns +++| DEF MST$SREADY #O"37"#; # VALUE OF *MST$RSTATE[0]* IF ALL
00018 M01S00018.combsns +++| STATIONS ARE READY #
00019 M01S00019.combsns +++| DEF SNSLEN #8#; # LENGTH OF SENSE RECORD #
00020 M01S00020.combsns +++|
00021 M01S00021.combsns +++| COMMON BSNSCOM;
00022 M01S00022.combsns +++|
00023 M01S00023.combsns +++| BEGIN # BSNSCOM #
00024 M01S00024.combsns +++|
00025 M01S00025.combsns +++| BASED
00026 M01S00026.combsns +++| ARRAY SNS [0:0] S(SNSLEN);
00027 M01S00027.combsns +++| BEGIN # ARRAY SNS #
00028 M01S00028.combsns +++| ITEM MSA$CREJ B(01,20,01); # COMMAND REJECT #
00029 M01S00029.combsns +++| END # ARRAY SNS #
00030 M01S00030.combsns +++|
00031 M01S00031.combsns +++| END # BSNSCOM #
00032 M01S00032.combsns +++|
00033 M01S00033.combsns +++| END # COMDECK SNS DESCRIPTION #
00034 M01S00034.combsns +++|
00035 M01S00035.combsns +++| CONTROL LIST;
00036 M01S00014.combsns +++|COMBTDM
| Line S188623 Modification History |
M01 (Yanked) (Updated by) | @058641 |
M02 (Yanked) (Updated by) | @062252 |
M03 (Yanked) (Updated by) | @038099 |
M04 (Yanked) (Added by) | @061439 |
Seq # *Modification Id* Act
----------------------------+
00037 M04S188623.@061439 +++|
00038 M01S00006.combsns +++| CONTROL FI;
00039 M01S00007.combsns +++| BEGIN # COMBTDM #
00040 M01S00008.combsns +++|
00041 M01S00009.combsns +++|#
00042 M01S00010.combsns +++|*** COMBTDM - FORMAT OF *TDAM* REQUEST.
00043 M01S00011.combsns +++|*
00044 M01S00012.combsns +++|* COMBTDM CONTAINS THE FORMAT OF A *TDAM* REQUEST AND THE
00045 M01S00013.combsns +++|* FUNCTION CODE VALUES OF POSSIBLE REQUESTS. IT ALSO
00046 M01S00014.combsns +++|* DEFINES THE NAME AND FORMAT OF THE *SSEXEC*/*SSMOVE*
00047 M01S00015.combsns +++|* COMMUNICATION FILE.
00048 M01S00016.combsns +++|#
00049 M01S00017.combsns +++|
00050 M01S00018.combsns +++|
00051 M01S00019.combsns +++| DEF INVRQC #" INVALID TDAM REQUEST.;"#; # ERROR MESSAGE #
00052 M01S00020.combsns +++| DEF MAXSSN #O"7777"#; # MAXIMUM VALUE OF *TDAMSSN* #
00053 M01S00021.combsns +++| DEF MVOCOM #"MVOCOM"#; # COMMUNICATION FILE NAME #
00054 M01S00022.combsns +++| DEF MVPRML #2#; # COMMUNICATION FILE PREAMBLE
00055 M01S00023.combsns +++| LENGTH #
00056 M01S00024.combsns +++| DEF TDAMLEN #6#; # *TDAM* REQUEST MAXIMUM LENGTH #
00057 M01S00025.combsns +++|
00058 M01S00026.combsns +++| STATUS TDAMFCODE # *TDAM* FUNCTION CODES #
00059 M01S00027.combsns +++| NOREQ, # INVALID FUNCTION CODE #
00060 M01S00028.combsns +++| STAGE, # STAGE REQUEST #
00061 M01S00029.combsns +++| RLSCINT, # RELEASE CATALOG INTERLOCK #
00062 M01S00030.combsns +++| RCLMCINT, # RECLAIM CATALOG INTERLOCK #
00063 M01S00031.combsns +++| DESTRLS, # DESTAGE AND RELEASE REQUEST #
00064 M01S00032.combsns +++| DESTAGE, # DESTAGE REQUEST #
00065 M01S00033.combsns +++| RLSUMI, # RELEASE UPDATE MODE I/L #
00066 M01S00034.combsns +++| RCLMUMI, # RECLAIM UPDATE MODE I/L #
00067 M01S00035.combsns +++| FCEND; # END OF *TDAM* FUNCTION CODES #
00068 M01S00036.combsns +++|
00069 M01S00037.combsns +++| STATUS ABANDON # REASON TO ABANDON DESTAGE #
00070 M01S00038.combsns +++| OK, # NO PROBLEM #
00071 M01S00039.combsns +++| NOSPACE, # NO SPACE LEFT #
00072 M01S00040.combsns +++| NOSM, # NO STORAGE MODULE AVAILABLE #
00073 M01S00041.combsns +++| NOCARGP, # NO CARTRIDGE OR GROUP AVAILABLE
00074 M01S00042.combsns +++| #
00075 M01S00043.combsns +++| NEWASA, # FILE HAS A DIFF *ASA* VALUE #
00076 M01S00044.combsns +++| PFMERR, # *PFM* ERROR #
00077 M01S00045.combsns +++| CATIOERR, # CATALOG ACCESS ERROR #
00078 M01S00046.combsns +++| NOOVERF, # CARTRIDGE OVERFLOW NOT LEGAL #
00079 M01S00047.combsns +++| GRFULL, # GROUP FULL #
00080 M01S00048.combsns +++| DSKRDERR, # DISK READ ERROR #
00081 M01S00049.combsns +++| LOST, # CARTRIDGE LOST #
00082 M01S00050.combsns +++| CLOSEDS, # SSEXEC CLOSED DESTAGE #
00083 M01S00051.combsns +++| ENDAB; # END OF STATUS LIST #
00084 M01S00052.combsns +++|
00085 M01S00053.combsns +++| BASED
00086 M01S00054.combsns +++| ARRAY MVPREAM [0:0] S(MVPRML);
00087 M01S00055.combsns +++| BEGIN
00088 M01S00056.combsns +++| ITEM MVPR$WRD1 U(00,00,60); # FIRST WORD #
00089 M01S00057.combsns +++| ITEM MVPR$FLNM C(00,00,07); # COMMUNICATION FILE NAME #
00090 M01S00058.combsns +++| ITEM MVPR$WRD2 U(01,00,60); # SECOND WORD #
00091 M01S00059.combsns +++| ITEM MVPR$LB U(01,00,24); # LARGE FILE BOUNDARY #
00092 M01S00060.combsns +++| ITEM MVPR$DT U(01,24,36); # DATE/TIME OF RUN #
00093 M01S00061.combsns +++| END
00094 M01S00062.combsns +++|
00095 M01S00063.combsns +++| BASED
00096 M01S00064.combsns +++| ARRAY TDAM [0:0] S(TDAMLEN);
00097 M01S00065.combsns +++| BEGIN
00098 M01S00066.combsns +++| ITEM TDAMREQST C(00,00,60); # *TDAM* REQUEST BLOCK #
00099 M01S00067.combsns +++| ITEM TDAMWORD U(00,00,60); # *TDAM* REQUEST WORD #
00100 M01S00068.combsns +++| ITEM TDAMFC U(00,00,06); # FUNCTION CODE #
00101 M01S00069.combsns +++| ITEM TDAMAL U(00,06,03); # ACCESS LEVEL #
00102 M01S00070.combsns +++| ITEM TDAMRES1 U(00,09,15); # RESERVED FOR CDC #
00103 M01S00071.combsns +++| ITEM TDAMPFCFL U(00,24,07); # *PFU* PFC FLAGS #
00104 M01S00072.combsns +++| ITEM TDAMFLAGS U(00,24,04); # FLAGS #
00105 M01S00073.combsns +++| ITEM TDAMFFF B(00,24,01); # FREE FILE FLAG #
00106 M01S00074.combsns +++| ITEM TDAMAFVER B(00,26,01); # *ASA* VERIFY FLAG #
00107 M01S00075.combsns +++| ITEM TDAMAFPDR B(00,27,01); # PSEUDO RELEASE FLAG #
00108 M01S00076.combsns +++| ITEM TDAMPFID U(00,28,32); # *PF-ID* #
00109 M01S00077.combsns +++| ITEM TDAMPEO U(00,28,02); # PFC ENTRY ORDINAL #
00110 M01S00078.combsns +++| ITEM TDAMDN U(00,30,06); # DEVICE NUMBER #
00111 M01S00079.combsns +++| ITEM TDAMTRACK U(00,36,12); # DISK TRACK NUMBER #
00112 M01S00080.combsns +++| ITEM TDAMSECTOR U(00,48,12); # SECTOR ORDINAL #
00113 M01S00081.combsns +++|
00114 M01S00082.combsns +++| ITEM TDAMPFUFAM C(01,00,07); # *PFU* FAMILY NAME #
00115 M01S00083.combsns +++| ITEM TDAMABR U(01,00,04); # REASON FOR DESTAGE ABANDON #
00116 M01S00084.combsns +++| ITEM TDAMOMAST B(01,04,01); # ORIGIN = MASTER #
00117 M01S00085.combsns +++| ITEM TDAMOSLV B(01,05,01); # ORIGIN = SLAVE #
00118 M01S00086.combsns +++| ITEM TDAMSSN U(01,06,12); # STAGE SEQUENCE NUMBER #
00119 M01S00087.combsns +++| ITEM TDAMASI U(01,18,42); # ALTERNATE STORAGE INFORMATION #
00120 M01S00088.combsns +++| ITEM TDAMAT U(01,18,06); # ALTERNATE STORAGE TYPE #
00121 M01S00089.combsns +++| ITEM TDAMASA U(01,24,36); # ALTERNATE STORAGE ADDRESS #
00122 M01S00090.combsns +++| ITEM TDAMMASK U(01,52,08); # MASK #
00123 M01S00091.combsns +++|
00124 M01S00092.combsns +++| ITEM TDAMPFN C(02,00,07); # PERMANENT FILE NAME #
00125 M01S00093.combsns +++| ITEM TDAMUI U(02,42,18); # USER INDEX #
00126 M01S00094.combsns +++| ITEM TDAMSBF U(02,57,03); # SUBFAMILY NUMBER #
00127 M01S00095.combsns +++|
00128 M01S00096.combsns +++| ITEM TDAMJSN C(03,00,04); # JOB SEQUENCE NUMBER #
00129 M01S00097.combsns +++| ITEM TDAMRES2 U(03,24,15); # RESERVED FOR CDC #
00130 M01S00098.combsns +++| ITEM TDAMEVENT U(03,39,21); # EVENT - ID #
00131 M01S00099.combsns +++|
00132 M01S00100.combsns +++| ITEM TDAMFAM C(04,00,07); # FAMILY NAME #
00133 M01S00101.combsns +++| ITEM TDAMRES3 U(04,42,18); # RESERVED FOR CDC #
00134 M01S00102.combsns +++|
00135 M01S00103.combsns +++| ITEM TDAMIA B(05,00,01); # TRUE IF INDIRECT ACCESS #
00136 M01S00104.combsns +++| ITEM TDAMFLN U(05,01,23); # FILE LENGTH IN PRUS #
00137 M01S00105.combsns +++| ITEM TDAMCDT U(05,24,36); # FILE CREATION DATE AND TIME #
00138 M01S00106.combsns +++|
00139 M01S00107.combsns +++|#
00140 M01S00108.combsns +++|* THE ABOVE FIELDS ARE THE SAME AS IN *COMATDM*.
00141 M01S00109.combsns +++|*
00142 M01S00110.combsns +++|* THE FOLLOWING FIELDS CONTAIN THE ACCESS COUNT, LAST ACCESS
00143 M01S00111.combsns +++|* DATE AND CREATE DATE SO THEY CAN BE PRINTED ON THE *SSMOVE*
00144 M01S00112.combsns +++|* REPORT LISTING EACH FILE SELECTED FOR PROCESSING.
00145 M01S00113.combsns +++|#
00146 M01S00114.combsns +++|
00147 M01S00115.combsns +++| ITEM TDAMLMD U(03,24,18); # LAST MODIFY DATE #
00148 M01S00116.combsns +++| ITEM TDAMLAD U(03,42,18); # LAST ACCESS DATE #
00149 M01S00117.combsns +++| ITEM TDAMACC U(04,42,18); # ACCESS COUNT #
00150 M01S00118.combsns +++| END
00151 M01S00119.combsns +++|
00152 M01S00120.combsns +++| END # COMBTDM #
00153 M01S00121.combsns +++|
00154 M01S00122.combsns +++| CONTROL LIST;