CMS File Input : NAMESYS MACRO
Date : 12/8/1978 4:36:00 PM
VM Context : MAINT(394)
File Name : NAMESYS.MACRO.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Date Thursday Jun 05, 1980 04:24:00 AM
Loaded from MAINT(294)
R11206DK: ./ I 10000 $ 10010 00001000
R11206DK: LCLA &SEG,&SEGB(78),&SEGE(78),&S @VA11206 00002000
R11206DK: ./ I 79000 $ 79010 10 00003000
R11206DK: &SEG SETA &C1 @VA11206 00004000
R11206DK: &SEG SETA &SEG/16 @VA11206 00005000
R11206DK: &SEGB(&K2) SETA &SEG @VA11206 00006000
R11206DK: &SEGE(&K2) SETA &SEG @VA11206 00007000
R11206DK: ./ I 84000 $ 84010 10 00008000
R11206DK: &SEG SETA &C1 @VA11206 00009000
R11206DK: &SEGB(&K2) SETA &SEG/16 @VA11206 00010000
R11206DK: ./ I 88000 $ 88010 10 00011000
R11206DK: &SEG SETA &C1 @VA11206 00012000
R11206DK: &SEGE(&K2) SETA &SEG/16 @VA11206 00013000
R11206DK: ./ I 101000 $ 101005 5 00014000
R11206DK: &C1 SETC '&SYSHRSG(&A)' @VA11206 00015000
R11206DK: &SEG SETA &C1 @VA11206 00016000
R11206DK: &S SETA 1 @VA11206 00017000
R11206DK: .SEGCK ANOP 00018000
R11206DK: AIF (&S GT &PCT).SEGERR @VA11206 00019000
R11206DK: AIF (&SEG LT &SEGB(&S)).SEGINCR @VA11206 00020000
R11206DK: AIF (&SEG GT &SEGE(&S)).SEGINCR @VA11206 00021000
R11206DK: AGO .SEGGD @VA11206 00022000
R11206DK: .SEGINCR ANOP 00023000
R11206DK: &S SETA &S+1 @VA11206 00024000
R11206DK: AGO .SEGCK @VA11206 00025000
R11206DK: .SEGERR ANOP 00026000
R11206DK: MNOTE 12,'(SYSHRSG) NOT WITHIN (SYSPGNM) RANGE' @VA11206 00027000
R11206DK: .SEGGD ANOP 00028000
BEGIN APPLY >>> ./ I 10000 $ 10010 00001000
END APPLY >>> ./ I 10000 $ 10010 00001000
BEGIN APPLY >>> ./ I 79000 $ 79010 10 00003000
END APPLY >>> ./ I 79000 $ 79010 10 00003000
BEGIN APPLY >>> ./ I 84000 $ 84010 10 00008000
END APPLY >>> ./ I 84000 $ 84010 10 00008000
BEGIN APPLY >>> ./ I 88000 $ 88010 10 00011000
END APPLY >>> ./ I 88000 $ 88010 10 00011000
BEGIN APPLY >>> ./ I 101000 $ 101005 5 00014000
END APPLY >>> ./ I 101000 $ 101005 5 00014000
Update Succeeded
Update Execution Time 16 milliseconds.