Adding, correcting and assembling library source programs

A source program is added as an S-type member to a library and then assembled. Since errors were found during assembly, the member is corrected with EDT and subsequently assembled again. The module from the EAM area is added to the same library as an R-type member.

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

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

//modify-lms-defaults version=*increment --------------------------------  (3)

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

LIBRARY IS CLEARED AND PREPARED -----------------------------------------  (5)

(1)	LMS is called.
(2)	In addition to error messages, positive acknowledgments are also logged.
(3)	At every write operation, the target version is incremented by 1.
(4)	Library BSP1.BIB is to be created as a new library and assigned as an I/O library.
(5)	Library BSP1.BIB has been created.

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

INPUT  FILE

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

        ADD :1OSN:$USER.QUELL.ERFASS AS (S)ERFASS/001(0001)/2013-03-01 ---  (7)

//show-element-attributes ------------------------------------------------  (8)

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

TYP NAME   VER (VAR#) DATE

(S) ERFASS 001 (0001) 2013-03-01

    1 (S)-ELEMENT(S) IN THIS TABLE OF CONTENTS ---------------------------  (9)

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

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

INPUT  ELEMENT= (S)ERFASS/001(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    FXB   FCBTYPE=SAM, LINK=DATEN

SATZ     DS    CL84

         END

NUMBER OF PROCESSED RECORDS IS     14 ------------------------------------ (11)

//end -------------------------------------------------------------------- (12)

(6)	File QUELL.ERFASS is added to the library as an S-type member having the name ERFASS.
(7)	Positive acknowledgment: member ERFASS, with the version designation 001 and variant number 0001, is written to the library.
(8)	The directory of library BSP1.BIB is to be listed.
(9)	Directory entry of library BSP1.BIB.
(10)	Member ERFASS is to be listed.
(11)	Contents of member ERFASS.
(12)	LMS is terminated.

/start-assembh -----------------------------------------------------------  (13) 

//compile source=*library-element(lib=bsp1.bib,element=erfass) -----------  (14)

%  ASS6011 ASSEMBLY TIME: 820 MSEC ---------------------------------------  (15)

%  ASS6018 1 FLAGS, 0 PRIVILEGED FLAGS, 0 MNOTES

%  ASS6019 HIGHEST ERROR-WEIGHT: SIGNIFICANT ERROR

%  ASS6006 LISTING GENERATOR TIME: 439 MSEC

//end

%  ASS6012 END OF ASSEMBH

/start-lms ---------------------------------------------------------------  (16)

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

//modify-lms-defaults version=*increment ---------------------------------  (18)

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

//edit-element (element=erfass,type=s) -----------------------------------  (20)

(13)	The assembler is called.
(14)	The source program in member ERFASS of library BSP1.BIB is to be assembled.
(15)	The program contains errors.
(16)	LMS is called again.
(17)	In addition to error messages, positive acknowledgments are also logged.
(18)	The target version is incremented by 1 during each write operation.
(19)	Library BSP1.BIB is opened for writing and reading.
(20)	Member ERFASS is to be processed with EDT.

  0.10         TITLE 'ERFASSEN VON DATEN'
  0.20         PRINT NOGEN
  0.30 ERFAS   START
  0.40         BALR 5,0
  0.50         USING *,5
  0.60         OPEN  DATEI,OUTPUT
  0.70 LESEN   RDATA SATZ,ENDPGM
  0.80         PUT   DATEI,SATZ
  0.90         B     LESEN
  1.00 ENDPGM  TERM
  1.10 *
 x1.20 DATEI   FcB   FCBTYPE=SAM, LINK=DATEN
  1.30 SATZ          DS    CL84                                              (21) 
  1.40 END
  2.40
  3.40
  4.40
  5.40
  6.40
  7.40
  8.40
  9.40
                     OUTPUT ELEMENT= (S)ERFASS/@(0002)/2013-03-01

 halt                                                          0000.10:001(0)

%  LMS0420 EDITED ELEMENT (S)ERFASS/002(0002)/2013-03-01 TO BE ADDED? REPLY

(Y=YES; N=NO OR R=RETURN TO EDITOR)

y ------------------------------------------------------------------------- (22)

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

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

INPUT  ELEMENT= (S)ERFASS/001(0001)/2013-03-01

OUTPUT ELEMENT= (S)ERFASS/002(0002)/2013-03-01

       CORRECT (S)ERFASS/001(0001)/2013-03-01 AS (S)ERFASS/002(0001)/2013-03-01

--------------------------------------------------------------------------- (23)

//end

(21)	The error is corrected: Make line 1.20 overwriteable by entering “x” in the statement column. Change “FcB” in line 1.20 to “FCB” and terminate EDT by entering HALT in the statement line.
(22)	“Y” causes the corrected member to be added with version 002 to the output library. The old version (version 001) is retained.
(23)	Positive acknowledgment: input member ERFASS has been corrected. The output member is given the same name and the version 002.

/delete-system-file system-file=*omf

/start-assembh

//compile source=*library(lib=bsp1.bib,element=erfass)

%  ASS6011 ASSEMBLY TIME: 1037 MSEC

%  ASS6018 0 FLAGS, 0 PRIVILEGED FLAGS, 0 MNOTES

%  ASS6019 HIGHEST ERROR-WEIGHT: NO ERRORS

%  ASS6006 LISTING GENERATOR TIME: 406 MSEC

//end

%  ASS6012 END OF ASSEMBH ------------------------------------------------  (24) 

/start-lms ---------------------------------------------------------------  (25)

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

//open-library library=BSP1.BIB,mode=*update -----------------------------  (27)

//add-element from-file=*omf,to-elem=(type=r) ----------------------------  (28)

INPUT  OMF

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

        ADD ERFAS AS (R)ERFAS/@(0001)/2013-03-01

//end --------------------------------------------------------------------  (29)

(24)	The assembly run has been executed successfully.
(25)	LMS is called.
(26)	In addition to error messages, positive acknowledgments are also logged.
(27)	Library BSP1.BIB is again opened for reading and writing.
(28)	Module ERFAS is taken from the EAM area and incorporated as member ERFAS.
(29)	LMS is terminated.