Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
DYL-280 / VISION:RESULTS program in JCL

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
neelesht

New User


Joined: 24 Jul 2006
Posts: 99
Location: Los Angeles

PostPosted: Fri Feb 06, 2009 3:27 am    Post subject: DYL-280 / VISION:RESULTS program in JCL
Reply with quote

Hi All,

I have a JCL which is coded like below, this is like coding kind of COBOL program in the JCL, can anyone explain me what exactly is this and how does it work :

Code:
//SYSIN     DD *                                     
OPTION STRUCTURED2                                   
FILE FILEIN VB 1878 STATUS INEOF                     
    CB_CARD_NUMBER                  19   1           
    CB_FIN_INST_NUMBER              05   22         
    CB_CARD_PREFIX                  11   27         
    CB_CARD_STATUS                  01   340         
    CB_PERSONAL_LIMS_IND            01   494         
    CB_MERCH_DB_TOTAL_DLR_LIMIT     03   500 PD     
    CB_MERCH_DB_NUMBER_LIMIT        02   503 PD     
    CB_DEBIT_PAD_IND                01   589         
    CB_DEBIT_PAD_TYPE               01   590         
WORKAREA                                                         
    HOLD_DOL_AMT       5  1                                       
    HOLD_CNT           3  6                                       
WORKAREA                                                         
    HOLD_PREFIX        11  1                                     
MOVE ' ' TO OUT_RECORD                                           
READ FILEIN                                                       
DOWHILE INEOF NE 'E'                                             
;IF CB_DEBIT_PAD_TYPE  EQ ' '                                     
   TRANSLATE CB_CARD_PREFIX FROM X'FF' TO X'40'                   
        MOVE ' '                 TO OUT_RECORD                   
        MOVE '0220'              TO OUT_RECID                     
        MOVE CB_FIN_INST_NUMBER  TO OUT_FI                       
        MOVE CB_CARD_NUMBER      TO OUT_CARDNO                   
        MOVE '20090204'          TO OUT_UP_DATE                   
        MOVE '114444'            TO OUT_UP_TIME                   
        MOVE 'Y'                 TO OUT_PERS_LIMS_IND 
       READ FILEIN         
  ENDDO                     
  ON END OF INPUT           
  STOP                     


Thanks for the help and sorry if the Subject of the topic is confusing.
Neelesh
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Fri Feb 06, 2009 3:39 am    Post subject: Re: cobol programe in JCL
Reply with quote

Looks like a procedural/4GL language of some sort, like Easytrieve perhaps?

Have you asked any of your colleagues?

It's certainly not COBOL. icon_surprised.gif
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Fri Feb 06, 2009 3:45 am    Post subject: Reply to: cobol programe in JCL
Reply with quote

Maybe Quikjob or a subsequent similar language? It would be helpful to know the name of the program being invoked.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Feb 06, 2009 6:04 am    Post subject:
Reply with quote

Hello,

Quote:
It would be helpful to know the name of the program being invoked
Indeed icon_smile.gif It would help for the complete jcl for the step was posted.
Back to top
View user's profile Send private message
neelesht

New User


Joined: 24 Jul 2006
Posts: 99
Location: Los Angeles

PostPosted: Sat Feb 07, 2009 12:09 am    Post subject:
Reply with quote

Here is the complete JCL

