Date Tuesday Dec 19, 1978 12:19:00 PM
Loaded from MAINT(193)
R08993DS: ./ I 967000 $
R08993DS: SR RG9,RG9 INITIALIZE REG 9 @VA08993
R08993DS: ./ R 968000 $
R08993DS: ICM RG9,3,BUFFER+10 GET LENGTH OF MACRO DICT. @VA08993
BEGIN APPLY >>> ./ I 967000 $
END APPLY >>> ./ I 967000 $
BEGIN APPLY >>> ./ R 968000 $
END APPLY >>> ./ R 968000 $
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)
R12809DS: ./ I 00053000 $ 00053500 500
R12809DS: * LIBRARY IS ERASED IF LAST MEMBER IS DELETED @VA12809
R12809DS: ./ R 00186000 $ 00186000 500
R12809DS: * REMAIN IN THE LIBRARY FILE UNTIL COMPACTED. THE @VA12809
R12809DS: * LIBRARY IS ERASED IF THE LAST MEMBER IS DELETED. @VA12809
R12809DS: ./ I 00716000 $ 00716010 10
R12809DS: TM FLAG,NOMEMBER HAVE WE FOUND A MEMBER YET? @VA12809
R12809DS: BNO SRCHOVER YES, DON'T SEARCH ANY FURTHER @VA12809
R12809DS: CR RG7,RG9 ARE WE AT END OF DICTIONARY? @VA12809
R12809DS: BNL ERASELIB YES, NO MEMBERS LEFT, DELETE LIB @VA12809
R12809DS: SEEKMEMB EQU * @VA12809
R12809DS: CLC 0(8,RG7),=8X'00' IS THIS A NULL ENTRY? @VA12809
R12809DS: BE SKPRESET YES, GO SET UP FOR THE NEXT ONE @VA12809
R12809DS: NI FLAG,255-NOMEMBER NO, LIBRARY IS NOT EMPTY @VA12809
R12809DS: B SRCHOVER MEMBER FOUND, SEARCH OVER @VA12809
R12809DS: SKPRESET EQU * @VA12809
R12809DS: BXLE RG7,RG8,SEEKMEMB GO TRY THE NEXT ONE @VA12809
R12809DS: ERASELIB EQU * @VA12809
R12809DS: LA R1,OUT POINT TO OUTPUT FILE @VA12809
R12809DS: MVC 0(8,R1),=CL8'ERASE' SET UP TO ERASE LIBRARY @VA12809
R12809DS: SVC 202 AND DO IT @VA12809
R12809DS: DC AL4(*+4) @VA12809
R12809DS: B ERR213W GO TELL USER LIBRARY ERASED @VA12809
R12809DS: SRCHOVER EQU * @VA12809
R12809DS: ./ I 00998000 $ 00998500 500
R12809DS: OI FLAG,NOMEMBER IN CASE WE DELETE LAST MEMBER @VA12809
R12809DS: ./ I 01005000 $ 01005200 200
R12809DS: CLC 0(8,RG7),=8X'00' NO, THEN IS THIS A NULL ENTRY? @VA12809
R12809DS: BE CONTSEEK YES, KEEP LOOKING @VA12809
R12809DS: NI FLAG,255-NOMEMBER NO, SHOW LIB IS NOT EMPTY @VA12809
R12809DS: CONTSEEK EQU * @VA12809
R12809DS: ./ R 01039000 $ 01039000 500
R12809DS: DMSERR TEXT='LIBRARY ''........'' MACLIB NOT CREATED, OR ERASEX
R12809DS: D IF NO MEMBERS LEFT', @VA12809X
R12809DS: ./ I 01275800 $ 01275830 30
R12809DS: FLAG DC X'00' FLAG BYTE @VA12809
R12809DS: NOMEMBER EQU X'08' NO MEMBERS LEFT IN LIBRARY @VA12809
BEGIN APPLY >>> ./ I 00053000 $ 00053500 500
END APPLY >>> ./ I 00053000 $ 00053500 500
BEGIN APPLY >>> ./ R 00186000 $ 00186000 500
END APPLY >>> ./ R 00186000 $ 00186000 500
BEGIN APPLY >>> ./ I 00716000 $ 00716010 10
END APPLY >>> ./ I 00716000 $ 00716010 10
BEGIN APPLY >>> ./ I 00998000 $ 00998500 500
END APPLY >>> ./ I 00998000 $ 00998500 500
BEGIN APPLY >>> ./ I 01005000 $ 01005200 200
END APPLY >>> ./ I 01005000 $ 01005200 200
BEGIN APPLY >>> ./ R 01039000 $ 01039000 500
END APPLY >>> ./ R 01039000 $ 01039000 500
BEGIN APPLY >>> ./ I 01275800 $ 01275830 30
END APPLY >>> ./ I 01275800 $ 01275830 30
Update Succeeded
Update Execution Time 31 milliseconds.
Date Wednesday Aug 05, 1981 07:24:00 AM
Loaded from MAINT(193)
R13802DS: ./ R 01004000 01005000 $ 01004000 500
R13802DS: SEEKLP EQU * @VA13802
R13802DS: ./ I 01005800 $ 01005900 50
R13802DS: CLC 0(8,RG7),0(PLIST) IS THIS THE ONE @VA13802
R13802DS: BCR 8,SUBR BR ON YES @VA13802
BEGIN APPLY >>> ./ R 01004000 01005000 $ 01004000 500
END APPLY >>> ./ R 01004000 01005000 $ 01004000 500
BEGIN APPLY >>> ./ I 01005800 $ 01005900 50
END APPLY >>> ./ I 01005800 $ 01005900 50
Update Succeeded
Update Execution Time 16 milliseconds.
Date Sunday Mar 11, 2018 06:54:00 PM
Loaded from MAINT(093)
HRC015DS: ./ R 00931000 $ 00931100 100
HRC015DS: L TEMP,FVSFSTAD-STATEFST(TEMP) Get ADT for file HRC015DS
HRC015DS: ./ I 01350000 $ 01350100 100
HRC015DS: FVS HRC015DS
BEGIN APPLY >>> ./ R 00931000 $ 00931100 100
END APPLY >>> ./ R 00931000 $ 00931100 100
BEGIN APPLY >>> ./ I 01350000 $ 01350100 100
END APPLY >>> ./ I 01350000 $ 01350100 100
Update Succeeded
Update Execution Time 23 milliseconds.