This can be done by two way:
1. Please check on the below link
http://mainframealldtime.wordpress.com/2012/05/01/positioned-update-in-db2/
or,
2. develop a store procedure or sub program and call the sub program with different year value.
Please let me know if you have any question.
You can use the inspect verb to solve:
INSPECT PORT REPLACING LEADING SPACES BY "0".
MOVE PORT TO WS-PORT-NUM.
;where WS-PORT-NUM will be defined as PIC 9(05).
if you have file system, it is good idea that you should divide the file with 1000 records. Use split files code of FILEAID in JCL. and then run each file in another step.
Hope it will work for your file system.
No. Each Unit of work represented by completion of commit. if the prev UOW is completed with Commit then the abend of job will not roll back the previous committed records in DB2.
We can simplyfy the same query as below:
SELECT
(CASE WHEN LOWER(COMPANYFULLNAME) LIKE '%mic%' THEN 1
WHEN LOWER(COMPANYFULLNAME) LIKE '%icr%' THEN 1 WHEN LOWER(COMPANYFULLNAME) LIKE '%cro%' THEN 1 ELSE 0 END)
FROM COMPANY;
First define a group in the BMS as below:
BANKNBR DFHMDF POS=(ROWNO,COLNO),ATTRB=(UNPROT,NUM), X
LENGTH=4,GRPNAME=BANKS,OCCURS=11
BANK1 DFHMDF POS=(ROWNO,1),LENGTH=4,ATTRB(UNPROT,NUM), X
GRPNAME=BANKS
BANK2 DFHMDF POS=(ROWNO,6),LENGTH=4,ATTRB(UNPROT,NUM), X...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.