LMS V3.7 (de)

&pagelevel(3)&pagelevel

Das Element ERFASS (aufgelistet im Beispiel auf "Aufnehmen, Korrigieren und Übersetzen von Quellprogrammen in Bibliotheken") und das Element EINAUS werden miteinander verglichen. Ein Vergleichsprotokoll wird erstellt.

/start-lms --------------------------------------------------------------- (1)

//modify-logging-parameters logging=*maximum ----------------------------- (2)

//open-library library=bsp1.bib,mode=*update ----------------------------- (3)

//add-element from-file=quell.einaus, to-elem=(elem=einaus,type=s) ------- (4)

INPUT FILE

OUTPUT LIBRARY= :1OSN:$USER.BSP1.BIB

ADD :1OSN:$USER.QUELL.EINAUS AS (S)EINAUS/@(0001)/2013-03-01

(1)	LMS wird aufgerufen.
(2)	Zusätzlich zu Fehlermeldungen werden auch Erfolgsmeldungen protokolliert.
(3)	Die Bibliothek BSP1.BIB wird zum Lesen und Schreiben eröffnet.
(4)	Die Datei QUELL.EINAUS wird als Element EINAUS vom Typ S in die Bibliothek aufgenommen.

//show-element (element=einaus,type=s) ---------------------------------- (5)

INPUT  LIBRARY= :1OSN:$USER.BSP1.BIB
INPUT  ELEMENT= (S)ES/@(0001)/2013-03-01
        TITLE 'ERFASSEN VON DATEN'
        PRINT NOGEN
ERFAS START
        BALR  5,0
        USING *,5
        OPEN  DATEI,OUTPUT
LESEN RDATA SATZ,ENDPGM
        CLC   TEXT(4),=C'/EOF'
        BE    ENDPGM
        MVC   ATEXT,TEXT
        LH    9,SL
        AH    9,=H'1'
        STH   9,ASL
        WROUT ASATZ,ENDPGM
        PUT   DATEI,SATZ
        B LESEN
ENDPGM TERM
*

DATEI FCB   FCBTYPE=SAM,LINK=DATEN
        DS    OH
SATZ    DS    CL84
SL      DS    CL2
        DS    CL2
TEXT    DS    CL80
ASATZ DS    OCL85
ASL     DS    CL2
        DC    X'000001'
ATEXT DS    CL80
        END
NUMBER OF PROCESSED RECORDS IS 29

(5)	Das Element EINAUS wird aufgelistet.

//show-element (element=erfass,type=s) ------------------------------------ (6)

INPUT  LIBRARY= :1OSQ:$USER.BSP1.BIB
INPUT  ELEMENT= (S)ERFASS/002(0001)/2013-03-01
        TITLE 'ERFASSEN VON DATEN'
        PRINT NOGEN
ERFAS START
        BALR 5,0
        USING *,5
        OPEN  DATEI,OUTPUT
LESEN RDATA SATZ,ENDPGM
        PUT   DATEI,SATZ
        B LESEN
ENDPGM TERM
*

DATEI FCB   FCBTYPE=SAM, LINK=DATEN
SATZ    DS    CL84
        END
NUMBER OF PROCESSED RECORDS IS     14

//compare-element primary-elem=(elem=einaus,type=s), -

// secondary-elem=(elem=erfass), -

// compare-parameters = *par(information=*maximum) ----------- (7)

FUNCTION         = C O M P A R E
PAR       COMPARE= 00001/32764/L/MAX
PRIMARY    LIBRARY= :1OSN:$USER.BSP1.BIB
PRIMARY    ELEMENT= (S)EINAUS/@(0001)/2013-03-01
SECONDARY  LIBRARY= :1OSN:$USER.BSP1.BIB
SECONDARY  ELEMENT= (S)ERFASS/002(0001)/2013-03-01 ------------------------  (8)

---------------------------------------------------------------------------

SAME FROM #1 TO #7 AS FROM #1 TO #7 ------------------- (9)

     #1 >        TITLE 'ERFASSEN VON DATEN'<
     #2 >        PRINT NOGEN<
     #3 >ERFAS START<
     #4 >        BALR  5,0<
     #5 >        USING *,5<
     #6 >        OPEN  DATEI,OUTPUT
     #7 >LESEN RDATA SATZ,ENDPGM<

