CHECK PALINDROME TO JCL
File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
EDIT SSS005.AAJ.SOURCE(PAL) - 01.04 Member PAL saved
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. PAL.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 N PIC X(10).
000600 01 N1 REDEFINES N.
000700 02 A PIC X OCCURS 10 TIMES.
000800 01 SL PIC 99.
000900 01 I PIC 9 VALUE 1.
001000 01 J PIC 9.
001100 01 M PIC 9.
001200 01 FL PIC 9 VALUE 0.
001300 PROCEDURE DIVISION.
001400 PARA1.
001500 ACCEPT N.
001600 INSPECT N TALLYING SL FOR CHARACTERS BEFORE INITIAL SPACES.
001700 COMPUTE M = SL / 2.
001800 MOVE SL TO J.
001900 PERFORM P2 UNTIL I > M.
002000 IF FL = 0
002010 DISPLAY " STRING IS PALINDROME"
002200 ELSE
002300 DISPLAY " STRING IS NOT PALINDROME".
002400 STOP RUN.
002500 P2.
002600 PERFORM P3 UNTIL J < M.
002700 P3.
002800 IF A(I) NOT = A(J)
002900 MOVE 1 TO FL.
003000 COMPUTE I = I + 1.
003100 COMPUTE J = J - 1.
****** **************************** Bottom of Data ****************************
JCL
File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
EDIT SSS005.AAJ.SOURCE(PJCL) - 01.12 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
==MSG> -CAUTION- Profile changed to NUMBER ON STD (from NUMBER OFF).
==MSG> Data has valid standard numbers.
000100 //SSS005A JOB NOTIFY=SSS005
000200 //JOBLIB DD DSN=SSS005.AAJ.LOAD,DISP=SHR
000300 //S1 EXEC PGM=PAL
000400 //SYSOUT DD SYSOUT=*
000410 //SYSIN DD *
000420 MADAM
000430 /*
000500 //
****** **************************** Bottom of Data ****************************
CHECK PRIME JCL
File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
EDIT SSS005.AAJ.SOURCE(PRIME) - 01.03 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. PRIME.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 F PIC 9 VALUE 1.
000600 01 N PIC 99.
000700 01 N1 PIC 99.
000900 01 Q PIC 99.
001000 01 R PIC 99.
001010 01 I PIC 99.
001100 PROCEDURE DIVISION.
001200 P1.
001400 ACCEPT N.
001500 COMPUTE N1 = N / 2.
001600 PERFORM P2 VARYING I FROM 2 BY 1 UNTIL I > N1.
001700 IF F = 1
001800 DISPLAY N "IS PRIME"
001900 ELSE DISPLAY N "IS NOT PRIME".
002000 STOP RUN.
002100 P2.
002200 DIVIDE N BY I GIVING Q REMAINDER R.
002300 IF R = 0
002400 MOVE 0 TO F.
****** **************************** Bottom of Data ****************************
F1=Help F2=tso sdsf F3=Exit F4=sub F5=Rfind F6=ReC
F7=Up F8=Down F9=Swap F10=Left F11=Right F12=END
JCL
File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
EDIT SSS005.AAJ.SOURCE(PJCL) - 01.12 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000100 //SSS005A JOB NOTIFY=SSS005
000200 //JOBLIB DD DSN=SSS005.AAJ.LOAD,DISP=SHR
000300 //S1 EXEC PGM=PRIME
000400 //SYSOUT DD SYSOUT=*
000410 //SYSIN DD *
000420 13
000430 /*
000500 //
****** **************************** Bottom of Data ****************************
PGM TO EXTRACT INTEGERS FROM STRING JCL
File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
EDIT SSS005.AAJ.SOURCE(EXNO) - 01.01 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. EXNO.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 N PIC X(10).
000600 01 N1 REDEFINES N.
000700 02 A PIC X OCCURS 10 TIMES.
000800 01 N2.
000900 02 B PIC X OCCURS 10 TIMES.
001000 01 SL PIC 99.
001100 01 I PIC 9.
001200 01 J PIC 9 VALUE 1.
001300 01 C PIC 9 VALUE 0.
001400 PROCEDURE DIVISION.
001500 P1.
001600 ACCEPT N.
001700 INSPECT N TALLYING SL FOR CHARACTERS BEFORE INITIAL SPACES.
001800 PERFORM P2 VARYING I FROM 1 BY 1 UNTIL I > SL.
001900 DISPLAY "THE NUMERIC VALUES ARE " N2.
002000 STOP RUN.
002100 P2.
002200 IF A(I) IS NUMERIC
002300 COMPUTE C = C + 1
002400 PERFORM P3 UNTIL J > C.
002500 P3.
MOVE A(I) TO B(J).
COMPUTE J = J + 1.
JCL
000001 //SSS005F JOB NOTIFY=SSS005
000002 //JOBLIB DD DSN=SSS005.AAJ.LOAD,DISP=SHR
000003 //S1 EXEC PGM=EXNO
000005 //SYSOUT DD SYSOUT=*
//SYSIN DD *
12#4@44$
/*
000006 //
EMAIL JCL
EDIT ESCUB01.AAJ.SOURCE(EMAIL) - 01.05 Columns 00001 00072
****** ***************************** Top of Data ******************************
000001 //ESCUB01E JOB NOTIFY=&SYSUID
000002 //S1 EXEC PGM=IEBGENER
000003 //SYSIN DD DUMMY
000004 //SYSPRINT DD SYSOUT=*
000005 //*
000006 //SYSUT1 DD *
000007 HELO N1
000008 MAIL FROM: <ESCUB01@N1.XYZ.COM>
000009 RCPT TO: <AJISHVIJAY@GMAIL.COM>
000010 DATA
000011 TO: <AJISHVIJAY@GMAIL.COM>
000012 FROM: "AJISH"<ESCUB01@N1.XYZ.COM>>
000013 SUBJECT: TCP/IP MAIL FROM MVS BATCH ON SYSA
000014 THIS IS A TEST MESSAGE FROM BATCH.
000015 /*
000016 // DD DISP=SHR,DSN=ESCUB01.AAJ.DATA
000017 //*
000018 //SYSUT2 DD SYSOUT=(B,TCPSMTP)
000019 //*
000020 //
****** **************************** Bottom of Data ****************************
No comments:
Post a Comment