mirror of
https://github.com/moshix/mvs.git
synced 2026-02-16 04:02:53 +00:00
42 lines
1.5 KiB
Plaintext
42 lines
1.5 KiB
Plaintext
PRINT NOGEN
|
|
****************************************************************
|
|
* FILENAME: TEACH1B.MLC *
|
|
* AUTHOR : Bill Qualls *
|
|
* SYSTEM : Compaq 286LTE, PC/370 R4.2 *
|
|
* REMARKS : A card-image list of teacher records. *
|
|
****************************************************************
|
|
START 0
|
|
REGS
|
|
BEGIN BEGIN
|
|
OI TEACHERS+10,X'08' PC/370 ONLY - Convert all
|
|
* input from ASCII to EBCDIC
|
|
OPEN TEACHERS
|
|
LOOP GET TEACHERS,IREC Read a single teacher record
|
|
WTO IDATA Display the record
|
|
B LOOP Repeat
|
|
*
|
|
* EOJ processing
|
|
*
|
|
ATEND CLOSE TEACHERS
|
|
RETURN
|
|
*
|
|
* Literals, if any, will go here
|
|
*
|
|
LTORG
|
|
*
|
|
* File definitions
|
|
*
|
|
TEACHERS DCB LRECL=29,RECFM=F,MACRF=G,EODAD=ATEND,
|
|
DDNAME='TEACHER.DAT'
|
|
*
|
|
* Miscellaneous field definitions
|
|
*
|
|
CRLF DC X'0D25' PC/370 ONLY - EBCDIC CR/LF
|
|
*
|
|
* Input record definition
|
|
*
|
|
IREC DS 0CL29 Teacher record
|
|
IDATA DS CL27 Teacher data
|
|
ICRLF DS CL2 PC/370 only - CR/LF
|
|
END BEGIN
|