Tuesday, 14 January 2014

Audit Failture in Changeman return code:12

Return code: 12             SYNCH4

Please try to compile the program, once you have made any changes for the copybook inside the same Package.

For example:  Package ID: PAG200014

inside the package there is a cobol program: COB123
also there is a copybook:  CPY123

if you have made any changes to the copybook, then try to audit the package the it will abend showing return code: 12

So please try to compile the program then Audit the package to solve the error.

Sunday, 5 January 2014

Future Mobile technologies

Connecting Mobile(Android, Linux, Windows) with Mainframe.

Mobile Phone - Contains only communicator and additional hardware like Camera, Tracker etc. The Input and the Output will be given through this device.

Cloud - Contains source limiter and storage for every mobile device that gets connected with it.

Mainframe - has all the source for the devices that going to interact with it. For eg: the Operating System will be in the Mainframe and also the processing will happen in Mainframe for every Input or request from the user.

Tuesday, 31 December 2013

Abend: 37

SB37: End of volume

Increase the size of primary and secondary reasonably.

If the job again and again comes down, then simple solution is to make the dataset multi volume by coding VOL=(,,,3).

SD37: Secondary space is not given

The secondary space in the SPACE parameter of the dataset that has given problem.

SE37: End of Volume (usually for a partitioned dataset)

If the partitioned dataset is already existing one, then compress the dataset using ‘Z’ in ISPF/IEBGENER and then submit the job once again.

Monday, 30 December 2013

To compare two Datasets

IEBCOMPR

-> Compare one PDS to another
-> Compare one sequential dataset to another sequential dataset on a record by record basis.

Sample program:

//JOBCARD
//STEP1   EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//FILE1 DD DSN=FILE.NAME1,DISP=SHR
//FILE2 DD DSN=FILE.NAME2,DISP=SHR
//SYSIN DD*
    COMPARE TYPORG=PO
/*
//

Utility program IEBGENER

This utility program :

Copies sequential data set from one device to another.
Create a PDS from a sequential dataset. Expand or add members to a PDS. 
Produce an edited dataset. 
Change logical record lengths of a dataset.

Sample program:

// JOBCARD
//STEP1   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN= INPUT.DATASET,DISP=SHR
//SYSUT2 DD DSN=OUTPUT.DATASET, DISP=SHR
//SYSIN DD DUMMY
//

System Utility Programs

Used to maintain and manipulate system and user data

-> Maintain libraries and catalog entries.
-> initiate volumes
-> volume and data set backup
-> List VTOC, directories and catalog

Programs:

-> IEHATLAS
Recovers data from damage disk volumes, attempts to write on the defective track and reads back the data return.

-> IEHINITT
Applies volume label and tape mark to a tape used by the operations personnel.\

-> IEHLIST
List the entries in the directory of a partitioned dataset created by the linkage editor.

-> IEHMOVE
Copies or move sequential, partitioned or direct datasets.

-> IEHPROGM
Scratches the data set residing on direct-access volumes.

-> IFHSTATR

Saturday, 28 December 2013

JCL to copy PS data to GDG

//SORT1 EXEC PGM=SORT

//SORTIN DD DSN=FILE.INPUT.PS,DISP=SHR

//SORTOUT DD DSN=FILE.OUTPUT.GDG(+1),

//                           DISP=(NEW,CATLOG,DELETE),

//                           DCB=(LRECL=(length of PS file),RECFM=FB,BLKSIZE=0)

//SYSIN DD *

   SORT FIELDS=COPY

//SYSOUT DD SYSOUT=*



The above JCL is used to copy the data content from the PS file to the GDG file by creating a new generation.
Points:
1. The record length of the PD file and the GDG created newly should remain same
2. The RECFM of GDG file should be FM if the PS file is or should VB

Expense Handler Application with advance technologies

Budget Planner  One of the application developed with Ionic 4 and Python-Flask.  Ionic 4 code:  https://github.com/logeshbuiltin/Expense...