JOBCARD
/*XEQ N1
/*JOBPARM S=HOG1
//*
//* DYL TO CREATE BATCH MAINT (220) RECORDS (PERSONAL LIMITS)
//*
//DYL1 EXEC PGM=DYL280
//SYSPRINT DD SYSOUT=M
//SYSCOPY DD DSN=CGN.OPER.COPY,DISP=SHR
// DD DSN=CBN.OPER.COPY,DISP=SHR
//SYS280R DD SYSOUT=T
//SYS004 DD UNIT=DISK,SPACE=(TRK,5)
//FILEIN DD DISP=SHR,DSN=TSCBN.A3A.ACTEXT.D090202
//BM220FIL DD DSN=TSCBN.A3A.BNG5.BM220REC.D090204,
// DISP=(NEW,CATLG,DELETE),MGMTCLAS=DEL01M,
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=1092,BLKSIZE=27300)
//SYSIN DD *
OPTION STRUCTURED2
FILE FILEIN VB 1878 STATUS INEOF
CB_CARD_NUMBER 19 1
CB_FIN_INST_NUMBER 05 22
CB_CARD_PREFIX 11 27
CB_CARD_STATUS 01 340
CB_PERSONAL_LIMS_IND 01 494
CB_MERCH_DB_TOTAL_DLR_LIMIT 03 500 PD
CB_MERCH_DB_NUMBER_LIMIT 02 503 PD
CB_DEBIT_PAD_IND 01 589
CB_DEBIT_PAD_TYPE 01 590

FILE BM220FIL OUTPUT FROM BM220FIL FB 1092
OUT_RECORD 1092 1
OUT_RECID 4 1
OUT_FI 5 5
OUT_CARDNO 19 10
OUT_UP_DATE 8 29
OUT_UP_TIME 6 37
OUT_DEBIT_PAD_IND 1 43
OUT_DEBIT_PAD_TYPE 1 44
OUT_DEBIT_PAD_AMT 5 45
OUT_PERS_LIMS_IND 1 50
; OUT_PERS_LIMS_RESETDT 8 51
OUT_CASH_OUT_AMT_LIM 5 59
OUT_CASH_OUT_TRN_LIM 3 64
OUT_PURCHASE_AMT_LIM 5 67
OUT_PURCHASE_TRN_LIM 3 72
OUT_CASH_ADV_AMT_LIM 5 75
OUT_CASH_ADV_TRN_LIM 3 80
OUT_CRDTPRCH_AMT_LIM 5 83
OUT_CRDTPRCH_TRN_LIM 3 88
OUT_ATM_CSHBK_AMT_LIM 5 91
OUT_A2A_TRAN_AMT_LIM 5 117
OUT_A2A_TRAN_TRN_LIM 3 122
OUT_A2A_PMNT_AMT_LIM 5 125
OUT_A2A_PMNT_TRN_LIM 3 130
WORKAREA
HOLD_DOL_AMT 5 1
HOLD_CNT 3 6
WORKAREA
HOLD_PREFIX 11 1
MOVE ' ' TO OUT_RECORD
READ FILEIN
DOWHILE INEOF NE 'E'
;IF CB_DEBIT_PAD_TYPE EQ ' '
TRANSLATE CB_CARD_PREFIX FROM X'FF' TO X'40'
MOVE ' ' TO OUT_RECORD
MOVE '0220' TO OUT_RECID
MOVE CB_FIN_INST_NUMBER TO OUT_FI
MOVE CB_CARD_NUMBER TO OUT_CARDNO
MOVE '20090204' TO OUT_UP_DATE
MOVE '114444' TO OUT_UP_TIME
MOVE 'Y' TO OUT_PERS_LIMS_IND
IF CB_DEBIT_PAD_IND EQ ' '
MOVE 'N' TO OUT_DEBIT_PAD_IND
ELSE
MOVE CB_DEBIT_PAD_IND TO OUT_DEBIT_PAD_IND
ENDIF
IF CB_DEBIT_PAD_TYPE EQ ' '
MOVE 'N' TO OUT_DEBIT_PAD_TYPE
ELSE
MOVE CB_DEBIT_PAD_TYPE TO OUT_DEBIT_PAD_TYPE
ENDIF
; MOVE CB_MERCH_DB_TOTAL_DLR_LIMIT TO OUT_PURCHASE_AMT_LIM
; MOVE CB_MERCH_DB_NUMBER_LIMIT TO OUT_PURCHASE_TRN_LIM
MOVE '01000' TO OUT_CASH_ADV_AMT_LIM
MOVE ' ' TO OUT_CASH_ADV_TRN_LIM
MOVE '01000' TO OUT_CRDTPRCH_AMT_LIM
MOVE ' ' TO OUT_CRDTPRCH_TRN_LIM
MOVE '01000' TO OUT_ATM_CSHBK_AMT_LIM
MOVE '01000' TO OUT_A2A_TRAN_AMT_LIM
MOVE ' ' TO OUT_A2A_TRAN_TRN_LIM
MOVE '01000' TO OUT_A2A_PMNT_AMT_LIM
MOVE ' ' TO OUT_A2A_PMNT_TRN_LIM
WRITE BM220FIL
READ FILEIN
ENDDO
ON END OF INPUT
STOP

Let me know if this helps.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8154
Location: East Dubuque, Illinois, USA

PostPosted: Sat Feb 07, 2009 12:15 am    Post subject:
Reply with quote

DYL-280 is the language and there's over 3,500 hits on Google for it.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Sat Feb 07, 2009 10:32 am    Post subject:
Reply with quote

DYL-280 is now known as VISION:RESULTS.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm
No new posts COBOL DB2 program - zIIP eligible vasanthz COBOL Programming 7 Wed May 31, 2017 5:12 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us