Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:ssval.003
Deck SSVAL Part 003
4 Modifications
Listing Sections
- Deck SSVAL Start
- Deck SSVAL Part 1 (Line 2201)
- Deck SSVAL Part 2 (Line 4460)
- Deck SSVAL Part 3 (Line 6654)
Source
Seq # *Modification Id* Act ----------------------------+ 06654 M00S06513.ssval +++|# 06655 M00S06514.ssval +++|**** PROC VLSUBHD - XREF LIST END. 06656 M00S06515.ssval +++|# 06657 M00S06516.ssval +++| 06658 M00S06517.ssval +++| DEF LISTCON #0#; 06659 M00S06518.ssval +++|*CALL COMBFAS 06660 M00S06519.ssval +++|*CALL COMTVLD 06661 M00S06520.ssval +++|*CALL COMTVLF 06662 M00S06521.ssval +++| 06663 M00S06522.ssval +++| ITEM TYP I; # HEADING TYPE # 06664 M00S06523.ssval +++| 06665 M00S06524.ssval +++|# 06666 M00S06525.ssval +++|* THE FOLLOWING ARRAYS ARE REPORT FILE HEADING LINES. 06667 M00S06526.ssval +++|# 06668 M00S06527.ssval +++| 06669 M00S06528.ssval +++| ARRAY SUBHEAD1 [0:0] S(8); # SUB-HEADING LINE # 06670 M00S06529.ssval +++| BEGIN 06671 M00S06530.ssval +++| ITEM SH$D1 C(00,00,80) = ["0 SUBFAMILY = N SM = X "]; 06672 M00S06531.ssval +++| ITEM SH$SUB C(01,36,01); 06673 M00S06532.ssval +++| ITEM SH$SM C(02,30,01); 06674 M00S06533.ssval +++| ITEM SH$DESC C(02,48,14); 06675 M00S06534.ssval +++| ITEM SH$D2 C(04,24,06) = ["LPDT ="]; 06676 M00S06535.ssval +++| ITEM SH$DATE C(05,00,10); 06677 M00S06536.ssval +++| ITEM SH$TIME C(06,00,10); 06678 M00S06537.ssval +++| END 06679 M00S06538.ssval +++| 06680 M00S06539.ssval +++| 06681 M00S06540.ssval +++| 06682 M00S06541.ssval +++| ARRAY RDTL [0:0] S(8); # PROBLEM HEADING # 06683 M00S06542.ssval +++| BEGIN 06684 M00S06543.ssval +++| ITEM RD$DEF C(00,00,80) = [" ERR "]; 06685 M00S06544.ssval +++| ITEM RD$D1 C(01,18,20) = ["IDENTIFICATION"]; 06686 M00S06545.ssval +++| ITEM RD$D2 C(03,30,12) = [" -CHAIN- "]; 06687 M00S06546.ssval +++| ITEM RD$D3 C(05,06,20) = ["ERROR DESCRIPTION"]; 06688 M00S06547.ssval +++| END 06689 M00S06548.ssval +++| 06690 M00S06549.ssval +++| ARRAY RDTL2 [0:0] S(8); # PROBLEM HEADING 2 # 06691 M00S06550.ssval +++| BEGIN 06692 M00S06551.ssval +++| ITEM RD$DD1 C(00,00,80) = [" TYP"]; 06693 M00S06552.ssval +++| ITEM RD$DD2 C(03,18,20) = ["FCT - AU - A/U - H/E"]; 06694 M00S06553.ssval +++| END 06695 M00S06554.ssval +++| 06696 M00S06555.ssval +++| ARRAY ICHDR [0:0] S(5); # INTERSECTION HEADING # 06697 M00S06556.ssval +++| BEGIN 06698 M00S06557.ssval +++| ITEM ICH$DEF C(00,00,50) = [" "]; 06699 M00S06558.ssval +++| ITEM ICH$D1 C(02,36,20) = ["- HEAD OF CHAINS -"]; 06700 M00S06559.ssval +++| END 06701 M00S06560.ssval +++| 06702 M00S06561.ssval +++| ARRAY ICDTL [0:0] S(5); # INTERSECTION HEADING 2 # 06703 M00S06562.ssval +++| BEGIN 06704 M00S06563.ssval +++| ITEM ICD$DEF C(00,00,50) = [" "]; 06705 M00S06564.ssval +++| ITEM ICD$D1 C(02,12,11) = ["FCTORD - AU"]; 06706 M00S06565.ssval +++| ITEM ICD$D2 C(03,42,11) = ["FCTORD - AU"]; 06707 M00S06566.ssval +++| END 06708 M00S06567.ssval +++| 06709 M00S06568.ssval +++| CONTROL EJECT; 06710 M00S06569.ssval +++| 06711 M00S06570.ssval +++| TYP = RTYP; # SET HEADING TYPE # 06712 M00S06571.ssval +++| 06713 M00S06572.ssval +++|# 06714 M00S06573.ssval +++|* GET THE LAST PURGED DATE/TIME FOR THE SUBCATALOG. 06715 M00S06574.ssval +++|# 06716 M00S06575.ssval +++| 06717 M00S06576.ssval +++| VLSUBTD(SCPDATE,SCPTIME); 06718 M00S06577.ssval +++| SH$DATE[0] = SCPDATE; # SUBCATALOG DATE # 06719 M00S06578.ssval +++| SH$TIME[0] = SCPTIME; # SUBCATALOG TIME # 06720 M00S06579.ssval +++| 06721 M00S06580.ssval +++|# 06722 M00S06581.ssval +++|* BUILD THE VARIABLE FIELDS OF THE REPORT HEADING. 06723 M00S06582.ssval +++|# 06724 M00S06583.ssval +++| 06725 M00S06584.ssval +++| SH$SUB[0] = SBINDX + "0"; 06726 M00S06585.ssval +++| SH$SM[0] = SMINDX; 06727 M00S06586.ssval +++| 06728 M00S06587.ssval +++|# 06729 M00S06588.ssval +++|* FILL IN THE REPORT DESCRIPTION DEPENDING ON THE REQUESTED 06730 M00S06589.ssval +++|* HEADING TYPE. 06731 M00S06590.ssval +++|# 06732 M00S06591.ssval +++| 06733 M00S06592.ssval +++| IF TYP EQ SHTYP"OK" 06734 M00S06593.ssval +++| THEN 06735 M00S06594.ssval +++| BEGIN 06736 M00S06595.ssval +++| SH$DESC[0] = " -- GOOD -- "; 06737 M00S06596.ssval +++| END 06738 M00S06597.ssval +++| 06739 M00S06598.ssval +++| IF TYP EQ SHTYP"ICT" 06740 M00S06599.ssval +++| THEN 06741 M00S06600.ssval +++| BEGIN 06742 M00S06601.ssval +++| SH$DESC[0] = "INTERSECTIONS"; 06743 M00S06602.ssval +++| END 06744 M00S06603.ssval +++| 06745 M00S06604.ssval +++| IF TYP EQ SHTYP"PRPT" 06746 M00S06605.ssval +++| THEN 06747 M00S06606.ssval +++| BEGIN 06748 M00S06607.ssval +++| SH$DESC[0] = " PROBLEMS "; 06749 M00S06608.ssval +++| END 06750 M00S06609.ssval +++| 06751 M00S06610.ssval +++|# 06752 M00S06611.ssval +++|* ISSUE THE SUBCATALOG HEADING TO THE REPORT FILE. 06753 M00S06612.ssval +++|# 06754 M00S06613.ssval +++| 06755 M00S06614.ssval +++| RPLINE(RPTFADR," ",0,1,EOPL); # BLANK LINE # 06756 M00S06615.ssval +++| RPLINE(RPTFADR,SUBHEAD1,0,80,EOPL); 06757 M00S06616.ssval +++| 06758 M00S06617.ssval +++|# 06759 M00S06618.ssval +++|* ISSUE THE INTERSECTING CHAIN SUBHEADING IF REQUESTED. 06760 M00S06619.ssval +++|# 06761 M00S06620.ssval +++| 06762 M00S06621.ssval +++| IF TYP EQ SHTYP"ICT" 06763 M00S06622.ssval +++| THEN 06764 M00S06623.ssval +++| BEGIN 06765 M00S06624.ssval +++| RPLINE(RPTFADR,ICHDR,0,50,EOPL); 06766 M00S06625.ssval +++| RPLINE(RPTFADR,ICDTL,0,50,EOPL); 06767 M00S06626.ssval +++| END 06768 M00S06627.ssval +++| 06769 M00S06628.ssval +++|# 06770 M00S06629.ssval +++|* ISSUE THE PROBLEM REPORT SUBHEADING IF REQUESTED. 06771 M00S06630.ssval +++|# 06772 M00S06631.ssval +++| 06773 M00S06632.ssval +++| IF TYP EQ SHTYP"PRPT" 06774 M00S06633.ssval +++| THEN 06775 M00S06634.ssval +++| BEGIN 06776 M00S06635.ssval +++| RPLINE(RPTFADR,RDTL,0,80,EOPL); 06777 M00S06636.ssval +++| RPLINE(RPTFADR,RDTL2,0,80,EOPL); 06778 M00S06637.ssval +++| END 06779 M00S06638.ssval +++| 06780 M00S06639.ssval +++| END # VLSUBHD # 06781 M00S06640.ssval +++| 06782 M00S06641.ssval +++| TERM 06783 M00S06642.ssval +++|PROC VLSUBTD; 06784 M00S06643.ssval +++|# TITLE VLSUBTD - GET SUB-HEADING TIME AND DATE. # 06785 M00S06644.ssval +++| 06786 M00S06645.ssval +++| BEGIN # VLSUBTD # 06787 M00S06646.ssval +++| 06788 M00S06647.ssval +++|# 06789 M00S06648.ssval +++|** VLSUBTD - GET SUBCATALOG HEADING TIME AND DATE. 06790 M00S06649.ssval +++|* 06791 M00S06650.ssval +++|* THE LAST PURGED TIME AND DATE FOR THE SUBCATALOG 06792 M00S06651.ssval +++|* IN THE SUBFAMILY IS RETRIEVED AND EDITED. 06793 M00S06652.ssval +++|* 06794 M00S06653.ssval +++|* PROC VLSUBTD 06795 M00S06654.ssval +++|* 06796 M00S06655.ssval +++|* ENTRY (SMINDX) - *SM* INDEX. 06797 M00S06656.ssval +++|* (PAR$FM) - FAMILY PARAMETER. 06798 M00S06657.ssval +++|* (PAR$RF) - *RDF* FILE PARAMETER. 06799 M00S06658.ssval +++|* (SBINDX) - SUBFAMILY INDEX. 06800 M00S06659.ssval +++|* 06801 M00S06660.ssval +++|* EXIT (SCPDATE) - EDITED DATE OR "****". 06802 M00S06661.ssval +++|* (SCPTIME) - EDITED TIME OR "****". 06803 M00S06662.ssval +++|* 06804 M00S06663.ssval +++|* NOTES IF THE SFM CATALOG FROM THE *RDF* FILE IS BEING 06805 M00S06664.ssval +++|* PROCESSED THE DATE AND TIME IS RETRIEVED BY A *CALLSS* 06806 M00S06665.ssval +++|* TO *EXEC*. 06807 M00S06666.ssval +++|* 06808 M00S06667.ssval +++|* IF THE LIVE *MSF* CATALOG IS BEING PROCESSED, THE DATE 06809 M00S06668.ssval +++|* AND TIME IS RETRIEVED BY THE CATALOG ACCESS ROUTINE 06810 M00S06669.ssval +++|* *CGETPD*. 06811 M00S06670.ssval +++|* 06812 M00S06671.ssval +++|* IF THE SUBCATALOG DATE AND TIME IS NOT AVAILABLE 06813 M00S06672.ssval +++|* OR NOT DEFINED, A FILLER "****" IS PLACED IN THE 06814 M00S06673.ssval +++|* FIELDS TO BE RETURNED. 06815 M00S06674.ssval +++|# 06816 M00S06675.ssval +++| 06817 M00S06676.ssval +++|# 06818 M00S06677.ssval +++|**** PROC VLSUBTD - XREF LIST BEGIN. 06819 M00S06678.ssval +++|# 06820 M00S06679.ssval +++| 06821 M00S06680.ssval +++| XREF 06822 M00S06681.ssval +++| BEGIN 06823 M00S06682.ssval +++| PROC CGETPD; # GET PURGE DATE # 06824 M00S06683.ssval +++| FUNC EDATE C(10); # EDIT DATE FROM PACKED FORMAT # 06825 M00S06684.ssval +++| FUNC ETIME C(10); # EDIT TIME FROM PACKED FORMAT # 06826 M00S06685.ssval +++| PROC VLLPDT; # GET LAST PURGE DATE AND TIME # 06827 M00S06686.ssval +++| END 06828 M00S06687.ssval +++| 06829 M00S06688.ssval +++|# 06830 M00S06689.ssval +++|**** PROC VLSUBTD - XREF LIST END. 06831 M00S06690.ssval +++|# 06832 M00S06691.ssval +++| 06833 M00S06692.ssval +++| DEF LISTCON #0#; 06834 M00S06693.ssval +++|*CALL COMBFAS 06835 M00S06694.ssval +++|*CALL COMTVLD 06836 M00S06695.ssval +++| 06837 M00S06696.ssval +++| ITEM PDATE I; # DATE/TIME FOR SUBCATALOG # 06838 M00S06697.ssval +++| ITEM QRADDR I; # TEMPORARY # 06839 M00S06698.ssval +++| 06840 M00S06699.ssval +++| CONTROL EJECT; 06841 M00S06700.ssval +++| 06842 M00S06701.ssval +++| PDATE = 0; 06843 M00S06702.ssval +++| 06844 M00S06703.ssval +++|# 06845 M00S06704.ssval +++|* IF THE LIVE CATALOG IS ATTACHED AND OPENED, GET THE 06846 M00S06705.ssval +++|* SUBCATALOG DATE/TIME FROM THE CATALOG ACCESS ROUTINE. 06847 M00S06706.ssval +++|# 06848 M00S06707.ssval +++| 06849 M00S06708.ssval +++| IF PAR$RF EQ 0 06850 M00S06709.ssval +++| THEN 06851 M00S06710.ssval +++| BEGIN 06852 M00S06711.ssval +++| CGETPD(PAR$FM,SBINDX,SMINDX,PDATE,QRADDR,STAT); 06853 M00S06712.ssval +++| END 06854 M00S06713.ssval +++| 06855 M00S06714.ssval +++|# 06856 M00S06715.ssval +++|* OTHERWISE, GET THE SUBCATALOG DATE/TIME FROM THE LIVE 06857 M00S06716.ssval +++|* CATALOG VIA A REQUEST TO THE *EXEC*. 06858 M00S06717.ssval +++|# 06859 M00S06718.ssval +++| 06860 M00S06719.ssval +++| ELSE 06861 M00S06720.ssval +++| BEGIN 06862 M00S06721.ssval +++| VLLPDT(SBINDX,SMINDX,PDATE); 06863 M00S06722.ssval +++| END 06864 M00S06723.ssval +++| 06865 M00S06724.ssval +++| IF PDATE EQ 0 06866 M00S06725.ssval +++| THEN # NO DATE/TIME DEFINED OR 06867 M00S06726.ssval +++| AVAILABLE # 06868 M00S06727.ssval +++| BEGIN 06869 M00S06728.ssval +++| SCPDATE = " ******** "; # FILL DATE SPACE # 06870 M00S06729.ssval +++| SCPTIME = " ******** "; # FILL TIME SPACE # 06871 M00S06730.ssval +++| END 06872 M00S06731.ssval +++| 06873 M00S06732.ssval +++| ELSE # SUBCATALOG LAST PURGED DATE/TIME 06874 M00S06733.ssval +++| # 06875 M00S06734.ssval +++| BEGIN 06876 M00S06735.ssval +++| SCPDATE = EDATE(B<24,18>PDATE); # EDITED DATE # 06877 M00S06736.ssval +++| SCPTIME = ETIME(B<42,18>PDATE); # EDITED TIME # 06878 M00S06737.ssval +++| END 06879 M00S06738.ssval +++| 06880 M00S06739.ssval +++| END # VLSUBTD # 06881 M00S06740.ssval +++| 06882 M00S06741.ssval +++| TERM 06883 M00S06742.ssval +++|PROC VLTITLE; 06884 M00S06743.ssval +++|# TITLE VLTITLE - ISSUE REPORT TITLE. # 06885 M00S06744.ssval +++| 06886 M00S06745.ssval +++| BEGIN # VLTITLE # 06887 M00S06746.ssval +++| 06888 M00S06747.ssval +++|# 06889 M00S06748.ssval +++|** VLTITLE - ISSUE REPORT TITLES. 06890 M00S06749.ssval +++|* 06891 M00S06750.ssval +++|* *VLTITLE* ISSUES THE REPORT FILE TITLE LINE AND, IF THE 06892 M00S06751.ssval +++|* FAMILY NAME IS DEFINED, ISSUES THE SUB-TITLE LINE. 06893 M00S06752.ssval +++|* 06894 M00S06753.ssval +++|* PROC VLTITLE 06895 M00S06754.ssval +++|* 06896 M00S06755.ssval +++|* ENTRY (PAR$FM) - FAMILY. 06897 M00S06756.ssval +++|# 06898 M00S06757.ssval +++| 06899 M00S06758.ssval +++|# 06900 M00S06759.ssval +++|**** PROC VLTITLE - XREF LIST BEGIN. 06901 M00S06760.ssval +++|# 06902 M00S06761.ssval +++| 06903 M00S06762.ssval +++| XREF 06904 M00S06763.ssval +++| BEGIN 06905 M00S06764.ssval +++| PROC RPLINEX; # PRINTS A REPORT LINE # 06906 M00S06765.ssval +++| PROC VLBFILL; # BLANK FILL # 06907 M00S06766.ssval +++| PROC VLSUBHD; # ISSUE REPORT SUBHEADING # 06908 M00S06767.ssval +++| END 06909 M00S06768.ssval +++| 06910 M00S06769.ssval +++|# 06911 M00S06770.ssval +++|**** PROC VLTITLE - XREF LIST END. 06912 M00S06771.ssval +++|# 06913 M00S06772.ssval +++| 06914 M00S06773.ssval +++| DEF LISTCON #0#; # TURN OFF COMDECK LISTINGS # 06915 M00S06774.ssval +++| 06916 M00S06775.ssval +++|*CALL COMBFAS 06917 M00S06776.ssval +++|*CALL COMTVLD 06918 M00S06777.ssval +++|*CALL COMTVLF 06919 M00S06778.ssval +++| 06920 M00S06779.ssval +++| 06921 M00S06780.ssval +++|# 06922 M00S06781.ssval +++|* TITLE LINES FOR THE REPORT FILE. 06923 M00S06782.ssval +++|# 06924 M00S06783.ssval +++| 06925 M00S06784.ssval +++| ARRAY RHDR [0:0] S(8); # TITLE LINE # 06926 M00S06785.ssval +++| BEGIN 06927 M00S06786.ssval +++| ITEM RH$LINE C(00,00,80) = ["0"]; 06928 M00S06787.ssval +++| ITEM RH$ID C(00,24,08) = ["SSVAL - "]; 06929 M00S06788.ssval +++| ITEM RH$DESC C(01,12,40) = ["VALIDATION REPORT"]; 06930 M00S06789.ssval +++| ITEM RH$ID2 C(05,36,08) = ["SSVAL - "]; 06931 M00S06790.ssval +++| ITEM RH$VER C(06,24,07) = [VLVER]; 06932 M00S06791.ssval +++| END 06933 M00S06792.ssval +++| 06934 M00S06793.ssval +++| ARRAY RSUBHD [0:0] S(8); # SUB-TITLE LINE # 06935 M00S06794.ssval +++| BEGIN 06936 M00S06795.ssval +++| ITEM RS$LINE C(00,00,80) = [" FAMILY ="]; 06937 M00S06796.ssval +++| ITEM RS$FAM C(02,06,07); 06938 M00S06797.ssval +++| END 06939 M00S06798.ssval +++| CONTROL EJECT; 06940 M00S06799.ssval +++| 06941 M00S06800.ssval +++| RPLINEX(RPTFADR,RHDR,0,80,EOPL); # ISSUE TITLE LINE # 06942 M00S06801.ssval +++| 06943 M00S06802.ssval +++|# 06944 M00S06803.ssval +++|* ISSUE THE SUB-TITLE LINE IF THE FAMILY PARAMETER IS DEFINED. 06945 M00S06804.ssval +++|# 06946 M00S06805.ssval +++| 06947 M00S06806.ssval +++| IF PAR$FM NQ 0 06948 M00S06807.ssval +++| THEN 06949 M00S06808.ssval +++| BEGIN 06950 M00S06809.ssval +++| RS$FAM[0] = PAR$FM; 06951 M00S06810.ssval +++| VLBFILL(RSUBHD,8); 06952 M00S06811.ssval +++| RPLINEX(RPTFADR,RSUBHD,0,80,EOPL); # ISSUE SUB-TITLE LINE # 06953 M00S06812.ssval +++| END 06954 M00S06813.ssval +++| 06955 M00S06814.ssval +++| RPLINEX(RPTFADR,"0",0,1,EOPL); # 2 BLANK LINES # 06956 M00S06815.ssval +++| 06957 M00S06816.ssval +++| RETURN; 06958 M00S06817.ssval +++| END # VLTITLE # 06959 M00S06818.ssval +++| 06960 M00S06819.ssval +++| TERM 06961 M00S06820.ssval +++|PROC VLWFIX(TYP); 06962 M00S06821.ssval +++|# TITLE VLWFIX - WRITE FIX FILE RECORD. # 06963 M00S06822.ssval +++| 06964 M00S06823.ssval +++| 06965 M00S06824.ssval +++| BEGIN # VLWFIX # 06966 M00S06825.ssval +++| 06967 M00S06826.ssval +++|# 06968 M00S06827.ssval +++|** VLWFIX - WRITE A FIXIT FILE RECORD. 06969 M00S06828.ssval +++|* 06970 M00S06829.ssval +++|* WRITE A FIXIT FILE RECORD. FOR SOME RECORD TYPES, THE 06971 M00S06830.ssval +++|* RECORD DATA IS IN THE *EXTRECORD* ARRAY. FOR OTHER RECORD 06972 M00S06831.ssval +++|* TYPES, THE RECORD IS BUILT/MODIFIED USING THE ENTRY 06973 M00S06832.ssval +++|* FIELDS SPECIFIED. 06974 M00S06833.ssval +++|* 06975 M00S06834.ssval +++|* PROC VLWFIX(TYP) 06976 M00S06835.ssval +++|* 06977 M00S06836.ssval +++|* ENTRY (TYP) - FIXIT FILE RECORD TYPE. 06978 M00S06837.ssval +++|* (SMINDX) - *SM* (OPTIONAL). 06979 M00S06838.ssval +++|* (SBINDX) - SUBFAMILY (OPTIONAL). 06980 M00S06839.ssval +++|* (VTPTR) - INDEX TO CURRENT *VT* ENTRY 06981 M00S06840.ssval +++|* (OPTIONAL). 06982 M00S06841.ssval +++|* (ARRAY EXTRECORD) - CURRENT PROBLEM FILE RECORD 06983 M00S06842.ssval +++|* (OPTIONAL). 06984 M00S06843.ssval +++|* (ARRAY FIXIT) - FIXIT FILE *FET*. 06985 M00S06844.ssval +++|* (ARRAY VTENTRY) - CURRENT *VT* ENTRY (OPTIONAL). 06986 M00S06845.ssval +++|* 06987 M00S06846.ssval +++|* EXIT A RECORD IS WRITTEN TO THE FIXIT FILE. 06988 M00S06847.ssval +++|# 06989 M00S06848.ssval +++| 06990 M00S06849.ssval +++| ITEM TYP I; # FIXIT FILE RECORD TYPE # 06991 M00S06850.ssval +++| 06992 M00S06851.ssval +++| 06993 M00S06852.ssval +++|# 06994 M00S06853.ssval +++|**** PROC VLWFIX - XREF LIST BEGIN. 06995 M00S06854.ssval +++|# 06996 M00S06855.ssval +++| 06997 M00S06856.ssval +++| XREF 06998 M00S06857.ssval +++| BEGIN 06999 M00S06858.ssval +++| PROC WRITEW; # INTERFACE TO *WRITEW* MACRO # 07000 M00S06859.ssval +++| END 07001 M00S06860.ssval +++| 07002 M00S06861.ssval +++|# 07003 M00S06862.ssval +++|**** PROC VLWFIX - XREF LIST END. 07004 M00S06863.ssval +++|# 07005 M00S06864.ssval +++| 07006 M00S06865.ssval +++| DEF LISTCON #0#; # TURN OFF COMDECK LISTINGS # 07007 M00S06866.ssval +++|*CALL COMBFAS 07008 M00S06867.ssval +++|*CALL COMTVLD 07009 M00S06868.ssval +++|*CALL COMTVLF 07010 M00S06869.ssval +++|*CALL COMTVLV 07011 M00S06870.ssval +++| 07012 M00S06871.ssval +++| CONTROL EJECT; 07013 M00S06872.ssval +++| 07014 M00S06873.ssval +++|# 07015 M00S06874.ssval +++|* BUILD AND WRITE THE FIXIT FILE RECORD. IN MOST CASES 07016 M00S06875.ssval +++|* THE PROBLEM RECORD IN THE EXTRECORD ARRAY BECOMES THE 07017 M00S06876.ssval +++|* FIXIT RECORD. BUT FOR SOME RECORD TYPES, ADDITIONAL 07018 M00S06877.ssval +++|* FIELDS ARE ADDED OR THE WHOLE RECORD IS BUILT. 07019 M00S06878.ssval +++|# 07020 M00S06879.ssval +++| 07021 M00S06880.ssval +++| FIX$RT[0] = TYP; # RECORD TYPE # 07022 M00S06881.ssval +++| 07023 M00S06882.ssval +++| IF TYP EQ REC"OTHR" 07024 M00S06883.ssval +++| THEN # ADD THE *VT* ENTRY # 07025 M00S06884.ssval +++| BEGIN 07026 M00S06885.ssval +++| FIX$VT[0] = VT$ITEM[VTPTR]; 07027 M00S06886.ssval +++| END 07028 M00S06887.ssval +++| 07029 M00S06888.ssval +++| IF TYP EQ REC"BADORPH" ## 07030 M00S06889.ssval +++| OR TYP EQ REC"FRAG" ## 07031 M00S06890.ssval +++| OR TYP EQ REC"BADHOLE" ## 07032 M00S06891.ssval +++| OR TYP EQ REC"TFORPH" 07033 M00S06892.ssval +++| THEN # BUILD THE FIXIT RECORD # 07034 M00S06893.ssval +++| BEGIN 07035 M00S06894.ssval +++| EXTR$SM[0] = SMINDX; 07036 M00S06895.ssval +++| EXTR$SB[0] = SBINDX; 07037 M00S06896.ssval +++| P<VTLINK> = LOC(VTPTR); # TO EXTRACT *FCT* AND AU # 07038 M00S06897.ssval +++| EXTR$GPT[0] = VTL$GRT[0]; 07039 M00S06898.ssval +++| EXTR$AU[0] = VTL$AU[0]; 07040 M00S06899.ssval +++| FIX$VT[0] = VT$ITEM[VTPTR]; 07041 M00S06900.ssval +++| EXTR$GP[0] = GROUPX; 07042 M00S06901.ssval +++| EXTR$FCT[0] = EXTR$GP[0] * 16 + EXTR$GPT[0]; 07043 M00S06902.ssval +++| END 07044 M00S06903.ssval +++| 07045 M00S06904.ssval +++| WRITEW(FIXITFILE,EXTRECORD,RLFIX,STAT); 07046 M00S06905.ssval +++| 07047 M00S06906.ssval +++| END # VLWFIX # 07048 M00S06907.ssval +++| 07049 M00S06908.ssval +++| TERM 07050 M00S06909.ssval +++|PROC VLWPROB(TYP); 07051 M00S06910.ssval +++|# TITLE VLWPROB - WRITE PROBLEM FILE RECORD. # 07052 M00S06911.ssval +++| 07053 M00S06912.ssval +++| 07054 M00S06913.ssval +++| BEGIN # VLWPROB # 07055 M00S06914.ssval +++| 07056 M00S06915.ssval +++|# 07057 M00S06916.ssval +++|** VLWPROB - WRITE THE PROBLEM FILE RECORD. 07058 M00S06917.ssval +++|* 07059 M00S06918.ssval +++|* WRITE A PROBLEM FILE RECORD. FOR SOME RECORD TYPES, THE 07060 M00S06919.ssval +++|* RECORD'S DATA IS IN THE *EXTRECORD* ARRAY. FOR OTHER TYPES, THE 07061 M00S06920.ssval +++|* RECORD IS BUILT / MODIFIED USING THE ENTRY FIELDS SPECIFIED. 07062 M00S06921.ssval +++|* 07063 M00S06922.ssval +++|* PROC VLWPROB(TYP) 07064 M00S06923.ssval +++|* 07065 M00S06924.ssval +++|* ENTRY (TYP) - RECORD TYPE. 07066 M00S06925.ssval +++|* (SMINDX) - *SM* (OPTIONAL). 07067 M00S06926.ssval +++|* (FCTORD) - *FCT* ORDINAL (OPTIONAL). 07068 M00S06927.ssval +++|* (SBINDX) - SUBFAMILY (OPTIONAL). 07069 M00S06928.ssval +++|* (CSN) - *CSN* (OPTIONAL). 07070 M00S06929.ssval +++|* (Y) - Y ORDINAL (OPTIONAL). 07071 M00S06930.ssval +++|* (Z) - Z ORDINAL (OPTIONAL). 07072 M00S06931.ssval +++| 07073 M00S06932.ssval +++|* (ARRAY SMMAP) - SMMAP ENTRY (OPTIONAL). 07074 M00S06933.ssval +++|* (ARRAY EXTRECORD) - CURRENT EXTRACT FILE RECORD 07075 M00S06934.ssval +++|* (ARRAY PROBFILE) - PROBLEM FILE *FET*. 07076 M00S06935.ssval +++|* 07077 M00S06936.ssval +++|* EXIT A RECORD IS WRITTEN TO THE PROBLEM FILE. 07078 M00S06937.ssval +++|* 07079 M00S06938.ssval +++|# 07080 M00S06939.ssval +++| 07081 M00S06940.ssval +++| ITEM TYP I; # PROBLEM RECORD TYPE # 07082 M00S06941.ssval +++| 07083 M00S06942.ssval +++|# 07084 M00S06943.ssval +++|**** PROC VLWPROB - XREF LIST BEGIN. 07085 M00S06944.ssval +++|# 07086 M00S06945.ssval +++| 07087 M00S06946.ssval +++| XREF 07088 M00S06947.ssval +++| BEGIN 07089 M00S06948.ssval +++| PROC VLERROR; # ISSUE ERROR MESSAGE # 07090 M00S06949.ssval +++| PROC WRITEW; # INTERFACE TO *WRITEW* MACRO # 07091 M00S06950.ssval +++| END 07092 M00S06951.ssval +++| 07093 M00S06952.ssval +++|# 07094 M00S06953.ssval +++|**** PROC VLWPROB - XREF LIST END. 07095 M00S06954.ssval +++|# 07096 M00S06955.ssval +++| 07097 M00S06956.ssval +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 07098 M00S06957.ssval +++| 07099 M00S06958.ssval +++|*CALL COMBFAS 07100 M00S06959.ssval +++|*CALL COMBMAP 07101 M00S06960.ssval +++|*CALL COMTVLD 07102 M00S06961.ssval +++|*CALL COMTVLF 07103 M00S06962.ssval +++| 07104 M00S06963.ssval +++| CONTROL EJECT; 07105 M00S06964.ssval +++| 07106 M00S06965.ssval +++|# 07107 M00S06966.ssval +++|* BUILD THE RECORD FOR THE PROBLEM FILE. IN MOST CASES THE 07108 M00S06967.ssval +++|* EXTRACT FILE RECORD IN THE EXTRECORD ARRAY BECOMES THE 07109 M00S06968.ssval +++|* PROBLEM FILE RECORD. BUT FOR SOME TYPES, THE WHOLE 07110 M00S06969.ssval +++|* RECORD MUST BE BUILT. 07111 M00S06970.ssval +++|# 07112 M00S06971.ssval +++| 07113 M00S06972.ssval +++| PROB$RT[0] = TYP; # RECORD TYPE # 07114 M00S06973.ssval +++| 07115 M00S06974.ssval +++| IF TYP EQ REC"FCT" OR TYP EQ REC"SM" 07116 M00S06975.ssval +++| THEN # BUILD A PROBLEM FILE RECORD # 07117 M00S06976.ssval +++| BEGIN 07118 M00S06977.ssval +++| PROB$Y[0] = Y; 07119 M00S06978.ssval +++| PROB$Z[0] = Z; 07120 M00S06979.ssval +++| PROB$CSN[0] = CSN; 07121 M00S06980.ssval +++| EXTR$FCT[0] = FCTORD; 07122 M00S06981.ssval +++| EXTR$SB[0] = SBINDX; 07123 M00S06982.ssval +++| EXTR$SM[0] = SMINDX; 07124 M00S06983.ssval +++| PROB$SM0[0] = CM$WRD1[0]; 07125 M00S06984.ssval +++| PROB$SM1[0] = CM$WRD2[0]; 07126 M00S06985.ssval +++| PROB$SM2[0] = CM$WRD3[0]; 07127 M00S06986.ssval +++| END 07128 M00S06987.ssval +++| 07129 M00S06988.ssval +++| 07130 M00S06989.ssval +++| WRITEW(PROBFILE,EXTRECORD,RLPROB,STAT); 07131 M00S06990.ssval +++| 07132 M00S06991.ssval +++| END # VLWPROB # 07133 M00S06992.ssval +++| 07134 M00S06993.ssval +++| TERM
cdc/nos2.source/opl.opl871/deck/ssval.003.txt · Last modified: by 127.0.0.1