Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : If you want to make your VSAM data set read-only, use INHIBIT with ALTER command. E.g. ALTER XXX.XX.DATA INHIBIT ALTER XXX.XX.INDEX INHIBIT

Google
 
Web mainframegurukul.com

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 admin@mainframegurukul.com


HELP NEEDED CLIST MACRO

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> TSO, CLIST & REXX
  View previous topic :: View next topic  
Author Message
anooppv
Member


Joined: 19 Sep 2007
Posts: 2

PostPosted: Fri Feb 22, 2008 6:41 pm    Post subject: HELP NEEDED CLIST MACRO Reply with quote

Hi all,

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



COBCHECK

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

CHNGCHK:-
ISREDIT (DATACHNG) = DATA_CHANGED
IF &DATACHNG = YES THEN +
DO
WRITE YOU MUST SAVE THE SOURCE BEFORE RUNNING THIS CLIST
EXIT
END
/* OBTAIN MEMBER NAME
ISREDIT (PROGNAME) = MEMBER

/* OBTAIN DATASET NAME
ISREDIT (DWLIB) = DATASET

ISPEXEC VPUT (PROGNAME DWLIB XAMSGLVL) PROFILE
COBCHKPR
ISREDIT COBCHKMS

CONTROL NOMSG
DELETE &PROGNAME..MSGLIST
CONTROL MSG

EXIT




COBCHKPR

PROC 0 TEST

/*
/* CHECKS A PROGRAM TO SEE IF ERROR LOGGING IS CODED CORRECTLY
/*

/* CONTROL FLUSH MSG LIST CONLIST SYMLIST
ISPEXEC VGET (PROGNAME DWLIB XAMSGLVL) PROFILE

CONTROL NOMSG
FREE ATT(CRATTR)
DELETE TEMP.SYSIN
DELETE &PROGNAME..MSGLIST
FREE F(CR2)
CONTROL MSG
SYSIN: -
SET &LIST = TEMP.SYSIN
ATTRIB CRATTR BLKSIZE(19040) LRECL(80) RECFM(F B)
ALLOC DA(&LIST) DD(CR2) USING(CRATTR) NEW REUSE -
SPACE (1 1) TRACKS
OPENFILE CR2 OUTPUT
SET CR2 = &PROGNAME
PUTFILE CR2
SET CR2 = &XAMSGLVL
PUTFILE CR2
CLOSFILE CR2
FREE F(CR2)
RUNPROG: -
ALLOC FILE(SYSIN) DA(TEMP.SYSIN) SHR REUSE
ALLOC FILE(UT01) DA('&DWLIB(&PROGNAME)') SHR
ALLOC FILE(UT11) DA(&PROGNAME..MSGLIST) USING(CRATTR) NEW REUSE -
SPACE (5 5) TRACKS

CALL 'ALCHEML.XAPR1.##.B.LOADLIB(PXUCOBCK)'

CONTROL NOMSG
FREE F(SYSIN)
FREE F(UT01)
FREE F(UT11)
DELETE TEMP.SYSIN
FREE ATT(CRATTR)
CONTROL MSG

EXIT



COBCHKMS


/*
/* EDIT MACRO - DISPLAY ERROR LOGGING MESSAGES IN SOURCE
/*
ISREDIT MACRO

ISREDIT (MAXLINE) = LINENUM .ZLAST

ERROR +
DO
SET RCODE=&LASTCC
IF &RCODE = 400 THEN SET EOF = EOF
RETURN
END

ISREDIT RESET

SET EOF =
SET RCODE = 0

/* CONTROL FLUSH MSG LIST CONLIST SYMLIST
ISPEXEC VGET (PROGNAME) PROFILE

SET COLHDR1 = &STR(----+----1----+----2----+----3----+----4)
SET COLHDR2 = &STR(----+----5----+----6----+----7)
SET COLHDRST = &STR(&COLHDR1&COLHDR2)

OPENLIST: -
ALLOC FILE(CR1) DA(&PROGNAME..MSGLIST) SHR

OPENFILE CR1 INPUT

SET CURRLN = 0
LOOP: -
GETFILE CR1

IF &EOF = EOF THEN GOTO THEEND

SET LINENUM = &SUBSTR(1:6,&CR1)

SET ERRMSG = &SUBSTR(9:80,&CR1)

IF &LINENUM = 0 THEN +
DO
ISREDIT LINE_AFTER &LINENUM = INFOLINE (ERRMSG)
GOTO LOOP
END

IF &LINENUM = 999999 THEN +
DO
ISREDIT LINE_AFTER &MAXLINE = MSGLINE (ERRMSG)
GOTO LOOP
END

ISREDIT LINE_BEFORE &LINENUM = MSGLINE (ERRMSG)

IF &SYSINDEX(COL,&ERRMSG) ?= 0 THEN SET COLHDR = Y
ELSE SET COLHDR = N

IF &LINENUM = &CURRLN THEN SET COLHDR = N

IF &COLHDR = Y THEN +
ISREDIT LINE_BEFORE &LINENUM = INFOLINE (COLHDRST)

SET CURRLN = &LINENUM

GOTO LOOP

THEEND:-
SET ERRMSG = &STR(USE L MSGLINE TO FIND NEXT MESSAGE)
ISREDIT LINE_BEFORE 1 = INFOLINE (ERRMSG)
ISREDIT LOCATE FIRST SPECIAL
CLOSFILE CR1
FREE F(CR1)
EXIT



for COBCHECK i' getting an error like macro level error & the error message is like incorrect usage &LEVEL
Back to top
View user's profile Send private message

Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> TSO, CLIST & REXX All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
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

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Easytrieve program for getting Recound counts. 1 prakash.subramaniam 2124 Mon Oct 05, 2009 5:09 pm
Natarajan View latest post
No new posts Getting Error while using ICEMAN tool 4 giri211 2868 Mon Aug 31, 2009 3:59 pm
giri211 View latest post
No new posts Replacing characters Using JCL 5 rachitsethcse 4627 Thu Jul 23, 2009 9:46 pm
Frank Yaeger View latest post
No new posts Getting no of records in a file 8 Rajapriyaa 3089 Mon May 18, 2009 11:30 am
Anuj Dhawan View latest post
No new posts Calling COBOL from C - getting SOC1 0 balajiiinx 3203 Tue Sep 23, 2008 10:25 am
balajiiinx View latest post
 



This widget requires Flash Player 9 or better








Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-3246.html