programs: Mainframe

concatenation program
//TECH203A JOB ,,MSGCLASS=T,CLASS=M,NOTIFY=TECH203
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=TECH203.KUMAR.PDS(S1),DISP=SHR
//       DD DSN=TECH203.CHINNA.PDS(C1),DISP=SHR
//SYSUT2 DD DSN=TECH203.SWAMI.PS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
/*
//
compress program
***************************** Top of Data ********
//TECH203A JOB ,,MSGCLASS=T,CLASS=M,NOTIFY=TECH203
//STEP1 EXEC PGM=IEBCOPY
//DD1 DD DSN=TECH203.CHINNA.PDS(C1),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
         COPY I=DD1,O=DD1
/*
//
**************************** Bottom of Data ******

cconcatenation using backward reference
***************************** Top of Data *********
//TECH203A JOB ,,MSGCLASS=T,CLASS=M,NOTIFY=TECH203
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=TECH203.KUMAR.PDS(S1),DISP=SHR
//       DD DSN=TECH203.CHINNA.PDS(C1),DISP=SHR
esds create cluster
***************************** Top of Data ************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
   DEFINE CLUSTER(NAME(TECH203.SAT1.ESDS.CLUSTER) -
              NONINDEXED -
              RECORDSIZE(80,80) -
              TRACK(2,3) -
              CONTROLINTERVALSIZE(4096) -
              )
/*
//
**************************** Bottom of Data **********
//SYSUT2 DD DSN=*.SYSUT1,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
/*
   sorting
***************************** Top of Data ***************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=TECH203.HANUMAN.PDS(POWER),DISP=SHR
//SORTOUT DD DSN=TECH203.HANUMAN.PDS(POWER1),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
       SORT FIELDS=(1,3,CH,A)
/*
//
**************************** Bottom of Data *************
    merging
***************************** Top of Data **************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=TECH203.HANUMAN.PDS(POWER),DISP=SHR
//        DD DSN=TECH203.HANUMAN.PDS(POWER1),DISP=SHR
//SORTOUT DD DSN=TECH203.HANUMAN.PDS(POWER2),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
       SORT FIELDS=(1,3,CH,A)
/*
//
instream proc
***************************** Top of Data ******************************
//TECH203A JOB ,,MSGCLASS=T,CLASS=M,NOTIFY=TECH203
//PROC1 PROC
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=TECH203.KUM1.PS,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(2,1),RLSE),DCB=(DSORG=PS,LRECL=80,RECFM=FB,BLKSIZE=800)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=PROC1
//SYSIN DD DUMMY

//
instream proc using iebgener:
***************************** Top of Data **********************
//TECH203A JOB ,,MSGCLASS=T,CLASS=A,NOTIFY=TECH203
//PROC1 PROC
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=TECH203.KUM1.PS,DISP=SHR
//SYSUT2 DD DSN=TECH203.SAT1.PS,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=PROC1
//SYSUT2 DD DSN=TECH203.KUM2.PS,DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(2,1),RLSE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
//SYSIN DD DUMMY
/*
//
catalog proc sorting


//PROC1 PROC
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=TECH203.HANUMAN.PDS(POWER),DISP=SHR
//SORTOUT DD DSN=TECH203.HANUMAN.PDS(POWER1),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//
**************************** Bottom of Data ************
calling fn
***************************** Top of Data **
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//   JCLLIB ORDER=TECH203.KUMAR.PDS
//STEP2 EXEC PROC=CATALOG
//SYSIN DD *
       SORT FIELDS=(1,3,CH,A)
/*
//
**************************** Bottom of Data
G D G
TO DEFINE INDEX
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    DEFINE GDG(NAME(TECH203.INDRA.GDG) -
               LIMIT(3) -
               NOEMPTY -
               SCRATCH -
               )
/*
//
**************************** Bottom of Data ********
TO CREATE A GENERATION
***************************** Top of Data ********************
//TECH203A JOB ,,MSGCLASS=T,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=TECH203.INDRA.GDG(+1),DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(2,1),RLSE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
//SYSIN DD DUMMY
/*
//
**************************** Bottom of Data ******************
TO COPY THE CONTENT
//TECH203A JOB ,,MSGCLASS=T,CLASS=M,NOTIFY=TECH203
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=TECH203.KUMAR.PDS(S2),DISP=SHR
//SYSUT2 DD DSN=TECH203.INDRA.GDG(-1),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
/*
//                                                   vsam
esds
creatin cluster
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    DEFINE CLUSTER(NAME(TECH203.SAT1.ESDS.CLUSTER) -
               NONINDEXED -
               RECORDSIZE(80,80) -
               TRACK(2,3) -
               CONTROLINTERVALSIZE(4096) -
               )
/*
//
repro
***************************** Top of Data *************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
       REPRO -
           INDATASET(TECH203.KUMAR.PDS(S5)) -
           OUTDATASET(TECH203.SAT1.ESDS.CLUSTER)
/*
//
**************************** Bottom of Data ***********
altrnate i ndex 4 esds
***************************** Top of Data ********
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    DEFINE AIX(NAME(TECH203.SAT1.ESDS.AIX) -
        RELATE(TECH203.SAT1.ESDS.CLUSTER) -
               RECORDSIZE(80,80) -
               TRACK(2,3) -
               CISZ(4096)
               )
/*
//
**************************** Bottom of Data ******
ksds
create cluster
***************************** Top of Data *************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    DEFINE CLUSTER(NAME(TECH203.SAT1.KSDS.CLUSTER) -
               FREESPACE(20,20) -
               KEYS(2,3) -
               TRACK(2,3) -
               INDEXED -
               RECORDSIZE(80,80) -
               CONTROLINTERVALSIZE(4096) -
               )
/*
//
repro
***************************** Top of Data ***************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
       REPRO -
           INDATASET(TECH203.KUMAR.PDS(S6)) -
           OUTDATASET(TECH203.SAT1.KSDS.CLUSTER)
/*
//
**************************** Bottom of Data *************
aternate index
***************************** Top of Data ************
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    DEFINE AIX(NAME(TECH203.SAT1.KSDS.AIX) -
        RELATE(TECH203.SAT1.KSDS.CLUSTER) -
               RECORDSIZE(80,80) -
               TRACK(2,3) -
               CISZ(4096) -
               )
/*
//
**************************** Bottom of Data **********

rrds
creating cluster
***************************** Top of Data **********
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    DEFINE CLUSTER(NAME(TECH203.SAT1.RRDS.CLUSTER) -
               FREESPACE(20,20) -
               TRACK(2,3) -
               CONTROLINTERVALSIZE(4096) -
               NUMBERED -
               RECORDSIZE(80,80) -
               )
/*
//
repro
***************************** Top of Data ***********
//TECH203A JOB ,,CLASS=A,NOTIFY=TECH203
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
       REPRO -
           INDATASET(TECH203.KUMAR.PDS(S5)) -
           OUTDATASET(TECH203.SAT1.RRDS.CLUSTER)
/*
//
**************************** Bottom of Data *********

    cobol
add
************************ Top of Data ***********
IDENTIFICATION DIVISION.
PROGRAM-ID ADDITION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(1) VALUE 2.
01 NUM2 PIC 9(1) VALUE 3.
01 RESULT PIC 9(2).
PROCEDURE DIVISION.
CALCULATE.
       ADD NUM1, NUM2 TO RESULT.
       DISPLAY "SATHESH RESULT IS=" RESULT.
       STOP RUN.
sub
    IDENTIFICATION DIVISION.
    PROGRAM-ID ADDITION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
         01 NUM1 PIC 9(1).
         01 NUM2 PIC 9(1).
         01 C PIC 9(2).
    PROCEDURE DIVISION.
    CALCULATE.
         ACCEPT NUM1.
         ACCEPT NUM2.
         SUBTRACT NUM1 FROM NUM2 GIVING C.
         DISPLAY "SATHESH RESULT IS=" C .
         STOP RUN.

compute
    IDENTIFICATION DIVISION.
       PROGRAM-ID ADDITION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NUM1 PIC 9(2).
       01 NUM2 PIC 9(2).
       01 C PIC 9(2).
       01 NUM3 PIC 9(2).
       01 NUM4 PIC 9(2).
       01 D PIC 9(3).
       PROCEDURE DIVISION.
       CALCULATE.
            ACCEPT NUM1.
            ACCEPT NUM2.
            ACCEPT C.
            ACCEPT NUM3.
            ACCEPT NUM4.
            COMPUTE D = ((NUM1 + NUM2) / C * NUM3).
            DISPLAY "SATHESH RESULT IS=" D.
            STOP RUN.

programs

Monday, February 7, 2011

Mainframe

No comments:

Post a Comment

About Me

Blog Archive