(6)	Das Element ERFASS wird aufgelistet
(7)	Die Elemente EINAUS und ERFASS werden miteinander verglichen. Das Vergleichsprotokoll soll in vollem Umfang ausgegeben werden.
(8)	Beginn des Vergleichsprotokolls:Protokolliert werden die eingestellten Werte von COMPARE, die Namen von Primär- und Sekundärbibliothek und von Primär- und Sekundärelement.
(9)	Die Sätze mit der Satzkennung #1 bis #7 sind in beiden Elementen gleich.

----------------------------------------------------------------------------------
INS. FROM       #8 TO      #14 ---------------------------------------------------  (10) 
     #8 >         CLC   TEXT(4),=C'/EOF'<
     #9 >         BE    ENDPGM<
    #10 >         MVC   ATEXT,TEXT<
    #11 >         LH    9,SL<
    #12 >         AH    9,=H'1'<
    #13 >         STH   9,ASL<
    #14 >         WROUT ASATZ,ENDPGM< --------------------------------------------  (11) 
----------------------------------------------------------------------------------
SAME FROM      #15 TO      #19 AS FROM       #8 TO      #12 ----------------------  (12) 
    #15 >         PUT   DATEI,SATZ <
    #16 >         B     LESEN<
    #17 >ENDPGM   TERM<
    #18 >*<
    #19 >DATEI    FCB   FCBTYPE=SAM, LINK=DATEN< ---------------------------------  (13) 
----------------------------------------------------------------------------------
INS.           #20 ---------------------------------------------------------------  (14) 
    #20 >         DS    OH< ------------------------------------------------------  (15) 
------------------------------------------------------------------------------------

(08) –(21) Vergleichsprotokoll

(10)	Die Sätze #8 bis #14 sind nur im Primärelement vorhanden und werden als INS(erted) dargestellt.
(11)	Die eingefügten Sätze werden ausgegeben.
(12)	Die Sätze #15 bis #19 des Primärelementes sind gleich den Sätzen #8 bis #12 des Sekundärelementes.
(13)	Die gleichen Sätze werden ausgegeben.
(14)	Der Satz #20 ist nur im Primärelement vorhanden und wird als INS(erted) dargestellt.
(15)	Der eingefügte Satz wird ausgegeben.

SAME #21 AS #13 ------------------------------- (16)

#21 >SATZ DS CL84< ----------------------------------------- (17)

---------------------------------------------------------------------------

INS. FROM #22 TO #28 ---------------------------------------------- (18)

    #22 >SL      DS    CL2<
    #23 >        DS    CL2<
    #24 >TEXT    DS    CL80<
    #25 >ASATZ DS    OCL85<
    #26 >ASL     DS    CL2<
    #27 >        DC    X'000001'<
    #28 >ATEXT DS CL80< --------------------------------------------------- (19)

---------------------------------------------------------------------------

SAME #29 AS #14 ------------------------------- (20)

#29 > END< ------------------------------------------------- (21)

---------------------------------------------------------------------------

PRIMARY ELEMENT= (S)EINAUS/@(0001)/2013-03-01

SECONDARY ELEMENT= (S)ERFASS/002(0001)/2013-03-01

RESULT: C PRIMARY= 29 INSERTED= 15 ( 3) DELETED= 0 ( 0)

SECONDARY= 14 SAME= 14 ( 4) ----------------------- (22)

//end --------------------------------------------------------------------- (23)

(16)	Der Satz #21 des Primärelementes ist gleich dem Satz #13 des Sekundärelementes.
(17)	Der gleiche Satz wird ausgegeben.
(18)	Die Sätze #20 bis #28 sind nur im Primärelement vorhanden und werden als INS(erted) dargestellt.
(19)	Die eingefügten Sätze werden ausgegeben.
(20)	Der Satz #29 des Primärelementes ist gleich dem Satz #14 des Sekundärelementes.
(21)	Der gleiche Satz wird ausgegeben.
(22)	Ergebnis des Vergleichs; ausgegeben wird die Anzahl der Sätze des Primärelementes, des Sekundärelementes, der eingefügten, gleichen und gelöschten Sätze. Die Zahl in Klammern gibt an, wieviel zusammenhängende Teile eingefügt, gleich oder gelöscht sind.
(23)	LMS wird beendet.

Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly

Vergleichen von Elementen