mirror of
https://github.com/moshix/mvs.git
synced 2026-02-16 04:02:53 +00:00
76 lines
3.0 KiB
Plaintext
76 lines
3.0 KiB
Plaintext
PRINT NOGEN
|
|
****************************************************************
|
|
* FILENAME: TEACH2A.MLC *
|
|
* AUTHOR : Bill Qualls *
|
|
* SYSTEM : Compaq 286LTE, PC/370 R4.2 *
|
|
* REMARKS : A quick-and-dirty list of teachers. *
|
|
****************************************************************
|
|
START 0
|
|
REGS
|
|
BEGIN BEGIN
|
|
WTO 'TEACH2A ... Begin execution'
|
|
OI TEACHERS+10,X'08' PC/370 ONLY - Convert all
|
|
* input from ASCII to EBCDIC
|
|
OI REPORT+10,X'08' PC/370 ONLY - Convert all
|
|
* output from EBCDIC to ASCII
|
|
OPEN TEACHERS
|
|
OPEN REPORT
|
|
LOOP GET TEACHERS,IREC Read a single teacher record
|
|
MVC OTID,ITID Move teacher ID Nbr to output
|
|
MVC OTNAME,ITNAME Move teacher Name to output
|
|
MVC OTDEG,ITDEG Move highest degree to output
|
|
MVC OTTEN,ITTEN Move tenure to output
|
|
MVC OTPHONE,ITPHONE Move phone nbr to output
|
|
MVC OCRLF,WCRLF PC/370 ONLY - end line w/ CR/LF
|
|
PUT REPORT,OREC Write report line
|
|
B LOOP
|
|
*
|
|
* EOJ processing
|
|
*
|
|
ATEND CLOSE TEACHERS
|
|
CLOSE REPORT
|
|
WTO 'TEACH2A ... Teacher list on REPORT.TXT'
|
|
WTO 'TEACH2A ... Normal end of program'
|
|
RETURN
|
|
*
|
|
* Literals, if any, will go here
|
|
*
|
|
LTORG
|
|
*
|
|
* File definitions
|
|
*
|
|
TEACHERS DCB LRECL=29,RECFM=F,MACRF=G,EODAD=ATEND,
|
|
DDNAME='TEACHER.DAT'
|
|
REPORT DCB LRECL=62,RECFM=F,MACRF=P,
|
|
DDNAME='REPORT.TXT'
|
|
*
|
|
* Miscellaneous field definitions
|
|
*
|
|
WCRLF DC X'0D25' PC/370 ONLY - EBCDIC CR/LF
|
|
*
|
|
* Input record definition
|
|
*
|
|
IREC DS 0CL29 Teacher record
|
|
ITID DS CL3 Teacher ID nbr
|
|
ITNAME DS CL15 Teacher name
|
|
ITDEG DS CL4 Highest degree
|
|
ITTEN DS CL1 Tenured?
|
|
ITPHONE DS CL4 Phone nbr
|
|
ITCRLF DS CL2 PC/370 only - CR/LF
|
|
*
|
|
* Output (line) definition
|
|
*
|
|
OREC DS 0CL62
|
|
OTID DS CL3 Teacher ID nbr
|
|
DC CL3' '
|
|
OTNAME DS CL15 Teacher name
|
|
DC CL3' '
|
|
OTDEG DS CL4 Highest degree
|
|
DC CL3' '
|
|
OTTEN DS CL1 Tenured?
|
|
DC CL3' '
|
|
OTPHONE DS CL4 Phone nbr
|
|
DC CL21' '
|
|
OCRLF DS CL2 PC/370 only - CR/LF
|
|
END BEGIN
|