Loading...
Select Version
&pagelevel(4)&pagelevel
ERASE MF=D,VERSION=3
#INTF REFTYPE=REQUEST,INTNAME=ERASE,INTVERS=3
MFPRE MF=D,DMACID=D,DNAME=ERAPL,PREFIX=IER
IERERAPL DSECT ,
*,##### PREFIX=IER, MACID=D #####
*
IERERAST DS 0A
*
FHDR MF=(C,IER),EQUATES=NO
DS 0A
IERFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER
*
IERIFID DS 0A 0 INTERFACE IDENTIFIER
IERFCTU DS AL2 0 FUNCTION UNIT NUMBER
* BIT 15 HEADER FLAG BIT,
* MUST BE RESET UNTIL FURTHER NOTICE
* BIT 14-12 UNUSED, MUST BE RESET
* BIT 11-0 REAL FUNCTION UNIT NUMBER
IERFCT DS AL1 2 FUNCTION NUMBER
IERFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER
*
IERRET DS 0A 4 GENERAL RETURN CODE
IERSRET DS 0AL2 4 SUB RETURN CODE
IERSR2 DS AL1 4 SUB RETURN CODE 2
IERSR1 DS AL1 5 SUB RETURN CODE 1
IERMRET DS 0AL2 6 MAIN RETURN CODE
IERMR2 DS AL1 6 MAIN RETURN CODE 2
IERMR1 DS AL1 7 MAIN RETURN CODE 1
IERFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH
*
IERPNAM DC CL80' ' PATHNAME
*
*
IERACTIO DC AL1(0) ACTION -
IERSPCAT EQU 0 SPACE-CATALOG
IERSPACE EQU 1 SPACE
IERDATA EQU 2 DATA
IERCATLG EQU 3 CATALOG
IEREXPRT EQU 3 EXPORT
IERSPCEX EQU 4 DELETE-OR-EXPORT
*
IERATTR DC B'00000000' ATTRIBUTES -
IERDSTRO EQU X'80' 7-7 S DESTROY
IERMTALL EQU X'40' 6-6 S MOUNT ALL DISKS
IERMT1ST EQU X'40' 6-6 R MOUNT FIRST DISK
IERATTNU EQU X'3C' 5-2 R -- UNUSED, MUST BE 0 -- 210
IERTBLTI EQU X'02' 1-1 S TIME BASE LTI 210
IERKPACL EQU X'01' 0-0 S KEEP ACL
*
IERIGNOR DC B'00000000' IGNORE -
IERIGACC EQU X'80' 7-7 S ACCESS
IERIGRTP EQU X'40' 6-6 S EXPIRATION DATE
IERIGWRP EQU X'20' 5-5 S WRITE PASSWORD
IERIGRDP EQU X'10' 4-4 S READ PASSWORD
IERIGEXP EQU X'08' 3-3 S EXEC PASSWORD
IERIGNNU EQU X'07' 2-0 R -- UNUSED, MUST BE 0 --
*
IEROUTPT DC B'00000000' OUTPUT -
IERLIST EQU X'80' 7-7 S LIST ADDRESS IS GIVEN
IERLST@A EQU X'40' 6-6 R ABSOLUTE ADDRESS
IERLST@R EQU X'40' 6-6 S ADDRESS IN REGISTER
IERLST#A EQU X'20' 5-5 R ABSOLUTE LENGTH
IERLST#R EQU X'20' 5-5 S LENGTH IN REGISTER
IERLSTSY EQU X'10' 4-4 S ERRORS TO SYSOUT
IEROUTNU EQU X'0F' 3-0 R -- UNUSED, MUST BE 0 --
*
IERCHECK DC AL1(0) CHECK -
IERCKNO EQU 0 NO
IERCKERR EQU 1 ERROR
IERCKSIN EQU 2 SINGLE
IERCKMUL EQU 3 MULTIPLE
IERCKUID EQU 4 USERID
IERCKPVS EQU 5 PVS
IERCKSTD EQU 255 STD
*
IERFUT1 DC 3X'00' FOR FUTURE USE, MUST BE ZERO
*
IERLIST@ DC A(0) LIST ADDRESS
IERLIST# DC A(0) LIST SIZE
*
IERPWARR DC A(0,0,0) 3 PW'S
*
IERNSTEP DC Y(0,0,0) 3 ERR'S
*
IERPOSF DC B'00000000' POS-FLAG -
IERPOSB EQU X'80' 7-7 S POS=BEFORE
IERPOSA EQU X'40' 6-6 S POS=AFTER
IERPOSNU EQU X'3F' 5-0 R -- UNUSED, MUST BE 0 --
*
IERFUT2 DC 5X'00' FOR FUTURE USE, MUST BE ZERO
*
DMSSEL MF=D,PREFIX=IER,VERSION=3
MFCHK MF=C,SUPPORT=(D,C),PREFIX=I,MACID=XX,DMACID=YYY
DS 0F
*,##### PREFIX=I, MACID=XXY #####
*
*
DS 0A
*
IERSELI0 DC B'00000000' SELECT IND0
IERSIACC EQU X'80' ACCESS
IERSIBKP EQU X'40' BACKUP-LEVEL
IERSIFCB EQU X'20' FCBTYPE
IERSIPWP EQU X'10' PASSWORD-PROTECTED
IERSISHR EQU X'08' SHARE
IERSICRD EQU X'04' CREATION-DATE
IERSIEXD EQU X'02' EXPIRATION-DATE
IERSILAD EQU X'01' LAST-ACCESS-DATE
*
IERSELI1 DC B'00000000' SELECT IND1
IERSIEXT EQU X'80' EXTENTS
IERSIFSZ EQU X'40' FREESIZE
IERSISIZ EQU X'20' SIZE
IERSISUP EQU X'10' SUPPORT
IERSIVOL EQU X'08' VOLUME
IERSIACL EQU X'04' ACL
IERSIACT EQU X'02' ACCESS-COUNT
IERSIBAC EQU X'01' BASIC-ACL
*
15:29:06 2001-10-15 PAGE
0041
SOURCE STATEMENT
IERSELI2 DC B'00000000' SELECT IND2
IERSIBKC EQU X'80' BLOCK-CONTROL
IERSIBCT EQU X'40' BLOCK-COUNT
IERSIDWR EQU X'20' DISK-WRITE
IERSIGUA EQU X'10' GUARDS
IERSIIOP EQU X'08' IO-PERFORMANCE
IERSILCD EQU X'04' LAST-CHANGE-DATE
IERSIIOU EQU X'02' IO-USAGE
IERSILPA EQU X'01' LAST-PAGE
*
IERSELI3 DC B'00000000' SELECT IND3
IERSIMIG EQU X'80' MIGRATE
IERSIPRO EQU X'40' PROTECTION-LEVEL
IERSIRSP EQU X'20' RELEASE-SPACE
IERSISTA EQU X'10' STATE
IERSISTL EQU X'08' STORAGE-LEVEL
IERSITYP EQU X'04' TYPE
IERSICCS EQU X'02' CCS
IERSI3UU EQU X'01' -- UNUSED, MUST BE 0 --
* IERSELI4 DC B'00000000' SELECT IND4 200 IERSIVST EQU X'80' VOLUME-SET 200 IERSIWKF EQU X'40' WORK-FILE 200 IERSIAVA EQU X'20' AVAILABILITY 200 IERSIS0M EQU X'10' S0-MIGRATION 200 IERSIDLD EQU X'08' DELETION-DATE 200 IERSIUIN EQU X'04' USER-INFO 200 IERSIAIN EQU X'02' ADM-INFO 200 IERSI4UU EQU X'01' -- UNUSED, MUST BE 0 -- 200 * IERSELI5 DC B'00000000' SELECT IND5 200 IERSISCL EQU X'80' STORAGE-CLASS 200 IERSIMCL EQU X'40' MANAGEMENT-CLASS 200 IERSIPFO EQU X'20' FILE-PREFORMAT 220 IERSI5UU EQU X'1F' -- UNUSED, MUST BE 0 -- 220 * IERUNUS1 DC X'0000' 200 * IERACC DC A(0) ACCESS-COUNT - FROM IERACC2 DC A(0) - TO * IERBACL DC B'00000000' BASIC-ACL IERBACLY EQU X'80' YES IERBACLN EQU X'40' NONE IERBACLU EQU X'2F' -- UNUSED, MUST BE 0 -- * IERBOW DC B'00000000' BASIC-ACL-OWNER IERBOWRS EQU X'80' READ-RIGHT-SPECIFIED IERBOWWS EQU X'40' WRITE-RIGHT-SPECIFIED IERBOWXS EQU X'20' EXEC-RIGHT-SPECIFIED IERBOWRY EQU X'10' READ = YES IERBOWWY EQU X'08' WRITE = YES IERBOWXY EQU X'04' EXEC = YES IERBOWNO EQU X'02' NO-ACCESS IERBOWUU EQU X'01' -- UNUSED, MUST BE 0 -- * IERBGR DC B'00000000' BASIC-ACL-GROUP IERBGRRS EQU X'80' READ-RIGHT-SPECIFIED IERBGRWS EQU X'40' WRITE-RIGHT-SPECIFIED IERBGRXS EQU X'20' EXEC-RIGHT-SPECIFIED IERBGRRY EQU X'10' READ = YES IERBGRWY EQU X'08' WRITE = YES IERBGRXY EQU X'04' EXEC = YES IERBGRNO EQU X'02' NO-ACCESS IERBGRUU EQU X'01' -- UNUSED, MUST BE 0 -- * IERBOT DC B'00000000' BASIC-ACL-OTHERS
IERBOTRS EQU X'80' READ-RIGHT-SPECIFIED IERBOTWS EQU X'40' WRITE-RIGHT-SPECIFIED IERBOTXS EQU X'20' EXEC-RIGHT-SPECIFIED IERBOTRY EQU X'10' READ = YES IERBOTWY EQU X'08' WRITE = YES IERBOTXY EQU X'04' EXEC = YES IERBOTNO EQU X'02' NO-ACCESS IERBOTUU EQU X'01' -- UNUSED, MUST BE 0 -- * IERBKL DC B'00000000' BACKUP LEVEL FLAG IERBKLA EQU X'80' 7-7 S A IERBKLB EQU X'40' 6-6 S B IERBKLC EQU X'20' 5-5 S C IERBKLD EQU X'10' 4-4 S D IERBKLE EQU X'08' 3-3 S E IERBKLNU EQU X'07' 2-0 R -- UNUSED, MUST BE 0 -- * IERBLKCT DC B'00000000' BLKCTRL - IERBCTNN EQU X'80' 7-7 S NONE IERBCTPK EQU X'40' 6-6 S PAMKEY IERBCTDA EQU X'20' 5-5 S DATA2K IERBCTNO EQU X'10' 4-4 S NO IERBCTD4 EQU X'08' 3-3 S DATA4K IERBCTN2 EQU X'04' 2-2 S NK2 IERBCTN4 EQU X'02' 1-1 S NK4 IERBCTNU EQU X'01' 0-0 R -- UNUSED, MUST BE 0 -- * IERFUT3 DC X'0000' SPACE FOR FUTURE USE, MUST BE 0 * IERBLCT DC A(0) BLOCK-COUNT - FROM IERBLCT2 DC A(0) - TO * IERCRD DC CL10' ' CREATION DATE - FROM DATE IERCRT DC CL8' ' TIME IERCRD2 DC CL10' ' - TO DATE IERCRT2 DC CL8' ' TIME * IEREXD DC CL10' ' EXPIRATION DATE - FROM DATE IEREXT DC CL8' ' TIME IEREXD2 DC CL10' ' - TO DATE IEREXT2 DC CL8' ' TIME * IEREXS DC A(0) EXTENTS - FROM IEREXS2 DC A(0) - TO * IERFSIZE DC A(0) FSIZE - FROM IERFSIZ2 DC A(0) - TO *
IERDW DC B'00000000' DISK WRITE - IERDWIM EQU X'80' 7-7 S IMMEDIATE IERDWBC EQU X'40' 6-6 S BY-CLOSE IERDWNU EQU X'3F' 5-0 R -- UNUSED, MUST BE 0 -- * IERFCB DC B'00000000' FCB TYPE FLAG - IERFCBP EQU X'80' 7-7 S PAM IERFCBS EQU X'40' 6-6 S SAM IERFCBI EQU X'20' 5-5 S ISAM IERFCBB EQU X'10' 4-4 S BTAM IERFCBN EQU X'08' 3-3 S NONE IERFCBNU EQU X'07' 2-0 R -- UNUSED, MUST BE 0 -- * IERGUA DC B'00000000' GUARDS SPECIFIED FLAG IERGUARS EQU X'80' 7-7 S READ-SPECIFIED IERGUAWS EQU X'40' 6-6 S WRITE-SPECIFIED IERGUAXS EQU X'20' 5-5 S EXEC-SPECIFIED IERGUUNU EQU X'10' 4-4 S UNUSED, MUST BE ZERO -- 200 IERGUANS EQU X'08' 3-3 S GUARDS=NONE SPECIFIED IERGUAYS EQU X'04' 2-2 S GUARDS=YES SPECIFIED IERGUAUU EQU X'03' 1-0 R -- UNUSED, MUST BE ZERO -- IERGUAR DC CL18' ' GUARDS-READ IERGUAW DC CL18' ' GUARDS-WRITE IERGUAX DC CL18' ' GUARDS-EXEC * IERIP DC B'00000000' IO-PERFORMANCE IERIPVH EQU X'80' 7-7 S VERY-HIGH IERIPHI EQU X'40' 6-6 S HIGH IERIPST EQU X'20' 5-5 R STD IERIPNU EQU X'1F' 4-0 R -- UNUSED, MUST BE 0 -- * IERIU DC B'00000000' IO-USAGE IERIURW EQU X'80' 7-7 S READ-WRITE IERIURD EQU X'40' 6-6 S READ IERIUWR EQU X'20' 5-5 R WRITE IERIUNU EQU X'1F' 4-0 R -- UNUSED, MUST BE 0 -- * IERUNUS2 DC X'00' * IERLAD DC CL10' ' LAST ACCESS DATE - FROM DATE IERLAT DC CL8' ' TIME IERLAD2 DC CL10' ' - TO DATE IERLAT2 DC CL8' ' TIME * IERLAPA DC A(0) LAST-PAGE - FROM IERLAPA2 DC A(0) - TO * IERLCD DC CL10' ' LAST CHANGE DATE - FROM DATE
IERLCT DC CL8' ' TIME IERLCD2 DC CL10' ' - TO DATE IERLCT2 DC CL8' ' TIME * IERDLD DC CL10' ' DELETION DATE - FROM DATE 200 IERDLT DC CL8' ' TIME 200 IERDLD2 DC CL10' ' - TO DATE 200 IERDLT2 DC CL8' ' TIME 200 * IERMIGRT DC B'00000000' MIGRATE - IERMGALL EQU X'80' 7-7 S ALLOWED IERMGINH EQU X'20' 5-5 S INHIBIT IERMGFOB EQU X'10' 4-4 S FORBIDDEN 200 IERMGANY EQU X'B0' 7,4 R ANY 200 IERMIGNU EQU X'4F' 3-0 R -- UNUSED, MUST BE 0 -- 200 * IERPWP DC B'00000000' PW PROTECT FLAG - IERPWPRD EQU X'80' 7-7 S READ IERPWPWR EQU X'40' 6-6 S WRITE IERPWPEX EQU X'20' 5-5 S EXEC IERPWPNO EQU X'10' 4-4 S NONE IERPWPNU EQU X'0F' 3-0 R -- UNUSED, MUST BE 0 -- * IERPROL DC B'00000000' PROTECTION-LEVEL-FLAG IERPROL0 EQU X'80' 7-7 S LEVEL 0 IERPROL1 EQU X'40' 6-6 S LEVEL 1 IERPROL2 EQU X'20' 5-5 S LEVEL 2 IERPROUU EQU X'1F' 4-0 R -- UNUSED, MUST BE 0 -- * IERRLSP DC B'00000000' RELEASE-SPACE-FLAG IERRLSPA EQU X'80' 7-7 S ALLOWED IERRLSPI EQU X'40' 6-6 S IGNORED IERRLSPU EQU X'3F' 5-0 R -- UNUSED, MUST BE 0 -- 200 * IERSELF0 DC B'00000000' SELECT FLAG 0 - IERTYPEF EQU X'80' 7-7 S TYPE = FILE IERTYPEG EQU X'40' 6-6 S TYPE = FGG IERTYPEA EQU X'C0' 7-6 S TYPE = ANY IERTYPEP EQU X'20' 5-5 S TYPE = PLAM IERSTCNS EQU X'10' 4-4 S STATE/CACHE NOT SAV IERAVAST EQU X'08' 3-3 S AVAILABILITY = STD 200 IERAVAHI EQU X'04' 2-2 S AVAILABILITY = HIGH 200 IERSF0NU EQU X'03' 1-0 R -- UNUSED, MUST BE 0 -- 200 * IERSELF1 DC B'00000000' SELECT FLAG 1 - IERACCRD EQU X'80' 7-7 S ACCESS = READ IERACCWR EQU X'40' 6-6 S ACCESS = WRITE IERSHARY EQU X'20' 5-5 S SHARE = YES
IERSHARN EQU X'10' 4-4 S SHARE = NO IERSHARS EQU X'08' 3-3 S SHARE = SPECIAL IERACLY EQU X'04' 2-2 S ACL = YES IERACLN EQU X'02' 1-1 S ACL = NO IERSF1NU EQU X'01' 0-0 R -- UNUSED, MUST BE 0 -- * IERSELF2 DC B'00000000' SELECT FLAG 2 - IERSEQFS EQU X'80' 7-7 S SIZE = FSIZE IERFSEQS EQU X'40' 6-6 S FSIZE = SIZE IERCRDNO EQU X'20' 5-5 S CRDATE = NONE IEREXDNO EQU X'10' 4-4 S EXDATE = NONE IERLADNO EQU X'08' 3-3 S LADATE = NONE IERLCDNO EQU X'04' 2-2 S LCDATE = NONE IERDLDNO EQU X'02' 1-1 S DELDATE = NONE 200 IERSF2UU EQU X'01' 0-0 R -- UNUSED, MUST BE 0 -- 200 * IERSTA DC B'00000000' STATE FLAG - IERSTNOC EQU X'80' 7-7 S NOCLOS IERSTCLO EQU X'40' 6-6 S CLOSED IERSTREP EQU X'20' 5-5 S REPAIR NEEDED IERSTCAC EQU X'10' 4-4 S CACHED IERSTNCA EQU X'08' 3-3 S NOT CACHED IERSTNOA EQU X'04' 2-2 S NO OPEN ALLOWED IERSTOPA EQU X'02' 1-1 S OPEN ALLOWED IERSTDFR EQU X'01' 0-0 S DEFECT-REPORTED * IERSTLEV DC B'00000000' SLEVEL - IERSLVL0 EQU X'80' 7-7 S S0 IERSLVL1 EQU X'40' 6-6 S S1 IERSLVL2 EQU X'20' 5-5 S S2 IERSLANY EQU X'E0' 7-5 R ANY IERSLVNU EQU X'1F' 4-0 R -- UNUSED, MUST BE 0 -- * IERSUP DC B'00000000' SUPPORT TYPE FLAG - IERSUPPU EQU X'80' 7-7 S PUBLIC IERSUPPR EQU X'40' 6-6 S PRDISC IERSUPTP EQU X'20' 5-5 S TAPE IERSUPNU EQU X'1F' 4-0 R -- UNUSED, MUST BE 0 -- * IERSMS DC B'00000000' SMS FLAG - 200 IERS0MAL EQU X'80' 7-7 S S0-MIGRATION = ALLOWED 200 IERS0MFO EQU X'40' 6-6 S S0-MIGRATION = FORBIDDEN 200 IERWKFYE EQU X'20' 5-5 S WORK-FILE = YES 200 IERVCTRL EQU X'10' 4-4 S VOL-SET = CONTROL 210 IERSMSNU EQU X'0F' 3-0 R -- UNUSED, MUST BE 0 -- 210 * IERUNUS3 DC X'00' 200 *
IERSIZE DC A(0) SIZE - FROM IERSIZE2 DC A(0) - TO * IERVOL DC CL6' ' VOLUME IERCCS DC CL8' ' CODED-CHARACTER-SET IERVOLST DC CL4' ' VOLUME-SET (SMS) 200 IERUSINF DC CL8' ' USER-INFORMATION 200 IERADINF DC CL8' ' ADM-INFORMATION 200 IERMGMCL DC CL8' ' MANAGEMENT-CLASS 200 IERSTOCL DC CL8' ' STORAGE-CLASS 200 IERPFORM DC B'00000000' FILE-PREFORMAT 220 IERPFONO EQU X'80' 7-7 S NONE 220 IERPFOK EQU X'40' 6-6 S K 220 IERPFON2 EQU X'20' 5-5 S NK2 220 IERPFON4 EQU X'10' 4-4 S NK4 220 IERPFOAN EQU X'F0' 7-4 R ANY 220 IERPFOUN EQU X'0F' 3-0 R -- UNUSED, MUST BE 0 -- 220 IERFUT4 DC 61X'00' SPACE FOR FUTURE USE, MUST BE 0 IERPLLN EQU *-IERERAST LENGTH *