Sa ae PSs cs LS pon ppperrEny erat Mt me nC eae Metctaiatos boone ST ae Lia it er as hotter tte ae ea cry bere a LCT Se. a aa aed beeeneeett et ar te me Nats Perse] Pree s epee omer Tho CL EL Prete ponent eee Peeeees Preres beeen eee the cd Peree ey prea beer ete Dees preted Rie ate CO reek in peaes Fever Sana {2 Typehere to searches ooo os eee ercer rarer rreee St Meeag ses ee ate reed nee ene ty 000300 7/STEPOO1 Por Corer ney anes cos Pere C aes poeeed Pere ert) re Prorat aware as “ See eee Pre a ae eee Prt ed DISP=(MOD, DELETE, DELETED. Prt ee @01000 77 parr aec eens 201100 7/7 Beene atc cad Pret ed erence) Cea Pret es Peart i Tes aos Pree ea rena Ieee lee Pr Set es peer eter Cite aad ret es Pesta eC ead Prete es DrsP=CMOD , DELETE, DELETE) + Pret ee fart eee See DSLIST “DSLIST csaS Ss woe oO Oe aS recess oo See et eet ratte rey eprT Pree a Pret ed 002100 77 Creel ae Pret ae bc pees ff nen ameter Peer eres pert Pee tee bese Reece te Perera Eee atte bey Reena iicect Pee rs Peano een Petre Peper en Get eer Een ae tet e erry Riserae Mane eee an a Rata oen ae Peper nie ia beerte Cesena eet Ee = Y RSPR tee ns A mer ratrs Peeerc eet Tee Ee aL eee eeeSy Teese ae) Dre here to searcharr Pras creer crores Prvetry reer reper yy reer retry reered Proeare creer rors Preeeey preety rete 05300 Pret ed Pree Pree sere ob Se Db OD De a a or errs TECNO22. ICL. ASSMTO2. SHARE erect es PSO aan ae ea ge a cea ae eee ey) Peer ere Meee eae Se a Peeters eine ae Poa tat ec ee OSS CB=CLRECL=80 , BLKSIZE=8OO , RECF| 77005 uv vs Ee ass eet etree etd Pee nutes ie te ere Te Or eal Veta PGM=SORT DSN=TECNO12 . JCL. ASSMTO2 . SHARE .PS1,DISP: aes aga Ss erst PMT TCE Le Ged aS Oks Serra eas area Pes tacos Peete. Meet catedsee 7 & Elle Edit Egit_seccings i wu Ce = eres SD oO De oo ros oo Cee ee cert Sec esT Creed reg Cee CS ae oer 0 oe 005900 7/sTEPO20 rceescee rr apt Pera reer 006100 7/soRTOUT ere aero Pitot) Ne SU met ad Pott es Per Tea Potty meeoest) - pene ee Sai ae amet oe roe ad 06700 7/sTEPe30 eee aas 006800 7/SORTIN peace MeT MCL Sea eh ee Pee eas Eeerehbt streamer eC eae 007000 7/SYSPRINT eer ed rset yeas ered Prrert aeaes od - 007300 SORT FIELDS=COPY posarey OUTREC FIELDS=(1.5-X- rere a ee metas eee as Pes eC Ee Berta sans Pe he PD. Type here to search2S eS aoe File Edit Edtt_Sett: er cee Ez ES Ro ewer etc eatok Ome ets v re Peay rer coo) eas peer cet o: eee were ee is Eee tee eels peers AEST peter eets Pr prereset iy a preety Peae ese lad preety Prat atesos Prete prs terest tier preer eg TRAILERI=(2:C* TOTAL Prt ad Pert Mes an eels Poet Perse eed 208900 //SORTOUT perreersetr E ee me PPO Or ete Pri eed Peer T es Parte Wasa = aaa Pre eed Peer eee ere cia Peer DSS C rare ects Preteen eee as Read Bien itd Prae erccua yer racras Roo eens a we[err rrr a TE ST) saa Sao rewe rarer Canad a Name Prompt Porro arom area) Pret ire) rae) Perey ed nen ered Peres teed Ereeyre vet as rons eee a ee ee eosmetna BB De Oe Oy De 7 ite Edit Edit settings Men| peer Tren crt Seca ere erred rope eort ppaeeeeerane rt stner tes a arent Pg ae ee led « pea sa beets Bets poretry 200200 porerrs pores pore prreres peered Peete ad Port an ee ed borer as ete ert aa 01100 Prat ad wy i Yesrsa rtd 7 7STEPO2O races esa Peete Cc Acai ae 201200 N poser ey Sakai 001400 Perera te aaa 201500 201600 // peta Presa creey Pree IL tnkd 01800 //SYSUT2 : stIsT “OSLTST Perec certsCo ee oS a rag eee) a Posey Poet tt iad 02100 7/sysuT2 a @02200 Y/syvsPRINT rl tee Evitog a Oe ean one PCr me ad Peet) mera Pree See ery Ered @02500 //STEPOSO 202600 //SYSPRINT @02700 //SYSIN ba osp los TAT CES ale hana e oe ale Bret PP FL Sea @ezo2@ 0 CISZC(512) = pokey lm lal al pene La SS2sse 4 VOLOHECZALR?- beer TEs ae peer 2 Prt ea per ee Pes Fe rn ena aca Paro weramos a & 7% Ss De Oe Dy De Utilities Compilers Te ss er rr Ro eee ce Ser ratte Seer rer eareers ag cea] eee ary ot eee Stas Eats Err ee etal 5 ® BLDINDEX INDATASETCTECNO11 rrr rrerry Piya aera ree Prete 204300 /~ 904400 //STEPO7O ceria OPT eats ees Teed mes SHARE ADO are) meer ee Par we Gece) Poorer Sasa beper eae teen Tt alse 204800 Meee Te pee die ded aa seeeee* Bottom lt ( i‘ erassrry Senfirm Utilities Help Perea cd Prompt rr merry chee) Brand cer corer Peery ryt et VEC eeeCe as Se Temermt a ato ee aL eee re a ed Ears pape er ei 00100 4/KSDSCRT @00200 Aster1 Creed Peer eso sysouT=" yreres peene ner MTR tal Ont aia reed lal BO et Ber aasMenu Utilities Compiters Test Help seer o Edt t_Settings ros Psa peer eee amt arte ee Cee ommand ==> se Lane Pree DEFINE CLUSTER CNAME (TECNO12. JCL.ASSHTO2 200120 toe ete rors estas poverty KEYS(5_0>- Prrrer ass ae oe Presto peer eetr rons Petree payor eee ees VOLUME CZAPRD4> > ee CO a raha aera oe psiurst -1SFRPCUS errr ProdAc 2: soar USING Jet. ea aeRO” OL ASOTCZ St ung ran eat amet C01 and we prom be Gra 1 Gitte anise acer dletng od alecstrg te rscomennne © Mamet tesenm proc a SCR which certs stem serous B TisSiep shout be Pe DELETE of xp cates Ps2ysaps4psspse Decl the vate or ae syntacporateraOSNANE # Nae or ROSNAtEcpou be USERID. ASST Sat + Grampleos¥-answnae so + Ths Sep shud be aoston ouput clases: PSDPSSPSEPSSPSS + Decree ate fr 0S asym parameter RESNAME + Value fr ADSRAWE shoul be USERID 01 ASHTOR SHARE + Example: DSN=ADSNNAME ps2 ‘sTePo03: “hs Step shou cl the nsveam roceure SCR whch ml peo den ard locaton sbve eran PStivity 1: Using ISPF locate a PS dataset with record length 80 with naming onvention as given below. {S1-. JCL.ASSMT02.SHARE.PS1 Enter the records given below in the PS dataset PS1= JCLASSVTOD SHARES and oe he pt PSA USERID cL ASSITED SHARE Pt 1 esmange ne postion ofthe fies as specied inthe blo yout Teo! he sored recone nade be soe [NO_OF_ SHARES [SHARE PRICE 913) 96).912) SERIO» JCL ASSMTO2 SHARE PS2 and stort ogres sgure you have coded athe dataset name proc nameconrl card name an step name a per the requirement load your input PS dataset trom (JCL-ASSMTO2 SHARE PS) to your system and name the fleas SHAREINPAL {your procedure KSDSCRTto you system and name the fe as KSOSCRT st \your contol card MYCTLO1 to yout system and name the fleas MYCTLON tt {your JCL CODE from JCLASSMTO2 (JOLOT,JCLO2) to your system and name the fe JAD files (SHAREINPtxtKSDSCRT ntMYCTLO1 tat, JCLOT A JCL.02 i the code er