• Abstract / Synopsis of DMSIFC
• Latest Source of DMSIFC
• Fixes Applied : 7
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R13316DS]

CMS File Input : DMSIFC ASSEMBLE
Date : 12/12/1978 8:28:00 AM
VM Context : MAINT(393)
File Name : DMSIFC.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM

1. R09383DS 601 ADD 2 NEW NAMES TO 'INCLUDE' LIST
2. R09381DS 601 ADD NEW 'CONTROLLER=' PARAMETER
3. R09295DS 602 ERROR RECORDS LOST IF 303X FRAME EXTENDS TO SECOND CYLINDER
4. R09237DS 602 DMSITP141T PROG CHK 0C1 AT LABEL EXGENERR FOR DMSIFC832S ERROR
5. R09821DS 605 CPEREP DUPLICATE ENTRY IFCS33XX OR ABEND15A
6. R09940DS 605 CPEREP PRINT DASD SUMMARY GIVES ONLY ONE DASD SUMMARY REPORT
7. R13316DS 623 UV05018 CPEREP TABSIZE TOO SMALL - FAILS DMSIFC832S

Date Thursday Mar 08, 1979 09:09:00 AM
Loaded from MAINT(193)

       R09383DS: ./ I 3520000 $ 3520200 200                                              DMS00010
       R09383DS:          DC    CL8'IFCSDASD'                                   @VA09383 DMS00020
       R09383DS:          DC    CL8'IFCS33XX'                                   @VA09383 DMS00030
 BEGIN APPLY >>> ./ I 3520000 $ 3520200 200                                              DMS00010
   END APPLY >>> ./ I 3520000 $ 3520200 200                                              DMS00010
Update Succeeded
Update Execution Time 31 milliseconds.

Date Wednesday Feb 14, 1979 03:47:00 PM
Loaded from MAINT(193)

       R09381DS: ./ R 72000 $ 72010 500                                                  00001000
       R09381DS: *                   COMMANDS OR 'SHARE=' OR 'CTLCRD=' OR 'TERMINAL'     00002000
       R09381DS: *                   OR 'CONTROLLER='.                                   00003000
       R09381DS: ./ I 1173000 $ 1173300 300                                              00004000
       R09381DS: *                                                                       00005000
       R09381DS: *  HCONTROL:  HANDLER ROUTINE FOR THE 'CONTROLLER' PARAMETER.           00006000
       R09381DS: ./ I 1188000 $ 1188500                                                  00007000
       R09381DS: HCONTROL EQU   *              CONTROLLER PARAMETER             @VA09381 00008000
       R09381DS: ./ I 1852000 $ 1852500                                                  00009000
       R09381DS:          DC    AL1(10),CL12'CONTROLLER',AL3(HCONTROL)          @VA09381 00010000
 BEGIN APPLY >>> ./ R 72000 $ 72010 500                                                  00001000
   END APPLY >>> ./ R 72000 $ 72010 500                                                  00001000
 BEGIN APPLY >>> ./ I 1173000 $ 1173300 300                                              00004000
   END APPLY >>> ./ I 1173000 $ 1173300 300                                              00004000
 BEGIN APPLY >>> ./ I 1188000 $ 1188500                                                  00007000
   END APPLY >>> ./ I 1188000 $ 1188500                                                  00007000
 BEGIN APPLY >>> ./ I 1852000 $ 1852500                                                  00009000
   END APPLY >>> ./ I 1852000 $ 1852500                                                  00009000
Update Succeeded
Update Execution Time 55 milliseconds.

Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)

       R09295DS: ./ R 2916000 $ 2916000
       R09295DS:          ICM   R1,1,=X'FE'         MAKE 'R' VERY LARGE RECORD  @VA09295
       R09295DS: ./ D 2924000 $
 BEGIN APPLY >>> ./ R 2916000 $ 2916000
   END APPLY >>> ./ R 2916000 $ 2916000
 BEGIN APPLY >>> ./ D 2924000 $
   END APPLY >>> ./ D 2924000 $
