ibm:vm370-lib:cms:dmsedi.assemble_hst
Table of Contents
DMSEDI History
References
- Fixes Applied : 15
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC342DS]
Update History
CMS File Input : DMSEDI ASSEMBLE
Date : 12/12/1978 8:25:00 AM
VM Context : MAINT(393)
File Name : DMSEDI.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- R09296DS 601 NEW DEVICE TYPE INFORMATION ON DIAGNOSE 24
- R08977DS 601 DMSEDI DOESN'T RECOGNIZE INVALID FN IN SAVE, FOLLOWED BY A QUIT
- R09399DS 602 DMSEDI SHOULD ACCEPT ANY CMD AFTER MSG 'RENUMBER LINES' IS ISSUED
- R09790DS 602 DMSEDI WAS MISSING SEQUENCE NUMBERS AFTER STATEMENT 4035100
- R09973DS 605 TAB CHARACTER REQUIRED WITH LINEMODE LEFT TO GET LEFT MARGIN
- R10651DS 611 PROMPT SUBCOMMAND ACCEPTS MORE THAN ONE OPERAND
- R11593DS 615 UV01696 EDIT SCROLL FOR D/T3278 INCORRECTLY SCROLLS 20 LINE
- R11911DS 617 UV02337 EDIT CHANGE COMMAND WRITTEN TO CURRENT LINE
- R12873DS 619 UV03882 SCROLL SUBCOMMAND OCCASIONALLY CAUSES ABEND0C5
- R12416DS 622 UV04650 DMSEDI NO MSDMSEDI069E FOR R(00036);
- HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
- HRC008DS V01 ALLOW CERTAIN COMMANDS TO WORK UPWARDS AS WELL AS FORWARD
- HRC340DS V01 HILIGHT CURRENT LINE
- HRC341DS V01 EDIT MULTIPLE FILES
- HRC342DS V01 RESTRUCTURE CSECTS AND USINGS
R09296DS
Date Thursday Jan 25, 1979 03:28:00 PM
Loaded from MAINT(193)
R09296DS: ./ R 3107000 $ 3107000 00001000
R09296DS: LH R2,CONSOLE GET CONSOLE ADDRESS @VA09296 00002000
R09296DS: ./ R 3110000 $ 3110000 00003000
R09296DS: DC X'83230024' DIAGNOSE FOR CONSOLE CLASS @VA09296 00004000
R09296DS: ./ R 3114000 3115000 $ 3114000 200 00005000
R09296DS: CLM R4,BIN1000,CLASTERM TERMINAL CLASS? @VA09296 00006000
R09296DS: BNER R5 NO -- ERROR @VA09296 00007000
R09296DS: CLM R4,BIN0100,TYP3275 3275 DISPLAY? @VA09296 00008000
R09296DS: BE FORMOK YES -- CONTINUE @VA09296 00009000
R09296DS: CLM R4,BIN0100,TYP3277 3277 DISPLAY? @VA09296 00010000
R09296DS: BE FORMOK YES -- CONTINUE @VA09296 00011000
R09296DS: CLM R4,BIN0100,TYP3278 3278 DISPLAY? @VA09296 00012000
R09296DS: BNER R5 NO -- ERROR @VA09296 00013000
R09296DS: ./ R 3134000 $ 3134000 50 00014000
R09296DS: TYP3275 DC X'02' 3275 DISPLAY STATION @VA09296 00015000
R09296DS: TYP3277 DC X'04' 3277 DISPLAY STATION @VA09296 00016000
R09296DS: TYP3278 DC X'01' 3278 DISPLAY STATION @VA09296 00017000
R09296DS: CLASTERM DC X'80' TERMINAL CLASS @VA09296 00018000
R09296DS: ./ I 4352000 $ 4352100 00019000
R09296DS: BIN0100 EQU B'0100' @VA09296 00020000
BEGIN APPLY >>> ./ R 3107000 $ 3107000 00001000
END APPLY >>> ./ R 3107000 $ 3107000 00001000
BEGIN APPLY >>> ./ R 3110000 $ 3110000 00003000
END APPLY >>> ./ R 3110000 $ 3110000 00003000
BEGIN APPLY >>> ./ R 3114000 3115000 $ 3114000 200 00005000
END APPLY >>> ./ R 3114000 3115000 $ 3114000 200 00005000
BEGIN APPLY >>> ./ R 3134000 $ 3134000 50 00014000
END APPLY >>> ./ R 3134000 $ 3134000 50 00014000
BEGIN APPLY >>> ./ I 4352000 $ 4352100 00019000
END APPLY >>> ./ I 4352000 $ 4352100 00019000
Update Succeeded
Update Execution Time 47 milliseconds.
R08977DS
Date Tuesday Jan 30, 1979 05:11:00 PM
Loaded from MAINT(193)
R08977DS: ./ D 3813000 3823000 $
R08977DS: ./ I 3856000 $ 3856050 50
R08977DS: LA R1,IOLIST POINT TO PARAMETER LIST @VA08977
R08977DS: SSM DISABLE DISABLE INTERRUPTS @VA08977
R08977DS: MVC IOID(IDL18),NEWNAME MOVE IN NEW FILEID @VA08977
R08977DS: L R15,ASTATE STATE FUNCTION WILL @VA08977
R08977DS: BALR R14,R15 VALIDATE FILEID @VA08977
R08977DS: SSM FE ENABLE INTERRUPTS @VA08977
R08977DS: CLM R15,BIN0001,INVCHAR RETURN CODE 20? @VA08977
R08977DS: BE ALTERR YES,INVALID ID @VA08977
R08977DS: ./ I 4035100
R08977DS: DMSKEY RESET RESET KEY @VA08977
BEGIN APPLY >>> ./ D 3813000 3823000 $
END APPLY >>> ./ D 3813000 3823000 $
BEGIN APPLY >>> ./ I 3856000 $ 3856050 50
END APPLY >>> ./ I 3856000 $ 3856050 50
BEGIN APPLY >>> ./ I 4035100
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 4035100
Update Succeeded
Update Execution Time 31 milliseconds.
R09399DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09399DS: ./ R 287500 $ 287500 100
R09399DS: BNO NOPURGE NO,DON'T CHECK FOR INP.LINES @VA09399
R09399DS: CLC NUMFINRD(2),=H'00' ARE THERE ANY FINISHED READS @VA09399
R09399DS: BH NEXT10 YES..PURGE INPUT LINES, @VA09399
R09399DS: NI UTILFLAG,255-LINSEQ ELSE RESET ERROR FLAG... @VA09399
R09399DS: NOPURGE EQU * @VA09399
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R09790DS 4/20/1979 4:19:00 AM from MAINT(193)
R09790DS: ./ R 4035100 4036000 $ 4035250 250
R09790DS: SSM FE ENABLE INTERRUPTS @VA09790
R09790DS: DMSKEY RESET RESET KEY @VA09790
R09790DS: BAL 4,KTCLR CLEAR THE 'KT' FLAG @VA09790
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R09973DS 10/9/1979 9:06:00 AM from MAINT(193)
R09973DS: ./ I 1208000 $ 1208150 150
R09973DS: TM FLAG3,LMLMARG MARGIN WITH LINEMODE LEFT? @VA09973
R09973DS: BZ NOTAB NO, USE FIRST TAB SETTING @VA09973
R09973DS: TM CHNGFLAG,DTYPE CHANGE WITH DISPLAY MODE? @VA09973
R09973DS: BO NOTAB YES, ALSO FIRST TAB SETTING @VA09973
R09973DS: IC R2,TABS+1 USE SECOND TAB FOR USER MARGIN @VA09973
R09973DS: LA R4,1(,R4) ADJUST FOR ADDITIONAL TABS @VA09973
R09973DS: ./ I 2712000 $ 2712500
R09973DS: NI FLAG3,255-LMLMARG CLEAR INDICATOR @VA09973
R09973DS: ./ I 2741300 $ 2741375
R09973DS: OI FLAG3,LMLMARG INDICATE USER MARGIN @VA09973
R09973DS: ./ I 3046500 $ 3046750
R09973DS: NI FLAG3,255-LMLMARG CLEAR INDICATOR @VA09973
R09973DS: ./ I 3057660 $ 3057690
R09973DS: OI FLAG3,LMLMARG INDICATE USER MARGIN @VA09973
R09973DS: ./ I 4287000 $ 4287100 100
R09973DS: SPACE
R09973DS: * BITS FOR FLAG3...
R09973DS: SPACE
R09973DS: LMLMARG EQU X'80' MARGIN WITH LINEMODE LEFT @VA09973
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R10651DS 4/9/1980 4:01:00 AM from MAINT(193)
R10651DS: ./ I 2970000 $ 2970500 500
R10651DS: BAL 14,PARMCHK CHECK IF ANY MORE PARMS @VA10651
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R11593DS 7/31/1980 7:30:00 AM from MAINT(193)
R11593DS: ./ R 4231000 $ 4231000 100
R11593DS: IC R5,TYPSCR LOAD MODEL NUMBER @VA11593
R11593DS: SH R5,TWO COMPUTE SCREEN SIZE INDEX @VA11593
R11593DS: MH R5,FOUR ........ @VA11593
R11593DS: L R5,SCRSIZSZ(R5) AND CALCULATE FIELD OFFEST TO @VA11593
R11593DS: LH R5,SCRSIZE(R5) GET CORRECT SCREEN SIZE @VA11593
R11593DS: ./ R 4235000 4236000 $ 4235000 500
R11593DS: SRL R5,ONE LINE SIZE IS HALF FOR GT 80 @VA11593
R11593DS: SNGL EQU * @VA11593
R11593DS: ./ I 4257000 $ 4257100 100
R11593DS: *** THE FOLLOWING DC'S ESTABLISH A TABLE TO FIND THE CORRECT
R11593DS: *** SCREEN SIZE FOR THE TERMINALS/CONSOLES THAT MAY BE USED.
R11593DS: SCRSIZE DC H'20' LINE COUNT FOR 3277 @VA11593
R11593DS: SCRSIZLG EQU *-SCRSIZE USED TO INCREMENT INTO TABLE @VA11593
R11593DS: DC H'28' LINE COUNT FOR 3278 MODEL 3 @VA11593
R11593DS: DC H'39' LINE COUNT FOR 3278 MODEL 4 @VA11593
R11593DS: DC H'16' LINE COUNT FOR 3278 MODEL 2A @VA11593
R11593DS: SCRSIZSZ DC A(0,SCRSIZLG,SCRSIZLG*2,SCRSIZLG*3) INDEX ADDRS @VA11593
R11593DS: SPACE 1
R11593DS: ./ I 4265000 $ 4265100 100
R11593DS: ONE EQU 1 VALUE 1 @VA11593
R11593DS: TWO DC H'2' HALFWORD 2 @VA11593
R11593DS: FOUR DC H'4' HALFWORD 4 @VA11593
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R11911DS 11/13/1980 11:13:00 AM from MAINT(193)
R11911DS: ./ I 1931000 $ 1931500 500
R11911DS: BAL R4,STACKCLR CLEAR CONSOLE STACK @VA11911
R11911DS: ./ I 1933500 $ 1933750 250
R11911DS: BAL R4,STACKCLR CLEAR CONSOLE STACK @VA11911
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R12873DS 3/10/1981 3:10:00 AM from MAINT(193)
R12873DS: ./ I 4230000 $ 4230500 500
R12873DS: XR R5,R5 CLEAR REGISTER BEFORE USING IT @VA12873
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI R12416DS 6/30/1981 6:18:00 AM from MAINT(193)
R12416DS: ./ I 156000 $ 156500 100
R12416DS: * 36 TARGET DISK NOT ACCESSED @VA12416
R12416DS: * @VA12416
R12416DS: ./ I 3669000 $ 3669500 100
R12416DS: CH R15,=H'36' WAS DISK NOT ACCESSED? @VA12416
R12416DS: BE ERRMSG36 GIVE MSG @VA12416
R12416DS: ./ I 4103000 $ 4103300 100
R12416DS: ERRMSG36 EQU * @VA12416
R12416DS: LA R0,CMODE POINT TO MODE LETTER @VA12416
R12416DS: DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69, X
R12416DS: LET=E,SUB=(CHARA,((R0),1)),TYPCALL=SVC @VA12416
R12416DS: LA R15,36 GIVE RETCODE @VA12416
R12416DS: B INVREQX AND GO RETURN TO CALLER @VA12416
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI HRC002DS 3/4/2006 12:29:00 PM from MAINT(093)
HRC002DS: ./ R 01569000 $ 1569490 490 03/04/06 12:29:49
HRC002DS: TRUNCX DC C'Truncated' HRC002DS 01569000
HRC002DS: ./ R 01572000 $ 1572490 490 03/04/06 12:29:49
HRC002DS: FLDNTFND DC C'not found' HRC002DS 01572000
HRC002DS: ./ R 01834000 $ 1834490 490 03/04/06 12:29:49
HRC002DS: NOSTR DC C'String not found, no deletions made.' HRC002DS 01834000
HRC002DS: ./ R 02328000 $ 2328490 490 03/04/06 12:29:49
HRC002DS: ZONERRMS DC C'ZONE Error' HRC002DS 02328000
HRC002DS: ./ R 02759000 $ 2759490 490 03/04/06 12:29:49
HRC002DS: SERBMSG DC C'Wrong file format for linemode RIGHT' HRC002DS 02759000
HRC002DS: ./ R 02953000 02955000 $ 2953690 690 03/04/06 12:29:49
HRC002DS: NOSPACE DC C'Renumber lines' HRC002DS 02953000
HRC002DS: NONOS DC C'Maximum line number exceeded' HRC002DS 02954000
HRC002DS: NUMBAD DC C'Non-numeric character in line number columns' HRC002DS 02955000
HRC002DS: ./ R 03207000 $ 3207490 490 03/04/06 12:29:49
HRC002DS: STKBSTMS DC C'Too many lines to STACK' HRC002DS 03207000
HRC002DS: ./ R 03315000 $ 3315490 490 03/04/06 12:29:49
HRC002DS: KILMES DC C'STACKed lines cleared' HRC002DS 03315000
HRC002DS: ./ R 03477000 $ 3477490 490 03/04/06 12:29:49
HRC002DS: SEROFFMS DC C'Serialization turned OFF for V format' HRC002DS 03477000
HRC002DS: ./ R 03616000 03618000 $ 3616690 690 03/04/06 12:29:49
HRC002DS: TRUNCMES DC C'Trunc set to 72' HRC002DS 03616000
HRC002DS: ZONMES DC C'End Zone set to 72' HRC002DS 03617000
HRC002DS: BADFMES DC C'Wrong file format for serialization' HRC002DS 03618000
HRC002DS: ./ R 03748000 03753000 $ 3748790 790 03/04/06 12:29:49
HRC002DS: REACHEOF DC C'EOF reached' HRC002DS 03748000
HRC002DS: GETFERRM DC C'Read error - GETFILE is incomplete' HRC002DS 03749000
HRC002DS: GETFOFMS DC C'GETFILE is incomplete' HRC002DS 03750000
HRC002DS: FILNTFND DC C'File not found' HRC002DS 03751000
HRC002DS: BADGETIT DC C'Record length of file too large' HRC002DS 03752000
HRC002DS: GETFSHT DC C'Given starting line is beyond EOF' HRC002DS 03753000
HRC002DS: ./ R 03765000 03783000 $ 3765790 790 03/04/06 12:29:49
HRC002DS: CLC =C'* ',CMODE IS THIS '*' HRC002DS
HRC002DS: BE CONT2 YES, CONTINUE HRC002DS
HRC002DS: CLC =C' ',CMODE IS IT BLANK? HRC002DS
HRC002DS: BE CONT0 YES, HRC002DS
HRC002DS: CLI CMODE,C'A' 'A' ? HRC002DS 03765000
HRC002DS: BLR R14 < 'A' ERROR HRC002DS 03766000
HRC002DS: CLI CMODE,C'I' 'I' ? HRC002DS 03765000
HRC002DS: BNH CONT1 <= 'I' O.K. HRC002DS 03766000
HRC002DS: CLI CMODE,C'J' 'J' ? HRC002DS
HRC002DS: BLR R14 < 'J' ERROR HRC002DS
HRC002DS: CLI CMODE,C'R' 'R' ? HRC002DS
HRC002DS: BNH CONT1 <= 'R' O.K. HRC002DS
HRC002DS: CLI CMODE,C'S' 'S' ? HRC002DS 03768000
HRC002DS: BLR R14 < 'S' ERROR HRC002DS 03769000
HRC002DS: CLI CMODE,C'Z' 'Z' ? HRC002DS 03770000
HRC002DS: BNH CONT1 <= 'Z' O.K. HRC002DS 03771000
HRC002DS: BR R14 RETURN WITH ERROR CC HRC002DS 03774000
HRC002DS: CONT0 MVC CMODE(2),=C'* ' TREAT LIKE * HRC002DS
HRC002DS: B CONT2 HRC002DS
HRC002DS: CONT1 CLI CMODE+1,C'5' MODE NUMBER GT '5' HRC002DS 03782000
HRC002DS: BHR R14 IF SO, ERROR RETURN HRC002DS 03783000
HRC002DS: ./ R 03787000 $ 3787490 490 03/04/06 12:29:49
HRC002DS: BNER R14 ERROR IF NOT BLANK HRC002DS 03787000
HRC002DS: ./ R 03790000 03793000 $ 3790790 790 03/04/06 12:29:49
HRC002DS: BNER R14 IF SO, ERROR RETURN HRC002DS 03790000
HRC002DS: SR R15,R15 OTHERWISE, 15 = 0 HRC002DS 03791000
HRC002DS: LTR R15,R15 CC = 0 HRC002DS 03792000
HRC002DS: BR R14 NORMAL RETURN... HRC002DS 03793000
HRC002DS: ./ R 04082000 $ 4082490 490 03/04/06 12:29:49
HRC002DS: NULLMES DC C'File is empty' HRC002DS 04082000
HRC002DS: ./ R 04085000 04087000 $ 4085590 590 03/04/06 12:29:49
HRC002DS: SERPRESS DC C'Reserialization supressed' HRC002DS 04085000
HRC002DS: SERMS DC C'Serialization is incomplete' HRC002DS 04086000
HRC002DS: DISKMS DC C'Set new file mode, or enter CMS SUBSET and clear some *04087000
HRC002DS: space' HRC002DS 04087000
HRC002DS: ./ R 04098000 04099000 $ 4098590 590 03/04/06 12:29:49
HRC002DS: DMSERR NUM=105,LET=S,SUB=(DEC,(2),CHAR8A,IOID),TEXT='Error ''.*04098000
HRC002DS: ..'' writing file ''....................'' on disk', *04099000
HRC002DS: ./ R 04103500 $ 4103540 40 03/04/06 12:29:49
HRC002DS: DMSERR TEXT='Disk ''..'' not accessed',NUM=69, X04103500
HRC002DS: ./ R 04130000 04131000 $ 4130590 590 03/04/06 12:29:49
HRC002DS: CORFLMS DC C'Available storage is now full' HRC002DS 04130000
HRC002DS: NOROOM DC C'No room' HRC002DS 04131000
HRC002DS: ./ R 04217000 $ 4217490 490 03/04/06 12:29:49
HRC002DS: NORNE DC C'RENUM module not found' HRC002DS 04217000
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI HRC008DS 2/10/2006 10:02:00 AM from MAINT(093)
HRC008DS: ./ R 01513000 $ 1513490 490 02/10/06 10:02:39
HRC008DS: REQ TYPE,1,PRINT,UP ALLOW TYPE AND TYPEUP HRC008DS 01513000
HRC008DS: ./ R 01515000 $ 1515490 490 02/10/06 10:02:39
HRC008DS: REQ DELETE,3,DELETE,UP ALLOW DELETE AND DELETEUP HRC008DS 01515000
HRC008DS: ./ R 01520000 $ 1520490 490 02/10/06 10:02:39
HRC008DS: REQ FIND,1,,UP ALLOW FIND AND FINDUP HRC008DS 01520000
HRC008DS: ./ R 01522000 01524000 $ 1522690 690 02/10/06 10:02:39
HRC008DS: REQ LOCATE,1,,UP ALLOW LOCATE AND LOCATEUP HRC008DS 01522000
HRC008DS: REQ ALTER,2,,UP ALLOW ALTER AND ALTERUP HRC008DS 01523000
HRC008DS: REQ CHANGE,,,UP ALLOW CHANGE AND CHANGEUP HRC008DS 01524000
HRC008DS: ./ R 01536000 $ 1536490 490 02/10/06 10:02:39
HRC008DS: REQ STACK,5,,UP ALLOW STACK AND STACKUP HRC008DS 01536000
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI HRC340DS 10/14/2008 8:38:00 PM from MAINT(093)
HRC340DS: ./ *
HRC340DS: ./ * ALWAYS RE-DISPLAY CURRENT LINE ON ITS OWN
HRC340DS: ./ * *AFTER RE-DISPLAY OF SCREEN
HRC340DS: ./ *
HRC340DS: ./ I 01452000 $ 01452100 100
HRC340DS: MVI SCRFLG2,X'40' RE-WRITE CURRENT LINE
HRC340DS: L R15,=V(DMSSCR)
HRC340DS: BALR R14,R15 LOAD BUFFERS AND DISPLAY
HRC340DS: ./ I 02498000 $ 02498010 010
HRC340DS: MVI SCRFLGS,WRSTATB REWRITE STATUS LINE
HRC340DS: VERIFY RETURN=NEXT
HRC340DS: ./ I 02560000 $ 02560010 010
HRC340DS: MVI SCRFLGS,WRSTATB REWRITE STATUS LINE
HRC340DS: VERIFY RETURN=NEXT
HRC340DS: ./ I 02604000 $ 02604010 010
HRC340DS: MVI SCRFLGS,WRSTATB REWRITE STATUS LINE
HRC340DS: VERIFY RETURN=NEXT
HRC340DS: ./ I 02609000 $ 02609010 010
HRC340DS: MVI SCRFLGS,WRSTATB REWRITE STATUS LINE
HRC340DS: VERIFY RETURN=NEXT
HRC340DS: ./ I 03536000 $ 03536010 010
HRC340DS: MVI SCRFLGS,WRFULLB+WRSTATB
HRC340DS: VERIFY RETURN=NEXT
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI HRC341DS 8/16/2009 7:47:00 PM from MAINT(093)
HRC341DS: ./ * ************* GG928D0 00001000
HRC341DS: ./ * * GG928D0 00002000
HRC341DS: ./ * * GG928D0S 1/8/77 GG928D0 00003000
HRC341DS: ./ * * GG928D0 00004000
HRC341DS: ./ * * IMPLEMENT RECURSIVE EDITING UP TO NINE LEVELS DEEP GG928D0 00005000
HRC341DS: ./ * * GG928D0 00006000
HRC341DS: ./ * ************* GG928D0 00007000
HRC341DS: ./ D 00227000 00227000 $ 02381000
HRC341DS: ./ D 00661000 00661000 $ 06820000
HRC341DS: ./ I 00665000 $ 0665100 0100 06850000
HRC341DS: CLC FWDPNT,=F'0' ARE THERE UPPER LVLS? GG928D0
HRC341DS: BNZ XWRNO YES, GO GIVE HIM HELL GG928D0
HRC341DS: ./ I 00673000 $ 0673100 0100 06930000
HRC341DS: BCTR R14,0 DECREMENT SPARE COUNT GG928D0
HRC341DS: ST R14,SPARES AND STORE AS NEW VALUE GG928D0
HRC341DS: ./ I 00702000 $ 0702100 0100 07220000
HRC341DS: SPACE 1 GG928D0
HRC341DS: XWRNO EQU *
HRC341DS: * NI CHNGFLAG,255-ESCAPER TURN OFF INPUT ESCAPE GG928D0
HRC341DS: NI FLAG2,255-INMODE TURN OFF INPUT MODE GG928D0
HRC341DS: OI SCRFLGS,WRTOPB WRITE FULL SCREEN GG928D0
HRC341DS: WTYPE XWRMSG,52,RETURN=PEDIT1 GG928D0
HRC341DS: SPACE 1 GG928D0
HRC341DS: XWRMSG DC C'THIS LVL IS PROTECTED, USE ''RESET'' TO' GG928D0
HRC341DS: DC C' ALLOW UPDATING' GG928D0
HRC341DS: ./ I 01410000 $ 01410070 070 14400000
HRC341DS: TM FLAG2,TUBE IS THIS A TUBE? GG928D0
HRC341DS: BO RDOIT YES, DON'T PROMPT GG928D0
HRC341DS: CLI EDITLVL,C'1' ARE WE AT LEVEL 1? GG928D0
HRC341DS: BE RDOIT YES, DON'T PROMPT WITH LEVEL NO. GG928D0
HRC341DS: L R1,AFSTFNRD LOOKED FOR STACKED INPUT LINES GG928D0
HRC341DS: ICM R1,15,0(R1) ARE THERE ANY? GG928D0
HRC341DS: BNZ RDOIT YES, DON'T PROMPT GG928D0
HRC341DS: LR R5,R14 SAVE RETURN GG928D0
HRC341DS: OI TYPFLG,CRBIT SUPRESS CARR. RETURN GG928D0
HRC341DS: WTYPE EDITLVL,1 WRITE THE LEVEL NO. GG928D0
HRC341DS: NI TYPFLG,255-CRBIT GG928D0
HRC341DS: LR R14,R5 GG928D0
HRC341DS: RDOIT EQU * GG928D0
HRC341DS: ./ I 01554000 $ 01554010 0010 15833500
HRC341DS: REQ EDIT,1,EDRECUR,,CSECT=MISSECT
HRC341DS: REQ LVL,2,LVL,,CSECT=MISSECT
HRC341DS: ./ I 01643000 $ 01643100 0100 16730000
HRC341DS: MVI 4(R3),X'FF' INDICATE THIS IS A SPARE GG928D0
HRC341DS: ./ I 02428000 $ 02428001 1 24600000
HRC341DS: EJECT GG928D0
HRC341DS: ************************************************************** GG928D0
HRC341DS: * GG928D0
HRC341DS: * EDRECUR - RECURSIVE EDITING UP TO NINE LEVELS DEEP GG928D0
HRC341DS: * GG928D0
HRC341DS: ************************************************************** GG928D0
HRC341DS: SPACE 1 GG928D0
HRC341DS: EDRECUR DS 0H GG928D0
HRC341DS: ICM R1,15,FWDPNT IS THERE A HIGHER LEVEL? GG928D0
HRC341DS: BNZ EDRERR3 YES, THE CLOD IS SCREWED UP GG928D0
HRC341DS: ICM R1,15,FPTR IS REORG. NEEDED? GG928D0
HRC341DS: BZ EDR012 NO, NO SLOTS UNFILLED ON THE CHA GG928D0
HRC341DS: * SET UP TO PACK ALL LINES INTO TOP OF LINE STORAGE GG928D0
HRC341DS: L R1,LINSTART GET ADR OF START OF LINE STORAGE GG928D0
HRC341DS: L R2,AEXTEND ADDR OF START OF UNUSED STORAGE GG928D0
HRC341DS: L R4,CORITEM LINE LENGTH + POINTERS GG928D0
HRC341DS: BCTR R4,0 DECREMENT FOR MOVES GG928D0
HRC341DS: SR R3,R3 INDICATE FIRST PASS GG928D0
HRC341DS: * GG928D0
HRC341DS: * FIND A SPARE LINE (UNUSED BUT HAS BEEN USED) GG928D0
HRC341DS: * GG928D0
HRC341DS: EDR001 CR R1,R2 HAVE WE GONE THRU ALL USED STORA GG928D0
HRC341DS: BNL EDR010 YES, ALL DONE GG928D0
HRC341DS: CLI 4(R1),X'FF' IS THIS A SPARE? GG928D0
HRC341DS: BE EDR004 YES GG928D0
HRC341DS: LA R1,1(R1,R4) INCREMENT TO NEXT LINE GG928D0
HRC341DS: B EDR001 GG928D0
HRC341DS: * GG928D0
HRC341DS: EDR004 LTR R3,R3 IS THIS FIRST PASS? GG928D0
HRC341DS: BNZ EDR006 NOPE GG928D0
HRC341DS: LR R3,R1 POINT TO GG928D0
HRC341DS: LA R3,1(R3,R4) NEXT SLOT GG928D0
HRC341DS: * GG928D0
HRC341DS: EDR006 CR R3,R2 HAVE WE GONE THRU ALL USED STORA GG928D0
HRC341DS: BNL EDR010 YES GG928D0
HRC341DS: CLI 4(R3),X'FF' IS THIS A SPARE? GG928D0
HRC341DS: BNE EDR008 NO, MUST BE A VALID LINE GG928D0
HRC341DS: LA R3,1(R3,R4) INCREMENT TO NEXT LINE GG928D0
HRC341DS: B EDR006 GG928D0
HRC341DS: * GG928D0
HRC341DS: * MOVE VALID LINE UP INTO SPARE SLOT GG928D0
HRC341DS: * GG928D0
HRC341DS: EDR008 EX R4,EDRMOVE MOVE THE LINE AND POINTERS GG928D0
HRC341DS: ICM R5,15,4(R3) POINT TO 'BACK' LINE GG928D0
HRC341DS: ST R1,0(R5) STORE NEW FWD PTR IN 'BACK' LINE GG928D0
HRC341DS: ICM R5,15,0(R3) POINT TO FWD LINE GG928D0
HRC341DS: BZ *+12 SKIP IF ZERO GG928D0
HRC341DS: ST R1,4(,R5) STORE NEW BACK PTR IN FWD LINE GG928D0
HRC341DS: B *+8 GG928D0
HRC341DS: ST R1,PTR3 SET NEW BOTTOM POINTER GG928D0
HRC341DS: C R3,PTR2 WERE WE MOVING THE CURRENT LINE? GG928D0
HRC341DS: BNE *+8 NOPE GG928D0
HRC341DS: ST R1,PTR2 STORE NEW CURRENT LINE POINTER GG928D0
HRC341DS: MVI 4(R3),X'FF' MAKE THE OLD SLOT A SPARE GG928D0
HRC341DS: LA R1,1(R1,R4) INCREMENT TO NEXT LINE GG928D0
HRC341DS: LA R3,1(R3,R4) GG928D0
HRC341DS: B EDR001 GO SEARCH FOR NEXT SPARE GG928D0
HRC341DS: * GG928D0
HRC341DS: EDR010 XC FPTR,FPTR SHOW NO SPARES ON CHAIN GG928D0
HRC341DS: ST R1,AEXTEND STORE NEW START OF UNUSED STORAG GG928D0
HRC341DS: EDR012 LA R1,21 CHECK TO SEE IF THERES ROOM FOR GG928D0
HRC341DS: C R1,SPARES AT LEAST 21 SPARES GG928D0
HRC341DS: BH EDRBUST NOT ENUFF ROOM FOR NEXT LEVEL GG928D0
HRC341DS: L R1,SPARES GET NUMBER OF SLOTS LEFT GG928D0
HRC341DS: SRL R1,4 GET 6.25 PERCENT OF THEM GG928D0
HRC341DS: CH R1,=H'21' IS IT AT LEAST 21? GG928D0
HRC341DS: BNL EDR014 YES, GO SET THEM UP GG928D0
HRC341DS: LA R1,21 LAST CHANCE GG928D0
HRC341DS: EDR014 L R2,AEXTEND MAKE UP THE NEW SLOTS GG928D0
HRC341DS: XC 0(4,R2),0(R2) ZERO THE FWD POINTER GG928D0
HRC341DS: MVI 4(R2),X'FF' MAKE IT A SPARE GG928D0
HRC341DS: BCTR R1,0 DECREMENT DUE TO 1ST SLOT GG928D0
HRC341DS: EDR016 LR R3,R2 SAVE CURR. SLOT GG928D0
HRC341DS: A R2,CORITEM MOVE TO NEXT SLOT GG928D0
HRC341DS: ST R3,0(,R2) STORE THE FWD POINTER GG928D0
HRC341DS: MVI 4(R2),X'FF' MAKE IT A SPARE GG928D0
HRC341DS: BCT R1,EDR016 GG928D0
HRC341DS: * GG928D0
HRC341DS: ST R2,AEXTEND NEW STORAGE LIMIT GG928D0
HRC341DS: ST R3,FPTR SLOT CHAIN POINTER GG928D0
HRC341DS: SR R2,R13 SEE IF THERES NOW ENUFF STORAGE GG928D0
HRC341DS: L R1,FREELEN GO TO NEXT LEVEL GG928D0
HRC341DS: SR R1,R2 GG928D0
HRC341DS: LA R2,EDCBLTH+500 NEED A LITTLE STORAGE GG928D0
HRC341DS: CR R1,R2 WE HAVE ENUFF? GG928D0
HRC341DS: BL EDRBUST DIDN'T MAKE IT AFTER ALL THAT GG928D0
HRC341DS: CLI EDITLVL,C'9' CAN'T GO HIGHER THAN 9 GG928D0
HRC341DS: BE EDRERR AT THE LIMIT GG928D0
HRC341DS: MVC TABLIN(L'TABLIN),TABLIN-1 CLEAR FOR UPCASE GG928D0
HRC341DS: OC TABLIN(L'TABLIN),EDLIN MAKE UPPER CASE GG928D0
HRC341DS: LA R1,LDMDLIST POINT TO LOADMOD LIST GG928D0
HRC341DS: SVC 202 LOAD 'EDIT' MODULE GG928D0
HRC341DS: DC AL4(*+4) GG928D0
HRC341DS: LA R1,TABLIN POINT TO START OF CMND LINE GG928D0
HRC341DS: LH R0,COUNT TOTAL COMMND LENGTH GG928D0
HRC341DS: DMSKEY NUCLEUS GG928D0
HRC341DS: L R15,ASCANN SCAN ROUTINE GG928D0
HRC341DS: BALR R14,R15 GG928D0
HRC341DS: DMSKEY RESET GG928D0
HRC341DS: LR R2,R1 POINT TO THE 'REAL' CMND LINE GG928D0
HRC341DS: LNR R1,R13 MAKE R1 NEG. TO SHOW RECUR. GG928D0
HRC341DS: L R15,=XL4'0000E000' ADDR OF TRANS AREA GG928D0
HRC341DS: BALR R14,R15 GO TO 'EDIT' AGAIN GG928D0
HRC341DS: XC FWDPNT,FWDPNT ZERO THE FORWARD POINTER GG928D0
HRC341DS: B REFRESH GG928D0
HRC341DS: * GG928D0
HRC341DS: EDRERR WTYPE EDRMSG,,RETURN=NEXT GG928D0
HRC341DS: * GG928D0
HRC341DS: EDRBUST WTYPE EDRMSG2,,RETURN=NEXT GG928D0
HRC341DS: * GG928D0
HRC341DS: EDRERR3 WTYPE EDRMSG3,,RETURN=NEXT GG928D0
HRC341DS: EDRMOVE MVC 0(*-*,R1),0(R3) GG928D0
HRC341DS: * GG928D0
HRC341DS: EDRMSG DC C'MAX. EDIT LEVELS EXCEEDED' GG928D0
HRC341DS: EDRMSG3 DC C'**ERROR** A HIGHER LEVEL ALREADY EXISTS' GG928D0
HRC341DS: EDRMSG2 DC C'INSUFF. STORAGE TO EDIT NEXT LVL' GG928D0
HRC341DS: SPACE 1 GG928D0
HRC341DS: LDMDLIST DS 0D GG928D0
HRC341DS: DC CL8'LOADMOD' GG928D0
HRC341DS: DC CL8'EDIT' GG928D0
HRC341DS: DC 4X'FF' GG928D0
HRC341DS: ./ I 02481000 $ 02481010 010 25130000
HRC341DS: EJECT GG928D0
HRC341DS: ************************************************************** GG928D0
HRC341DS: * GG928D0
HRC341DS: * 'LVL' - SWITCH EDITING LEVELS WHICH ALREADY EXIST GG928D0
HRC341DS: * GG928D0
HRC341DS: ************************************************************** GG928D0
HRC341DS: SPACE 1 GG928D0
HRC341DS: LVL LA R2,1 ASSUME DEFAULT OF LVL 1 GG928D0
HRC341DS: CLC FWDPNT,=F'0' IS THERE A HIGHER LEVEL? GG928D0
HRC341DS: BZ LVLNRM NO DO NORMALLY GG928D0
HRC341DS: IC R2,EDITLVL GET CURRENT LEVEL GG928DO
HRC341DS: N R2,=XL4'0000000F' AS INTEGER GG928DO
HRC341DS: A R2,=F'1' NEXT LEVEL GG928DO
HRC341DS: LVLNRM DS 0H GG928DO
HRC341DS: SR R3,R3 INDICATE NO RESET WANTED GG928D0
HRC341DS: BAL R14,NUM FIND DESIRED LVL NUMBER GG928D0
HRC341DS: B LVLRESET GO CHECK FOR 'RESET' GG928D0
HRC341DS: BM LVLFND2 GO TO LVL 1, NOTHING ENTERED GG928D0
HRC341DS: BZ INVREQ CAN'T GO TO LVL 0 GG928D0
HRC341DS: LR R2,R0 LVL NO. NOW IN R2 GG928D0
HRC341DS: CH R2,=H'9' CAN'T BE HIGHER THAN 9 GG928D0
HRC341DS: BH EDRERR 'MAX. EDIT LEVELS EXCEEDED' GG928D0
HRC341DS: BAL R14,GET LOOK FOR 'RESET' GG928D0
HRC341DS: BZ LVLFND2 NOTHING THERE GG928D0
HRC341DS: LVLRESET CLI XXXCWD,C'R' WANTS TO RESET? GG928D0
HRC341DS: BNE INVREQ BAD NEWS AT THE FOUNDARY GG928D0
HRC341DS: BCTR R3,0 INDICATE WANTS TO RESET, ALLOW U GG928D0
HRC341DS: LVLFND2 LR R4,R13 POINT TO CURR. LVL EDCB GG928D0
HRC341DS: IC R0,EDITLVL DETERMINE HOW MANY LEVELS TO GG928D0
HRC341DS: N R0,=XL4'0000000F' MOVE GG928D0
HRC341DS: SR R2,R0 GG928D0
HRC341DS: LA R5,BACKPNT-EDCB GET SET TO MOVE BACKWARD GG928D0
HRC341DS: BZ LVLFOUND NO NEED TO MOVE, WE'RE THERE GG928D0
HRC341DS: BM *+8 WE ARE GOING DOWN IN LEVEL GG928D0
HRC341DS: LA R5,FWDPNT-EDCB GO FORWARD GG928D0
HRC341DS: LPR R2,R2 MAKE DIFFERENCE IN LVLS POSITIVE GG928D0
HRC341DS: AR R4,R5 ADD DISPLACEMENT INTO WORKAREA GG928D0
HRC341DS: ICM R4,15,0(R4) GET NEW POINTER GG928D0
HRC341DS: BZ LVLERR MUST BE GOING FORWARD OFF THE EN GG928D0
HRC341DS: BCT R2,*-10 GG928D0
HRC341DS: * GG928D0
HRC341DS: LVLFOUND MVC GETPUT-EDCB(1,R4),GETPUT CARRY ALONG GET/PUT FL GG928D0
HRC341DS: LR R13,R4 LOAD NEW EDCB POINTER GG928D0
HRC341DS: LTR R3,R3 DOES HE WANT TO BE PROTECTED? GG928D0
HRC341DS: BZ LVL6 YES, DON'T ALLOW UPDATING GG928D0
HRC341DS: XC FWDPNT,FWDPNT ELIMINATE ALL HIGHER LVLS GG928D0
HRC341DS: * TYPE OUT THE LVL NO. AND THE FILENAME, FTYPE AND MODE GG928D0
HRC341DS: LVL6 TM FLAG2,TUBE THIS A TUBE? GG928D0
HRC341DS: BO REFRESH YES, GO SHOW NEW FN, FTY GG928D0
HRC341DS: MVC EDLIN,EDLIN-1 CLEAR THE AREA GG928D0
HRC341DS: MVC EDLIN(3),=C'LVL' GG928D0
HRC341DS: MVC EDLIN+4(1),EDITLVL LEVEL NO. GG928D0
HRC341DS: MVC EDLIN+6(8),FNAME CURR. FILENAME GG928D0
HRC341DS: MVC EDLIN+15(8),FTYPE CURR. FILETYPE GG928D0
HRC341DS: MVC EDLIN+24(2),FMODE CURR. FILEMODE GG928D0
HRC341DS: * GG928D0
HRC341DS: VTYPE EDLIN,32,RETURN=NEXT GG928D0
HRC341DS: * GG928D0
HRC341DS: LVLERR WTYPE LVLMSG,,RETURN=NEXT GG928D0
HRC341DS: * GG928D0
HRC341DS: LVLMSG DC C'REQUESTED LVL DOES NOT EXIST' GG928D0
HRC341DS: ./ I 03260000 $ 03260030 030 33353000
HRC341DS: CLI 0(R1),C'E' MIGHT POSSIBLY BE 'EDIT'? GG928D0
HRC341DS: BE EDTCHK MAYBE, GO CHK IT OUT GG928D0
HRC341DS: ./ I 03268000 $ 03268010 010
HRC341DS: CMS3 ICM R1,B'1000',=X'0C' SET FLAGS FOR ERROR MSGS GG928D0
HRC341DS: ./ I 03273000 $ 03273008 08 33377000
HRC341DS: EDTCHK LA R15,7(R1) POINT TO END OF 1ST ARG GG928D0
HRC341DS: CLI 0(R15),C' ' BACKSCAN FOR NON-BLANK GG928D0
HRC341DS: BNE *+8 GG928D0
HRC341DS: BCT R15,*-8 GG928D0
HRC341DS: SR R15,R1 CALC. LENGTH - 1 GG928D0
HRC341DS: EX R15,EDTCHK1 COMPARE WITH 'EDIT' GG928D0
HRC341DS: BNE CMS3 IT'S OK GG928D0
HRC341DS: B INVREQ GIVE THE RASPBERRY GG928D0
HRC341DS: * GG928D0
HRC341DS: EDTCHK1 CLC 0(*-*,R1),=CL8'EDIT' GG928D0
HRC341DS: * GG928D0
HRC341DS: ./ D 03693000 03693000 $ 37710000
HRC341DS: ./ R 03696000 03700000 $ 03700010 0010 37780000
HRC341DS: LA R1,IOLIST POINT TO PARAMETER LIST, GG928D0
HRC341DS: MVC IOLIST(8),=CL8'RDBUF' GG928D0
HRC341DS: SVC 202 CALL 'RDBUF' GG928D0
HRC341DS: DC AL4(*+4) GG928D0
HRC341DS: LTR R15,R15 CHECK FOR ERROR GG928D0
HRC341DS: ./ R 03712000 03717000 $ 03712010 0010 37951000
HRC341DS: LA R1,IOLIST POINT TO PARAMETER LIST, GG928D0
HRC341DS: MVC IOLIST(8),=CL8'FINIS' GG928D0
HRC341DS: SVC 202 CALL 'FINIS' GG928D0
HRC341DS: DC AL4(*+4) GG928D0
HRC341DS: LTR R15,R15 CHECK FOR ERROR GG928D0
HRC341DS: ./ I 04142000 $ 04142010 010 42205330
HRC341DS: CLI EDITLVL,C'1' ARE WE AT LVL 1? GG928D0
HRC341DS: BNE EDEXIT3 NO, DON'T ERASE 'PUT' UTILITY FI GG928D0
HRC341DS: ./ I 04152000 $ 04152010 10 42209501
HRC341DS: EDEXIT3 EQU * GG928D0
HRC341DS: ./ I 04154000 $ 04154010 0010 42340000
HRC341DS: CLI EDITLVL,C'1' ARE WE AT LVL 1? GG928D0
HRC341DS: BNE DOSFOK2 NO, SO DON'T FREE STORAGE GG928D0
HRC341DS: ./ I 04160000 $ 04160010 0010 42400000
HRC341DS: DMSEXS OI,MISFLAGS,RELPAGES SET RELPAGE SW ON GG928D0
HRC341DS: ./ R 04164000 04165000 $ 04164010 0010 42450000
HRC341DS: DOSFOK2 EQU * GG928D0
HRC341DS: ICM R15,15,BACKPNT LOAD THE EDCB REG GG928D0
HRC341DS: BZ *+10 NO BACK POINTER GG928D0
HRC341DS: MVC GETPUT-EDCB(1,R15),GETPUT CARRY ALONG GET/PUT F GG928D0
HRC341DS: LR R13,R15 GG928D0
HRC341DS: ./ * CONVERTED 11/04/80 BY P-E / BMARSH
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Loaded Update: DMSEDI HRC342DS 10/16/2008 10:35:00 PM from MAINT(093)
HRC342DS: ./ * ************* GG922D0 00001000
HRC342DS: ./ * * GG922D0 00002000
HRC342DS: ./ * * GG922D0S 9/26/77 GG922D0 00003000
HRC342DS: ./ * * CLEAN-UP AND USE MULTIPLE CSECTS THROUGHOUT GG922D0 00004000
HRC342DS: ./ * * GG922D0 00005000
HRC342DS: ./ * * SET PF KEYS WHEN TABBING COMMAND ISSUED GG922D0 00006000
HRC342DS: ./ * * GG922D0 00007000
HRC342DS: ./ * ************* GG922D0 00008000
HRC342DS: ./ R 00018000 $ 018010 0010 00290000
HRC342DS: &LOC REQ &NAME,&MIN,&ADDR,&TRAV,&CSECT=
HRC342DS: ./ R 00020000 $ 020010 0010 00310000
HRC342DS: LCLC &A,&B GG922D0
HRC342DS: ./ R 00034000 $ 34010 0010 00450000
HRC342DS: &B SETC 'EDIT' GG922D0
HRC342DS: AIF (N'&CSECT EQ 0).SEQ4 GG922D0
HRC342DS: &B SETC '&CSECT' GG922D0
HRC342DS: .SEQ4 ANOP GG922D0
HRC342DS: &LOC DC AL1(&M,&L,&K)
HRC342DS: DC C'&NAME'
HRC342DS: DC AL2(&A-&B)
HRC342DS: DC AL2(A&B-ATABLE)
HRC342DS: ./ R 00228000 $ 0228010 0010 02390000
HRC342DS: L R12,=A(FILSECT) GET THE RIGHT CSECT FOR 'FE GG922D0
HRC342DS: SSM FE-FILSECT(R12) ALLOW INPUT WHILE EDITTING GG922D0
HRC342DS: ./ R 00297000 $ 0297000 0010 03170000
HRC342DS: BZ NEXT12 TOKEN NUMERIC - FIND L GG922D0
HRC342DS: ./ I 00307000 $ 0307010 0010 03270000
HRC342DS: NEXT12 L R12,=A(CASSECT) GG922D0
HRC342DS: B SFIND-CASSECT(,R12) GG922D0
HRC342DS: ./ D 00333000 00333000 $ 03530000
HRC342DS: ./ D 00335000 00345000 $ 03650000
HRC342DS: ./ R 00357000 $ 0357010 0010 03770000
HRC342DS: REQLP1 LA R2,7(R15,R2) GG922D0
HRC342DS: ./ D 00360000 00360000 $ 03800000
HRC342DS: ./ D 00364000 00372000 $ 03920000
HRC342DS: ./ R 00375000 $ 0375010 0010 03950000
HRC342DS: LH R12,2(R2) GG922D0
HRC342DS: L R12,ATABLE(R12) SET UP FOR DIFFERENT CSEC GG922D0
HRC342DS: AR R15,R12 GET OFFSET INTO CSECT GG922D0
HRC342DS: ./ R 00451000 $ 0451010 0010 04710000
HRC342DS: BM INP3 GO TO PROMPTING ROUTIN GG922D0
HRC342DS: ./ I 00465000 $ 0465010 0010 04850000
HRC342DS: INP3 L R12,=A(CASSECT) GG922D0
HRC342DS: B PROMPTER-CASSECT(,R12) GG922D0
HRC342DS: ./ R 00606000 00607000 $ 0606010 0010 06280000
HRC342DS: L R12,=A(DELSECT) GG922D0
HRC342DS: BCT R0,TYPIN-DELSECT(,R12) GG922D0
HRC342DS: B LOCFND1-DELSECT(,R12) GG922D0
HRC342DS: ./ R 00724000 $ 0724010 0010 07440000
HRC342DS: ST R12,REG14 SAVE R12 TEMPORARILY GG922D0
HRC342DS: L R12,=A(FILSECT) GG922D0
HRC342DS: B FILE1-FILSECT(,R12) GG922D0
HRC342DS: ./ I 01345000 $ 01345010 010 13750000
HRC342DS: ************************************************************** GG922D0
HRC342DS: * GG922D0
HRC342DS: * 'BINDEC' CONVERTS THE BINARY CONTENTS OF R0 TO PACKED GG922D0
HRC342DS: *DECIMAL AND EDITS THIS DATA, PROVIDING (ONLY) THE LOW-ORDER F GG922D0
HRC342DS: * CHARACTERS FOR TYPING. THE ZONED DATA IS AVAILABLE GG922D0
HRC342DS: * IN THE FIELD 'AREA' UPON RETURN FROM BINDEC. GG922D0
HRC342DS: * BINDEC IS CALLED BY 'TRUNCIT', 'ZONE', 'VERIFY' AND GG922D0
HRC342DS: * 'CHANGE'. GG922D0
HRC342DS: * GG922D0
HRC342DS: ************************************************************** GG922D0
HRC342DS: BINDEC DS 0H GG922D0
HRC342DS: CVD 0,DECIMAL GG922D0
HRC342DS: MVC AREA(8),PATTERN SUPPLY EDIT PATTERN GG922D0
HRC342DS: ED AREA(8),HALF EDIT ALL DIGITS GG922D0
HRC342DS: BR 14 RETURN TO CALLER GG922D0
HRC342DS: PATTERN DC X'4020202020202021' EDIT PATTERN GG922D0
HRC342DS: ./ R 01502000 01505000 $ 01502010 0010 15350000
HRC342DS: REQ OVERLAY,1,OVRLAY,,CSECT=MISSECT GG922D0
HRC342DS: REQ X,1,XXX,,CSECT=MISSECT GG922D0
HRC342DS: REQ Y,1,YYY,,CSECT=MISSECT GG922D0
HRC342DS: REQ ?,1,QUERY,,CSECT=FILSECT GG922D0
HRC342DS: ./ I 01507000 $ 01507010 0010 15370000
HRC342DS: * REQ AGAIN,,,,CSECT=MISSECT * not yet impl GG922D0
HRC342DS: * REQ RUN,2,,,CSECT=MISSECT * not yet impl GG922D0
HRC342DS: * REQ APPEND,2,,,CSECT=MISSECT * not yet impl GG922D0
HRC342DS: ./ R 01514000 01535000 $ 01514010 0010 15650000
HRC342DS: REQ UP,,BACKWD,,CSECT=DELSECT GG922D0
HRC342DS: REQ TOP,2,,,CSECT=DELSECT GG922D0
HRC342DS: REQ DELETE,2,DELETE,,CSECT=DELSECT GG922D0
HRC342DS: REQ DSTRING,2,DSTRING,,CSECT=DELSECT GG922D0
HRC342DS: REQ BOTTOM,,,,CSECT=DELSECT GG922D0
HRC342DS: REQ NEXT,1,NEXLIN,,CSECT=DELSECT GG922D0
HRC342DS: REQ DOWN,1,NEXLIN,,CSECT=DELSECT GG922D0
HRC342DS: REQ FIND,1,FIND,,CSECT=DELSECT GG922D0
HRC342DS: REQ /,1,PRELOC,,CSECT=DELSECT GG922D0
HRC342DS: REQ LOCATE,,,,CSECT=DELSECT GG922D0
HRC342DS: REQ ALTER,2,,,CSECT=DELSECT GG922D0
HRC342DS: REQ CHANGE,1,CHANGE,,CSECT=DELSECT GG922D0
HRC342DS: REQ TRUNC,2,TRUNCIT,,CSECT=MISSECT GG922D0
HRC342DS: REQ ZONE,,,,CSECT=MISSECT GG922D0
HRC342DS: REQ TABSET,3,,,CSECT=MISSECT GG922D0
HRC342DS: REQ CASE,2,,,CSECT=CASSECT GG922D0
HRC342DS: REQ IMAGE,2,,,CSECT=CASSECT GG922D0
HRC342DS: REQ VERIFY,,,,CSECT=FILSECT GG922D0
HRC342DS: REQ LONG,4,,,CSECT=FILSECT GG922D0
HRC342DS: REQ SHORT,5,,,CSECT=FILSECT GG922D0
HRC342DS: REQ PRESERVE,3,,,CSECT=MISSECT GG922D0
HRC342DS: REQ RESTORE,3,,,CSECT=MISSECT GG922D0
HRC342DS: ./ R 01538000 01541000 $ 01541010 0010 15710000
HRC342DS: REQ FNAME,2,NAME,,CSECT=FILSECT GG922D0
HRC342DS: REQ FMODE,2,MODE,,CSECT=FILSECT
HRC342DS: REQ RECFM,4,RECFORM,,CSECT=FILSECT
HRC342DS: REQ SERIAL,3,,,CSECT=FILSECT
HRC342DS: ./ R 01543000 01552000 $ 01543000 0010 15820000
HRC342DS: REQ QUIT,2 GG922D0
HRC342DS: REQ GETFILE,2,,,CSECT=PUTSECT GG922D0
HRC342DS: REQ SAVE,2,,CSECT=FILSECT GG922D0
HRC342DS: REQ FILE,3,,CSECT=FILSECT GG922D0
HRC342DS: REQ LINEMODE,5,,,CSECT=CASSECT GG922D0
HRC342DS: REQ PROMPT,6,,,CSECT=MISSECT GG922D0
HRC342DS: REQ AUTOSAVE,4,,,CSECT=MISSECT GG922D0
HRC342DS: REQ SCROLL,2,,UP GG922D0
HRC342DS: REQ SD,2,SCROLL GG922D0
HRC342DS: REQ SU,2,SCROLLUP GG922D0
HRC342DS: REQ FORWARD,2,NEXLIN,,CSECT=DELSECT GG922D0
HRC342DS: REQ BACKWARD,2,BACKWD,,CSECT=DELSECT GG922D0
HRC342DS: ./ R 01554000 01554000 $ 01554001 0001 15833500
HRC342DS: * REQ SIZE,2,,,CSECT=DELSECT GG922D0
HRC342DS: REQ FORMAT,4,FORMAT GG922D0
HRC342DS: * REQ GOTO,1,,,CSECT=DELSECT GG922D0
HRC342DS: * REQ LINENO,2,LINENUMB,,CSECT=DELSECT GG922D0
HRC342DS: * REQ PUTD,2,,,CSECT=PUTSECT GG922D0
HRC342DS: ./ I 01555000 $ 01555010 0002 15850000
HRC342DS: ATABLE DS 0F TABLE OF ALL THE CSECTS GG922D0
HRC342DS: ADELSECT DC A(DELSECT) GG922D0
HRC342DS: APUTSECT DC A(PUTSECT) GG922D0
HRC342DS: AFILSECT DC A(FILSECT) GG922D0
HRC342DS: AMISSECT DC A(MISSECT) GG922D0
HRC342DS: ACASSECT DC A(CASSECT) GG922D0
HRC342DS: AEDIT DC A(EDIT) GG922D0
HRC342DS: ./ D 01556000 01556000 $ 16030000
HRC342DS: ./ I 01580000 $ 01580010 0010 16090000
HRC342DS: LTORG GG922D0
HRC342DS: DELSECT CSECT GG922D0
HRC342DS: USING DELSECT,R12 GG922D0
HRC342DS: ./ I 01804000 $ 01804010 0010 18340000
HRC342DS: PUTLOC DS 0H GG922D0
HRC342DS: * BAL 14,XLOCATE4 LOCATE THE STRING FOR PUT(D) GG922D0
HRC342DS: PUTSTR DS 0H GG922D0
HRC342DS: L R12,=A(PUTSECT) GO BACK TO PUTSTRING GG922D0
HRC342DS: * B PUTSTR1-PUTSECT(,R12) GG922D0
HRC342DS: ./ D 01835000 01855000 $ 18850000
HRC342DS: ./ I 02237000 $ 02237010 0010 22690000
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: DMSEDI CSECT GG922D0
HRC342DS: ./ I 02329000 $ 02329010 0010 23610000
HRC342DS: LTORG GG922D0
HRC342DS: MISSECT CSECT GG922D0
HRC342DS: USING MISSECT,R12 GG922D0
HRC342DS: ./ D 02512000 02528000 $ 25600000
HRC342DS: ./ R 02578000 02578000 $ 02578010 02 26081872
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: EJECT GG922D0
HRC342DS: CASSECT CSECT GG922D0
HRC342DS: USING CASSECT,R12 GG922D0
HRC342DS: SPACE , GG922D0
HRC342DS: ./ I 02955070 $ 02955071 0002 30000000
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: MISSECT CSECT GG922D0
HRC342DS: USING MISSECT,R12 GG922D0
HRC342DS: ./ R 03020000 $ 03020010 0010 30660000
HRC342DS: AUTOFF CLC XXXCWD(4),AOFF ONLY 'OFF' ALLOWED GG922D0
HRC342DS: ./ R 03028000 $ 03028010 0010 30740000
HRC342DS: BZ AUTOFF1 GG922D0
HRC342DS: ./ I 03029000 $ 03029010 0010 30750000
HRC342DS: AUTOFF1 L R12,=A(CASSECT) GG922D0
HRC342DS: BZ LMW2-CASSECT(,R12) BR. IF NO ENTRY GG922D0
HRC342DS: ./ I 03031000 $ 03031010 0010 30770000
HRC342DS: AOFF DC CL5'OFF' GG922D0
HRC342DS: ./ R 03045000 03046000 $ 03046010 0010 30920000
HRC342DS: B TABSPFKR GO CHECK FOR PFK GG922D0
HRC342DS: BL TABSDSPY GO DISPLAY TABS GG922D0
HRC342DS: MVC PFTABNO(2),=CL2'10' SET DEFAULT TO PF10 GG922D0
HRC342DS: ./ R 03066000 $ 03066005 005 31300000
HRC342DS: TABSET4 BAL R6,TABSCAN GET TABS FILLED IN GG922D0
HRC342DS: B PFTABNOE NO TABS GG922D0
HRC342DS: LA R4,PFSETCMD GET BEGINNING GG922D0
HRC342DS: LA R5,PFTABSET-PFSETCMD ADDED LENGTH GG922D0
HRC342DS: AR R5,R0 LENGTH OF TAB STRING GG922D0
HRC342DS: DIAG R4,R5,8 ISSUE CONSOLE COMMAND GG922D0
HRC342DS: LTR R5,R5 ANY ERROR GG922D0
HRC342DS: BZ NEXT EVERYTHING OK GG922D0
HRC342DS: PFTABNOE MVI PFTABNO,X'40' BAD ERROR GG922D0
HRC342DS: WTYPE NOPFK,,RETURN=NEXT GG922D0
HRC342DS: TABSDSPY BAL R6,TABSCAN GO FILL BUFFER GG922D0
HRC342DS: B NEXT NO TABS FOUND GG922D0
HRC342DS: TM FLAG2,REMOTE+TUBE A TUBE OR REMOTE? GG922D0
HRC342DS: BZ TABSNPFK NEITHER, DON'T SHOW PFK GG922D0
HRC342DS: CLI PFTABNO,X'40' HAS PFK BEEN SET GG922D0
HRC342DS: BE TABSNPFK NONE SET GG922D0
HRC342DS: LA R1,PFTABNO-2 SET UP NEW WRITE GG922D0
HRC342DS: LR R5,R0 GG922D0
HRC342DS: LA R0,9(R5) GG922D0
HRC342DS: TABSNPFK LA R14,NEXT GG922D0
HRC342DS: B WRTYPE TYPE MESSAGE GG922D0
HRC342DS: TABSPFKR CLC XXXCWD(2),=C'PF' IS IT PFK GG922D0
HRC342DS: BNE INVREQ NO MUST BE IN ERROR GG922D0
HRC342DS: BAL R14,NUM GET PFK NUMBER GG922D0
HRC342DS: B INVREQ NOT NUMERIC GG922D0
HRC342DS: BL INVREQ NOT GIVEN GG922D0
HRC342DS: MVC PFTABNO(2),XXXCWD MOVE IN PFKEY NO. GG922D0
HRC342DS: CLI PFTABNO+1,C' ' KEY NO. LESS THAN 10? GG922D0
HRC342DS: BNE *+14 NOPE, OK GG922D0
HRC342DS: MVC PFTABNO+1(1),XXXCWD MOVE JUST 1 DIGIT GG922D0
HRC342DS: MVI PFTABNO,C'0' LEADING ZERO GG922D0
HRC342DS: BAL R14,NUM GET NEXT ARGUMENT GG922D0
HRC342DS: B INVREQ NON-NUMERIC GG922D0
HRC342DS: BL INVREQ NONE THERE GG922D0
HRC342DS: B TABBIG CONTINUE CHECKS GG922D0
HRC342DS: TABSCAN SR R3,R3 CLEAR REG GG922D0
HRC342DS: LA R1,PFTABSET POINT TO COMND LIST GG922D0
HRC342DS: LA R0,25 MAX. NUMBER OF TABS GG922D0
HRC342DS: SR R2,R2 GG922D0
HRC342DS: CPTABS IC R2,TABS(R3) PICK UP THE TAB SETTING GG922D0
HRC342DS: LTR R2,R2 END OF TAB LIST? GG922D0
HRC342DS: BE DONETABS YES GG922D0
HRC342DS: * CVD R2,AREA CONV TABS TO EBCDIC GG922D0
HRC342DS: MVC 0(4,R1),=X'40202120' SET UP FOR EDIT GG922D0
HRC342DS: ED 0(4,R1),AREA+6 GG922D0
HRC342DS: CLI 1(R1),C' ' BLANK? GG922D0
HRC342DS: BNE *+12 GG922D0
HRC342DS: MVC 1(2,R1),2(R1) PACK IT UP A LITTLE GG922D0
HRC342DS: BCTR R1,0 GG922D0
HRC342DS: LA R1,4(,R1) POINT TO NEXT SLOT GG922D0
HRC342DS: LA R3,1(,R3) GG922D0
HRC342DS: BCT R0,CPTABS GG922D0
HRC342DS: * GG922D0
HRC342DS: DONETABS LR R0,R1 END OF CMND GG922D0
HRC342DS: LA R1,PFTABSET POINT TO COMND STRING GG922D0
HRC342DS: SR R0,R1 COMND LENGTH GG922D0
HRC342DS: B 4(,R6) RETURN TO CALLER GG922D0
HRC342DS: NOPFK DC C'PFK NOT SET' GG922D0
HRC342DS: SPACE 2 GG922D0
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: DMSEDI CSECT GG922D0
HRC342DS: ./ I 03344000 $ 03344010 0010 34200000
HRC342DS: LTORG GG922D0
HRC342DS: FILSECT CSECT GG922D0
HRC342DS: USING FILSECT,R12 GG922D0
HRC342DS: ./ R 03417000 $ 03417010 0010 34930000
HRC342DS: BNZ MODE1 ERROR IF CC IS -VE GG922D0
HRC342DS: ./ I 03420000 $ 03420010 0010 34960000
HRC342DS: MODE1 L R12,=A(FILSECT) GG922D0
HRC342DS: B MODERR-FILSECT(,R12) GG922D0
HRC342DS: ./ D 03430000 03437000 $ 35130000
HRC342DS: ./ R 03457000 $ 03457010 0010 35330000
HRC342DS: RECVER L R12,=A(FILSECT) VERIFY IF TUBE TERMINAL GG922D0
HRC342DS: B VERSTAT-FILSECT(,R12) GG922D0
HRC342DS: ./ R 03464000 $ 03464100 0010 35450000
HRC342DS: WTYPE SERCMSG,,RETURN=NEXT V200713
HRC342DS: ./ R 03469000 $ 03469100 0010 35450000
HRC342DS: BZ RECVER VERIFY IF TUBE TERMINAL GG922D0
HRC342DS: ./ I 03477490 $ 03477500 0010
HRC342DS: SERCMSG DC C'WRONG FILE FORMAT FOR LINEMODE RIGHT' HRC002DS
HRC342DS: ./ R 03494000 $ 03494010 0010
HRC342DS: VEROFFCK CLC XXXCWD(4),VOFF WAS 'OFF' SPECIFIED ? V2D3914
HRC342DS: ./ R 03499000 $ 03499010 0010
HRC342DS: VERONCK CLC XXXCWD(4),VON WAS 'OFF' SPECIFIED ? V2D3914
HRC342DS: ./ R 03567000 $ 03567010 0010
HRC342DS: CLC XXXCWD(4),VOFF WAS 'OFF' SPECIFIED ? V2D3914
HRC342DS: ./ R 03572000 $ 03572010 0010
HRC342DS: CLC XXXCWD(4),VON WAS 'ON' SPECIFIED ? V2D3914
HRC342DS: ./ I 03618070 $ 03618080 0010
HRC342DS: VOFF DC CL5'OFF' V200706
HRC342DS: VON DC CL5'ON' V200706
HRC342DS: ./ I 03619000 $ 03619010 0010 36950000
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: PUTSECT CSECT GG922D0
HRC342DS: USING PUTSECT,R12 GG922D0
HRC342DS: ./ R 03653000 $ 03653010 0010 37290000
HRC342DS: BNZ GETMODE1 ERROR IF MODE INVALID GG922D0
HRC342DS: ./ * R 03696000 $ 03696010 0010
HRC342DS: ./ * SSM GDIS DISABLE INTERRUPTS VA05354
HRC342DS: ./ * R 03700000 $ 03700010 0010
HRC342DS: ./ * SSM GFE ENABLE INTERRUPTS VA05354
HRC342DS: ./ * R 03712000 $ 03712010 0010
HRC342DS: ./ * SSM GDIS DISABLE INTERRUPTS VA05354
HRC342DS: ./ * R 03716000 $ 03716010 0010
HRC342DS: ./ * SSM GFE ENABLE INTERRUPTS VA05354
HRC342DS: ./ I 03752740 $ 03753010 0010 38310000
HRC342DS: GFE DC X'FE'
HRC342DS: GDIS DC X'00'
HRC342DS: GETMODE1 L R12,=A(FILSECT) GG922D0
HRC342DS: B MODERR-FILSECT(,R12) GG922D0
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: DMSEDI CSECT GG922D0
HRC342DS: ./ I 03794000 $ 03794010 0010 38740000
HRC342DS: LTORG GG922D0
HRC342DS: FILSECT CSECT GG922D0
HRC342DS: USING FILSECT,R12 GG922D0
HRC342DS: ./ I 03983000 $ 03983010 010 40610000
HRC342DS: TM TWITCH,NULL NULLFILE? GG922D0
HRC342DS: BO ZERAUTO2 YES, DON'T WRITE MSG GG922D0
HRC342DS: ./ I 03984000 $ 03984010 0010 40620000
HRC342DS: ZERAUTO2 L R12,REG14 RESTORE IN CASE WE ARE AUTO GG922D0
HRC342DS: ./ D 03990000 03990000 $ 40680000
HRC342DS: ./ I 03997000 $ 03997010 0010 40750000
HRC342DS: WTYPE NULLMES TELL USER FILE IS EMPTY GG922D0
HRC342DS: ./ I 04087360 $ 04087370 0010 41670000
HRC342DS: LTORG GG922D0
HRC342DS: DROP R12 GG922D0
HRC342DS: DMSEDI CSECT GG922D0
HRC342DS: ./ R 04213000 $ 04213010 0010 42930000
HRC342DS: BNE *+12 NO GG922D0
HRC342DS: L R12,=A(FILSECT) GG922D0
HRC342DS: B DISKFUL1-FILSECT(,R12) GO TYPE DISK FULL MSG GG922D0
HRC342DS: ./ I 04226000 $ 04226010 0010 43050000
HRC342DS: SCROLLUP OI TWITCH,UPWARD FOR 'SCROLL UP' GG922D0
HRC342DS: ./ * CONVERTED 11/04/80 BY P-E / BMARSH
Correcting Sequence Columns to 76
VMFApply WARNING - Error 0x80040001 Source Update2 Description SEQUENCE TYPE CHECK FAILURE
Output Written to 'C:\Users\sjzop\AppData\Local\Temp\dmsedi.assemble.maint(393).latest.txt'
>>>>> VMFApply COMPLETE - Execution Time 398 milliseconds.
ibm/vm370-lib/cms/dmsedi.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator