CyberMetrics Workbench™: flowcharting

Workbench View Charts

Instructions

Source Code Preparation

COBOL source must be ANSI compliant and complete. Submitted specimen must have copybooks merged and edited. Source must be (1) VS/ZOS compiler listing , or (2) raw COBOL source.
MVS JCL source must be syntactically correct and complete. Submitted specimen mut have cataloged procedures ( PROCs) merged and edited. For JCL specimen use JES output listing.

note: please do not submit copyrighted material(s)

Chart Generation

cut and paste source in the text area (left side this panel), or upload source by clicking the "Upload" button on the command panel (above).
open setting dialog by clicking the "Settings" button on the command panel. Select setting(s) which relate to the source code to be charted.
click "Make" button to generate chart.

|< < > >|

ChartId: 326
ChartDt: 8/2/2010 5:26:08 PM
ChartLang: MVS JCL
ChartType: SYSTEM
ChartHTML:

SYSPRINT

SYSUT2

DOR7.CON.WCO ...

SYSIN

...

S1.SYSUT1

IEBGENER

STEPLIB

DB2.DBA.DB2. ...

STEPLIB+

DOR.LOADLIB ...

STEPLIB+

PRD.DBA.DB2. ...

SYSDBOUT

SYSABOUT

SYSUDUMP

...

DBAPRINT

SYSPRINT

SYSOUT

PRINTDD

SYSLIST

SYSSNAP

XBATSNAP

CON0240

DOR7.CON.WCO ...

CON0241

DOR7.CON.WCO ...

CON0242

DOR7.CON.WCO ...

CON0243

SYSTSIN