Update Succeeded
Update Execution Time 31 milliseconds.

Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)

       R09237DS: ./ I 3385000 $ 3385250 250
       R09237DS:          LTR   R3,R3               VALID DATA LENGTH           @VA09237
       R09237DS:          BM    EXCODEA             NO,INVALID INPUT RECORD     @VA09237
       R09237DS: ./ D 3404000 $
       R09237DS: ./ I 3423000 $ 3423250 250
       R09237DS:          B     EXGENERR            ISSUE MESSAGE               @VA09237
       R09237DS: EXCODEA  MVI   MSGCODE,10          ERROR ON INPUT RECORD       @VA09237
       R09237DS: ./ R 3430000 3431000 $ 3429300 300
       R09237DS:          L     R3,=A(RETCDE)       ADDRESS OF RETURN CODE      @VA09237
       R09237DS:          CLI   D1(R3),0            PREVIOUS ERROR CODE         @VA09237
       R09237DS:          BNE   EXPOST              YES, LEAVE ALONE            @VA09237
       R09237DS:          STH   R15,0(0,R3)         SAVE CMS RETURN CODE        @VA09237
       R09237DS: EXPOST   EQU   *                                               @VA09237
       R09237DS:          L     R3,IOBECB           ECB ADDRESS                 @VA09237
       R09237DS:          MVI   0(R3),POSTERR       POST ECB WITH I/O ERROR     @VA09237
       R09237DS:          B     ECPEXIT             RETURN TO CALLER            @VA09237
 BEGIN APPLY >>> ./ I 3385000 $ 3385250 250
   END APPLY >>> ./ I 3385000 $ 3385250 250
 BEGIN APPLY >>> ./ D 3404000 $
   END APPLY >>> ./ D 3404000 $
 BEGIN APPLY >>> ./ I 3423000 $ 3423250 250
   END APPLY >>> ./ I 3423000 $ 3423250 250
 BEGIN APPLY >>> ./ R 3430000 3431000 $ 3429300 300
   END APPLY >>> ./ R 3430000 3431000 $ 3429300 300
Update Succeeded
Update Execution Time 31 milliseconds.

Date Monday Oct 08, 1979 08:01:00 AM
Loaded from MAINT(193)

       R09821DS: ./ D 3520400 $
 BEGIN APPLY >>> ./ D 3520400 $
   END APPLY >>> ./ D 3520400 $
Update Succeeded
Update Execution Time 23 milliseconds.

Date Monday Oct 08, 1979 09:06:00 AM
Loaded from MAINT(193)

       R09940DS: ./ D 3520200
 BEGIN APPLY >>> ./ D 3520200
   END APPLY >>> ./ D 3520200
Update Succeeded
Update Execution Time 31 milliseconds.

Date Wednesday Aug 05, 1981 07:24:00 AM
Loaded from MAINT(193)

       R13316DS: ./ R 03124000 03126000 $ 3124000 200               XEDIT 06/30/81 10:55:43
       R13316DS:          BE    ECPLBL97     O.K., MOVE RECORD TO EREP BUFFER   @VA13316
       R13316DS: *                           IF NOT , EREP WANTS TO READ RECORDS@VA13316
       R13316DS: *                           RANDOMLY. IF RECORD IS WITHIN LIMIT@VA13316
       R13316DS: *                           OF THE LAST RECORD, ALLOW IT.      @VA13316
       R13316DS:          BH    EXCODE4  ERROR.  EREP APPEARS TO BE TRYING TO   @VA13316
       R13316DS: *                       READ NON-SEQUENTIALLY BEYOND LIMITS.   @VA13316
       R13316DS:          L     R2,CHPBUFF     ADDRESS OF READ BUFFER           @VA13316
       R13316DS:          MVC   0(LENCCB0R,R2),=XL5'00FFFFFFFF' EOF IN BUFFER   @VA13316
       R13316DS:          MVC   SAVELAST,LSTCCB0R CCB0R OF LAST ERROR RECORD    @VA13316
       R13316DS:          OI    ECPRNDSW+1,X'F0' SET RANDOM READ SWITCH         @VA13316
       R13316DS:          B     ECPRAND        EOF SET AND DIRECT RCORD READ    @VA13316
 BEGIN APPLY >>> ./ R 03124000 03126000 $ 3124000 200               XEDIT 06/30/81 10:55:43
   END APPLY >>> ./ R 03124000 03126000 $ 3124000 200               XEDIT 06/30/81 10:55:43
Update Succeeded
Update Execution Time 31 milliseconds.