MAINFRAME - TIP OF THE DAY :
If you want to make your VSAM data set read-only, use INHIBIT with ALTER command.
ALTER XXX.XX.DATA INHIBIT
ALTER XXX.XX.INDEX INHIBIT
Welcome to the mainframegurukul forums.
You are currently viewing our mainframe forums as a guest which gives you limited access to view most discussions, articles. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload your own photos. Registration is fast, simple and absolutely free so please, join our community today!
If you have any problems with the registration process or your account login, please contact contact support at firstname.lastname@example.org
Posted: Fri Feb 22, 2008 6:41 pm Post subject: HELP NEEDED CLIST MACRO
I have one cobol pgm which can be used for checking the cobol standards. I want to use a clist prog for invocking the program and list down the coding errors, but the problem now is this clist code is not working. I have attached all the clist codes I'm using ......... if anybody can help me on this asap...........pls help it's very urjent
the pgm works like if we type COBCHECK IT WILL LIST DOWN THE ERRORS AT SPECIFIC LINES AND WE CAN CHANGE & SAVE
ISREDIT MACRO (LEVEL)
/* CHECKS A PROGRAM TO SEE IF ERROR LOGGING IS CODED CORRECTLY
/* CONTROL FLUSH MSG LIST CONLIST SYMLIST
SET XAMSGLVL = 1
IF &LEVEL = THEN GOTO CHNGCHK
IF &SUBSTR(1:3,&LEVEL) = ERR THEN SET XAMSGLVL = 3
IF &SUBSTR(1:3,&LEVEL) = WAR THEN SET XAMSGLVL = 2
ISREDIT (DATACHNG) = DATA_CHANGED
IF &DATACHNG = YES THEN +
WRITE YOU MUST SAVE THE SOURCE BEFORE RUNNING THIS CLIST
/* OBTAIN MEMBER NAME
ISREDIT (PROGNAME) = MEMBER
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum