Hello, World program
Edit Page
Report
Scan day: 16 February 2014 UTC
-3
Virus safety - good
Description: MVS JCL (Assembly 370)
There are 3 programs here, actually...the first one writes to whatever is designated on the SYSPRINT DD statement in the invoking JCL: HELLOPRT START 0 IN THE BEGINNING... PRINT NOGEN SPARE US THE MACRO EXPANSIONS BEGIN SAVE (14,12) SAVE INPUT REGISTERS LR 12,15 WHERE ARE WE? USING HELLOPRT,12 RIGHT HERE ST 13,SAVE+4 SAVE OLD SAVE AREA ADDRESS LA 11,SAVE POINT TO NEW SAVE AREA ST 11,8(13) IN OLD SAVE AREA LR 13,11 MOVE SAVE AREA ADDRESS * * WRITE "HELLO, WORLD!" ON WHATEVER HAS BEEN SET UP AS SYSPRINT IN * THE INVOKING JCL (NO, UNIX DOESN'T HAVE A MONOPOLY ON DEVICE- * INDEPENDENT I/O!) * DOPUT EQU * PUT SYSPRINT,HELLOMSG WRITE THE MESSAGE B DOPUT FOREVER... * * THIS CODE WILL NEVER BE REACHED, BUT IS INCLUDED FOR COMPLETENESS * L 13,SAVE+4 GET OLD SAVE AREA BACK RETURN (14,12),RC=0 TO THE OPERATING SYSTEM * * FILE AND WORK AREA DEFINITIONS * SAVE DS 18F LOCAL SAVE AREA HELLOMSG DC C' HELLO, WORLD!' SYSPRINT DCB DSORG=PS,MACRF=PM,DDNAME=SYSPRINT, X RECFM=FA,LRECL=133,BLKSIZE=133 END BEGIN
Size: 1028 chars
Contact Information
Email: —
Phone&Fax: —
Address: —
Extended: —
WEBSITE Info
| Page title: | MVS JCL |
| Keywords: | |
| Description: | |
| IP-address: | 138.47.18.129 |
WHOIS Info
| NS | Name Servers: DNS1.LATECH.EDU 138.47.18.36 DNS2.LATECH.EDU 138.47.18.25 |
| WHOIS | |
| Date | activated: 25-Apr-1990 last updated: 26-May-2010 expires: 31-Jul-2014 |