DOR.SYSDATA( ...

WCON024A

STEPLIB

PRD.DBA.IMS. ...

STEPLIB+

DOR.LOADLIB ...

STEPLIB+

PRD.DBA.DB2. ...

STEPLIB+

DB2.DBA.DB2. ...

SYSTSIN

DOR.SYSDATA( ...

DFSRESLB

PRD.DBA.IMS. ...

IMS

PRD.PSBLIB ...

IMS+

PRD.DBDLIB ...

DFSVSAMP

IMSCTL(BUFFP ...

DFSVSAMP+

IMSCTL(LTWA) ...

IEFRDER

...

SYSOUT

SYSPRINT

SYSPRT

SYSWRITE

PRINTDD

SYSLIST

SYSSNAP

XBATSNAP

SYSUDUMP

XBATSNAP

CONISTAT

DOR0.CON.STA ...

CONDSTAT

DOR0.CON.STA ...

CONSCNTR

DOR0.CON.CNT ...

CONSPMGR

DOR0.CON.PMG ...

CONSSEQN

DOR0.CON.SEQ ...

SORTWK01

...

SORTWK02

...

SORTWK03

...

CARDS

DOR7.CON.WCO ...

CARDS+

DOR7.CON.WCO ...

IMSPRINT

SYSOUT

TSTITEMS

DOR0.EST.TST ...

MAILBOX

DOR0.CON.BMB ...

DFSRRC00

STEPLIB

DOR.LOADLIB ...

DATAFILE

&&TEMP ...

SYSOUT

SYSDBOUT

FLASER

STEPLIB

PRD.DBA.IMS. ...

STEPLIB+

DOR.LOADLIB ...

STEPLIB+

PRD.DBA.DB2. ...

STEPLIB+

DB2.DBA.DB2. ...

SYSTSIN

DOR.SYSDATA( ...

DFSRESLB

PRD.DBA.IMS. ...

IMS

PRD.PSBLIB ...

IMS+

PRD.DBDLIB ...

DFSVSAMP

IMSCTL(BUFFP ...

DFSVSAMP+

IMSCTL(LTWA) ...

IEFRDER

...

SYSOUT

SYSPRINT

SYSPRT

SYSWRITE

PRINTDD

SYSLIST

SYSSNAP

XBATSNAP

SYSUDUMP

XBATSNAP

CONISTAT

DOR0.CON.STA ...

CONDSTAT

DOR0.CON.STA ...

CONSCNTR

DOR0.CON.CNT ...

CONSPMGR

DOR0.CON.PMG ...

CONSSEQN

DOR0.CON.SEQ ...

SORTWK01

...

SORTWK02

...

SORTWK03

...

CARDS

DOR7.CON.WCO ...

SYSOUT

MAILBOX

DOR0.CON.BMB ...

IMSPRINT

&&TEMP ...

DFSRRC00

SYSPRINT

SYSIN

...

SYSUT1

&&TEMP ...

SYSUT2

XCOPY

IEBGENER

08/02/10

//XCONEST JOB  '271300-2-9A-272000,                  1101','LAURI B',   JOB05111                              
//  CLASS=O,USER=DOR9999,PASSWORD=,TIME=30                                                                    
/*JOBPARM PROCLIB=PROC01,LINECT=0,F=STD1                                                                      
/*ROUTE PRINT N1.R9                                                                                           
/*ROUTE PUNCH N1.R9                                                                                           
//***** DOR7019                                                                                               
/*NOTIFY NEBR.DOR7019                                                                                         
/*ROUTE PRINT NEBR.DOR7019                                                                                    
//STEP     EXEC CONCEST2                                                                                      
XXS1 EXEC PGM=IEBGENER                                                                                        
XXSYSPRINT DD SYSOUT=A                                                                                        
XXSYSUT2   DD DSN=DOR7.CON.WCONEST2.TEMP,DISP=OLD                                                             
XXSYSIN    DD DUMMY                                                                                           
XX* CONTRACT 1-6 CONTRACTOR 7-10 ESTIMATE NUMBER 11 - 13 'P' 14                                               
XX*                                                                                                           
//S1.SYSUT1   DD *                                                                                            
XXS2 EXEC PGM=WCON024A,ACCT='CONCEST2'                                                                        
XX********************************************************************                                        
XXSTEPLIB  DD DSN=DB2.DBA.DB2.DSNLIB,DISP=SHR                                                                 
XX         DD DSN=DOR.LOADLIB,DISP=SHR                                                                        
XX         DD DSN=PRD.DBA.DB2.INTEX.LOADLIB,DISP=SHR                                                          
XXSYSDBOUT DD SYSOUT=*                                                                                        
XXSYSABOUT DD SYSOUT=*                                                                                        
XXSYSUDUMP DD DUMMY                                                                                           
XXDBAPRINT DD SYSOUT=*                                                                                        
XXSYSPRINT DD SYSOUT=*                                                                                        
XXSYSOUT   DD SYSOUT=*                                                                                        
XXPRINTDD  DD  SYSOUT=A                                                                                       
XXSYSLIST  DD  SYSOUT=A                                                                                       
XXSYSSNAP  DD  SYSOUT=A                                                                                       
XXXBATSNAP DD  SYSOUT=A                                                                                       
XXCON0240  DD DSN=DOR7.CON.WCONEST2.TEMP,DISP=OLD                                                             
XXCON0241  DD DSN=DOR7.CON.WCONEST1.ELECT,DISP=OLD                                                            
XXCON0242  DD DSN=DOR7.CON.WCONEST1.PRINT,DISP=OLD                                                            
XXCON0243  DD  SYSOUT=A                                                                                       
XXSYSTSIN  DD DSN=DOR.SYSDATA(CONBATP0),DISP=SHR                                                              
XX*                                                                                                           
XX*******************************************************                                                     
XXS3  EXEC PGM=DFSRRC00,PARM='DLI,CONC024,CON024,0,0000,,,,N,,,,,N',                                          
XX           TIME=(10,0),ACCT='CONCEST2',REGION=2000K                                                         
XX********************************************************************                                        
XX*                                                                                                           
XXSTEPLIB  DD  DSN=PRD.DBA.IMS.RESLIB,DISP=SHR                                                                
XX         DD  DSN=DOR.LOADLIB,DISP=SHR                                                                       
XX         DD  DSN=PRD.DBA.DB2.INTEX.LOADLIB,DISP=SHR                                                         
XX         DD  DSN=DB2.DBA.DB2.DSNLIB,DISP=SHR                                                                
XXSYSTSIN  DD DSN=DOR.SYSDATA(CONBATP0),DISP=SHR                                                              
XX*                                                                                                           
XX*                                                                                                           
XXDFSRESLB DD  DSN=PRD.DBA.IMS.RESLIB,DISP=SHR                                                                
XXIMS      DD  DSN=PRD.PSBLIB,DISP=SHR                                                                        
XX         DD  DSN=PRD.DBDLIB,DISP=SHR                                                                        
XXDFSVSAMP DD  DSN=IMSCTL(BUFFPOOL),DISP=SHR                                                                  
XX         DD  DSN=IMSCTL(LTWA),DISP=SHR                                                                      
XXIEFRDER  DD  DUMMY,UNIT=TAPE,DISP=(NEW,KEEP,DELETE),                                                        
XX         DCB=(RECFM=VB,LRECL=3988,BLKSIZE=3992)                                                             
XXSYSOUT   DD  DUMMY,SYSOUT=A                                                                                 
XXSYSPRINT DD  SYSOUT=A                                                                                       
XXSYSPRT   DD  SYSOUT=A                                                                                       
XXSYSWRITE DD  SYSOUT=A                                                                                       
XXPRINTDD  DD  SYSOUT=A                                                                                       
XXSYSLIST  DD  SYSOUT=A                                                                                       
XXSYSSNAP  DD  SYSOUT=A                                                                                       
XXXBATSNAP DD  SYSOUT=A                                                                                       
XXSYSUDUMP DD  DUMMY,SYSOUT=G,FCB=S105,DEST=N01R9                                                             
XXXBATSNAP DD  SYSOUT=G,FCB=S105,DEST=N01R9                                                                   
XX*                                                                                                           
XX*      PRODUCTION  VERSION:                                                                                 
XX*                                                                                                           
XXCONISTAT DD  DSN=DOR0.CON.STAT.INDX,DISP=SHR                                                                
XXCONDSTAT DD  DSN=DOR0.CON.STAT.DATA,DISP=SHR                                                                
XXCONSCNTR DD  DSN=DOR0.CON.CNTR.SNDX,DISP=SHR                                                                
XXCONSPMGR DD  DSN=DOR0.CON.PMGR.SNDX,DISP=SHR                                                                
XXCONSSEQN DD  DSN=DOR0.CON.SEQN.SNDX,DISP=SHR                                                                
XXSORTWK01 DD UNIT=SYSDA,SPACE=(CYL,5)                                                                        
XXSORTWK02 DD UNIT=SYSDA,SPACE=(CYL,5)                                                                        
XXSORTWK03 DD UNIT=SYSDA,SPACE=(CYL,5)                                                                        
XXCARDS    DD DSN=DOR7.CON.WCONEST1.ELECT,DISP=OLD                                                            
XX         DD DSN=DOR7.CON.WCONEST1.PRINT,DISP=OLD                                                            
XXIMSPRINT DD SYSOUT=A                                                                                        
XXSYSOUT   DD SYSOUT=A                                                                                        
XXTSTITEMS DD DSN=DOR0.EST.TSTITEMS,DISP=SHR                                                                  
XXMAILBOX  DD DSN=DOR0.CON.BMBOX.DIRECT,DISP=SHR                                                              
XX*******************************************************                                                     
XXS4       EXEC PGM=FLASER,                                                                                   
XX PARM='U93  FIN STA CC TWO-UP TUMBLE PAGEDEF W12881                '                                        
XXSTEPLIB  DD DSN=DOR.LOADLIB,DISP=SHR                                                                        
XXDATAFILE DD DSN=&&TEMP,UNIT=SYSDA,SPACE=(CYL,(5,2)),                                                        
XX            DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118),                                                          
XX            DISP=(NEW,PASS,DELETE)                                                                          
XXSYSOUT   DD SYSOUT=A                                                                                        
XXSYSDBOUT DD SYSOUT=A                                                                                        
XX*******************************************************                                                     
XX*                                                                                                           
XX*******************************************************                                                     
XXS5  EXEC PGM=DFSRRC00,PARM='DLI,CONC024,CON024,0,0000,,,,N,,,,,N',                                          
XX           TIME=(10,0),ACCT='CONCEST2',REGION=2000K                                                         
XX********************************************************************                                        
XX*                                                                                                           
XXSTEPLIB  DD  DSN=PRD.DBA.IMS.RESLIB,DISP=SHR                                                                
XX         DD  DSN=DOR.LOADLIB,DISP=SHR                                                                       
XX         DD  DSN=PRD.DBA.DB2.INTEX.LOADLIB,DISP=SHR                                                         
XX         DD  DSN=DB2.DBA.DB2.DSNLIB,DISP=SHR                                                                
XXSYSTSIN  DD DSN=DOR.SYSDATA(CONBATP0),DISP=SHR                                                              
XX*                                                                                                           
XX*                                                                                                           
XXDFSRESLB DD  DSN=PRD.DBA.IMS.RESLIB,DISP=SHR                                                                
XXIMS      DD  DSN=PRD.PSBLIB,DISP=SHR                                                                        
XX         DD  DSN=PRD.DBDLIB,DISP=SHR                                                                        
XXDFSVSAMP DD  DSN=IMSCTL(BUFFPOOL),DISP=SHR                                                                  
XX         DD  DSN=IMSCTL(LTWA),DISP=SHR                                                                      
XXIEFRDER  DD  DUMMY,UNIT=TAPE,DISP=(NEW,KEEP,DELETE),                                                        
XX         DCB=(RECFM=VB,LRECL=3988,BLKSIZE=3992)                                                             
XXSYSOUT   DD  DUMMY,SYSOUT=A                                                                                 
XXSYSPRINT DD  SYSOUT=A                                                                                       
XXSYSPRT   DD  SYSOUT=A                                                                                       
XXSYSWRITE DD  SYSOUT=A                                                                                       
XXPRINTDD  DD  SYSOUT=A                                                                                       
XXSYSLIST  DD  SYSOUT=A                                                                                       
XXSYSSNAP  DD  SYSOUT=A                                                                                       
XXXBATSNAP DD  SYSOUT=A                                                                                       
XXSYSUDUMP DD  DUMMY,SYSOUT=G,FCB=S105,DEST=N01R9                                                             
XXXBATSNAP DD  SYSOUT=G,FCB=S105,DEST=N01R9                                                                   
XX*                                                                                                           
XX*      PRODUCTION  VERSION:                                                                                 
XX*                                                                                                           
XXCONISTAT DD  DSN=DOR0.CON.STAT.INDX,DISP=SHR                                                                
XXCONDSTAT DD  DSN=DOR0.CON.STAT.DATA,DISP=SHR                                                                
XXCONSCNTR DD  DSN=DOR0.CON.CNTR.SNDX,DISP=SHR                                                                
XXCONSPMGR DD  DSN=DOR0.CON.PMGR.SNDX,DISP=SHR                                                                
XXCONSSEQN DD  DSN=DOR0.CON.SEQN.SNDX,DISP=SHR                                                                
XXSORTWK01 DD UNIT=SYSDA,SPACE=(CYL,5)                                                                        
XXSORTWK02 DD UNIT=SYSDA,SPACE=(CYL,5)                                                                        
XXSORTWK03 DD UNIT=SYSDA,SPACE=(CYL,5)                                                                        
XX*GCNFILE  DD DSN=DOR0.PCN.GCNFILE,DISP=SHR                                                                  
XXCARDS DD DSN=DOR7.CON.WCONEST1.PRINT,DISP=OLD                                                               
XXSYSOUT   DD SYSOUT=A                                                                                        
XXMAILBOX  DD DSN=DOR0.CON.BMBOX.DIRECT,DISP=SHR                                                              
XXIMSPRINT  DD DSN=&&TEMP,DISP=(MOD,PASS)                                                                     
XX*******************************************************                                                     
XX*******************************************************                                                     
XXXCOPY    EXEC PGM=IEBGENER,ACCT='CONCEST2'                                                                  
XXSYSPRINT DD  SYSOUT=A                                                                                       
XXSYSIN    DD  DUMMY                                                                                          
XXSYSUT1   DD  DSN=&&TEMP,UNIT=SYSDA,SPACE=(CYL,(5,2)),                                                       
XX             DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118),                                                         
XX             DISP=(OLD,DELETE)                                                                              
XXSYSUT2   DD  SYSOUT=A,                                                                                      
XX             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118),                                                        
XX             DEST=(NEBR,DOR8001)                                                                            
XX*                                                                                                           
XX                                                                                                            
//*  CONTRACT 1 - 6 CONTRACTOR 7 - 10 ESTIMATE NUMBER 11 - 13  'P' 14

Source