We often make use of ISREDIT macros to do a quick job for us, for example tailoring a file to eliminate few records etc, or search a string in a file etc etc. It becomes necessary at times to pass information to a macro and get back the information. The following example will show you […]
Pass Values from CLIST to and from a ISREDIT macro Read More »
INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES The following COBOL program depicts the use of INSPECT TALLYING FOR CHARACTER BEFORE INITIAL SPACES 01 TEST-STRING PIC X(40) VALUE SPACES. 01 WS-COUNTER PIC 9(9) VALUE ZEROES. MOVE ‘THIS IS TEST STRING TO TEST
INSPECT TALLYING FOR CHARACTER AFTER INITIAL SPACES Read More »
ISREDIT MACROS Picture Strings A picture string in a FIND, CHANGE, or EXCLUDE command allows you to search for a particular kind of character without regard for the specific character involved. You can use special characters within the picture string to represent the kind of character to be found, as follows: String MeaningP’=’ Any
The following simple COBOL program depicts the use of 01 WS-SUB PIC 9(3) VALUE ZEROS. DISPLAY ‘CALLING PARA USING PERFORM BY MAINFRAMEWIZARD.COM’ DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’ DISPLAY ‘PARA NAME IS 20000-FIRST-PARA’
COBOL PERFORM PARA Read More »
The following simple COBOL program depicts the use of 01 WS-SUB PIC 9(3) VALUE ZEROS. PERFORM 20000-FIRST-PARA THRU 30000-THIRD-PARA DISPLAY ‘DEPICTING PERFORM THRU BY MAINFRAMEWIZARD.COM’ DISPLAY ‘PARA NAME IS 10000-FIRST-PARA’
COBOL PERFORM THRU Read More »
The following CLIST can be used to read a line from dataset USERID.PARM1. Here FIL1 is symbolic name of the file. ALLOC F(FIL1) DA(‘USERID.PARM1’) SHR REU OPENFILE FIL1 GETFILE FIL1 CLOSFILE FIL1 FREE FILE(FIL1) SET VAL1 = &SUBSTR(1:7,&FIL1) SET VAL2 = &SUBSTR(9:16,&FIL1) WRITE &VAL1 WRITE &VAL2 END
ISPP330 BDISPMAX exceeded -/-100 displays exceeded in batch mode on panel Cause IF your edit macro (used in batch) does not end with a statement like “END” or “CANCEL” to terminate the edit session. Then the above error occurs. Take a look at the following example. If the statement marked in bold is missing
Transfer file from and to mainframe using FTP You can use FTP dos command to transfer files from and to mainframe Start –> Run –> Command Step2: Enter the following command Where XX.XXX.XX.XXX is the ip address of mainframe Step3: When you are prompted for user name and password, provide your mainframe id and mainframe
Transfer file from and to mainframe using FTP Read More »
S322 Abend What is a S322 Abend? S322 is a “Time out” system Abend When S322 Abend occurs? The time taken by the job was more than the time specified in the TIME parameter of the EXEC or the job statement. The time taken by the job has exceeded the limit set in JES. How
UNSTRING DELIMITED BY LITERAL The following COBOL program depicts the use of UNSTRING DELIMITED BY LITERAL 01 WS-DATE PIC X(10) VALUE ‘2011-01-15’. 05 WS-YYYY PIC 9999 VALUE ZEROES. 05 WS-MM PIC 99 VALUE ZEROES. 05
UNSTRING DELIMITED BY LITERAL Read More »
