pseudo code/explanation for a CLIST

Ask/Clarify the questions on TSO, CLIST & REXX

Moderators: Veera, Moderator Group

Post Reply
mavesum
Member
Posts: 2
Joined: Fri Dec 12, 2008 5:31 pm

pseudo code/explanation for a CLIST

Post by mavesum » Fri Dec 12, 2008 5:46 pm

Hi All,

CLIST is new to me . I have a simple CLIST which according to its developer "TEST A GDG GENERATION FOR EXISTANCE"

This is the CLIST . I am not able to understand the synatx , could anyone please explain me this in pseudo code.

SET &A = &STR(PRODGA.GL.DTL&GLCOY)
CONTROL MSG LIST
SET &SYSOUTTRAP = 102
LISTCAT LVL('&A')
IF &LASTCC < 4 THEN +
IF &SYSOUTLINE < 100 THEN DO
SET &B = &GDGMAX * 2 + 2
IF &B > &SYSOUTLINE THEN +
SET &LASTCC = 4
END
ELSE
ELSE +
SET &LASTCC = 4
END

Anuj Dhawan
Moderator
Posts: 1625
Joined: Sat Aug 09, 2008 9:02 am
Location: Mumbai, India

Post by Anuj Dhawan » Sat Jan 10, 2009 5:32 pm

Regards,
Anuj

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others